Add a version command.

*NOTE*: Reflects the state of git only at the time the bot is started.
Version is not updated in any way at runtime.

First field is the newest commit that exists both locally and on GitLab.
Second field is the output of `git describe --all --long --dirty`.
Third field is the latest commit locally.

1 files changed, 6 insertions, 0 deletions

diff --git a/meta.pl b/meta.pl
index 1730942..7f03197 100755
--- a/meta.pl
+++ b/meta.pl
@@ -47,6 +47,7 @@ $::pacealerts = 1;
 $::settingschanged = 0;
 %::wordlist = ();
 %::httpRequests = ();
+$::version = '';
 
 ## debug variables. 0 to turn off debugging, else set it to a Term::ANSIColor constant.
 %::debugx = (
@@ -97,6 +98,11 @@ alarm 300;
 
 sub init {
   my ( $conn, $host );
+  $::version .= `git merge-base remotes/origin/master HEAD`; chomp $::version;
+  $::version .= ' ';
+  $::version .= `git describe --long --all --dirty`; chomp $::version;
+  $::version .= ' ';
+  $::version .= `git rev-parse HEAD`; chomp $::version;
   my $irc = new Net::IRC;
   GetOptions( 'debug|d!'   => \$::debug,
               'pass|p=s'   => \$::pass,