From e682c81a46d1f96e9f44a742e8f949d5935e5f79 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 21 Apr 2012 12:30:58 +0200
Subject: version number is not hard coded anymore

---
 lib/Loadbars/Utils.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'lib/Loadbars/Utils.pm')

diff --git a/lib/Loadbars/Utils.pm b/lib/Loadbars/Utils.pm
index bfb8027..df5e0f7 100644
--- a/lib/Loadbars/Utils.pm
+++ b/lib/Loadbars/Utils.pm
@@ -18,6 +18,7 @@ our @EXPORT = qw (
   say
   sum
   trim
+  get_version
 );
 
 sub say (@) { print "$_\n" for @_; return undef }
@@ -38,4 +39,21 @@ sub display_info_no_nl ($) { print "==> " . (shift) . ' ' }
 sub display_info ($)       { say "==> " . shift }
 sub display_warn ($)       { say "!!! " . shift }
 
+sub get_version () {
+    my $versionfile = do {
+        if ( -f '.version' ) {
+            '.version';
+        }
+        else {
+            '/usr/share/loadbars/version';
+        }
+    };
+
+    open my $fh, $versionfile or error("$!: $versionfile");
+    my $version = <$fh>;
+    close $fh;
+
+    return $version;
+}
+
 1;
-- 
cgit v1.2.3