Update

1 files changed, 10 insertions, 1 deletions

diff --git a/frontends/scripts/foostats.pl b/frontends/scripts/foostats.pl
index 2783b2d..7dbc26d 100644
--- a/frontends/scripts/foostats.pl
+++ b/frontends/scripts/foostats.pl
@@ -15,6 +15,8 @@ no warnings qw(experimental::refaliasing);
 # TODO: UNDO
 use diagnostics;
 
+use constant VERSION => 'v0.1.0';
+
 # TODO: Blog post about this script and the new Perl features used.
 # TODO NEXT:
 # * Write out a nice output from each merged file, also merge if multiple hosts results
@@ -1513,6 +1515,7 @@ package main {
                                     Default: /var/log/fooodds
           --partner-node <hostname> Hostname of the partner node for replication.
                                     Default: fishfinger.buetow.org or blowfish.buetow.org
+          --version                 Show version information.
           --help                    Show this help message.
         USAGE
         exit 0;
@@ -1530,7 +1533,7 @@ package main {
         $out->write;
     }
 
-    my ( $parse_logs, $replicate, $report, $all, $help );
+    my ( $parse_logs, $replicate, $report, $all, $help, $version );
 
     # With default values
     my $stats_dir = '/var/www/htdocs/buetow.org/self/foostats';
@@ -1554,8 +1557,14 @@ package main {
       'output-dir=s'   => \$output_dir,
       'html-output-dir=s' => \$html_output_dir,
       'partner-node=s' => \$partner_node,
+      'version'        => \$version,
       'help|?'         => \$help;
 
+    if ($version) {
+        print "foostats " . VERSION . "\n";
+        exit 0;
+    }
+
     usage() if $help;
 
     parse_logs( $stats_dir, $odds_file, $odds_log )