record and maintain a 'version' (for info and elsewhere)

src/Gitolite/Rc.pm

@@ -7,6 +7,7 @@ package Gitolite::Rc;
   %rc
   glrc
   query_rc
+  version
 
   $REMOTE_COMMAND_PATT
   $REF_OR_FILENAME_PATT
@@ -102,7 +103,7 @@ sub glrc {
 }
 
 # ----------------------------------------------------------------------
-# implements 'gitolite query-rc'
+# implements 'gitolite query-rc' and 'version'
 # ----------------------------------------------------------------------
 
 # ----------------------------------------------------------------------
@@ -131,6 +132,16 @@ sub query_rc {
     exit 1;
 }
 
+sub version {
+    my $version = '';
+    $version = '(unknown)';
+    for ("$rc{GL_ADMIN_BASE}/VERSION") {
+        $version = slurp($_) if -r $_;
+    }
+    chomp($version);
+    return $version;
+}
+
 # ----------------------------------------------------------------------
 
 =for args

src/Gitolite/Setup.pm

@@ -95,6 +95,9 @@ sub setup_gladmin {
     _mkdir( $rc{GL_ADMIN_BASE} );
     _chdir( $rc{GL_ADMIN_BASE} );
 
+    tsh_try("cd \$GL_BINDIR; git describe --tags --long --dirty=-dt 2>/dev/null")
+        and _print("VERSION", tsh_text());
+
     _mkdir("conf");
     my $conf;
     {

src/commands/info

@@ -19,6 +19,8 @@ usage() if @ARGV;
 my $user = $ENV{GL_USER} or _die "GL_USER not set";
 my $ref = 'any';
 
+print "hello $user, this is gitolite3 " . version() . " on git " . substr(`git --version`, 12) . "\n";
+
 my $lr = lister_dispatch('list-repos');
 my $lm = lister_dispatch('list-members');