version number is not hard coded anymore

1 files changed, 18 insertions, 0 deletions

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;