From: nhmall <nhmall@nethack.org>
Date: Fri, 26 Jan 2018 13:01:03 +0000 (-0500)
Subject: Only update dat/gitinfo.txt if the hash is new
X-Git-Tag: NetHack-3.6.1_RC01~177^2~19
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=fec245dba23bc4a6ffaef2700e1abc4cf0305ff0;p=nethack

Only update dat/gitinfo.txt if the hash is new
---

diff --git a/DEVEL/hooksdir/NHgithook.pm b/DEVEL/hooksdir/NHgithook.pm
index 6024c1c03..1bb92cf7e 100644
--- a/DEVEL/hooksdir/NHgithook.pm
+++ b/DEVEL/hooksdir/NHgithook.pm
@@ -60,6 +60,36 @@ sub POST {
 	&do_hook("POST");
 }
 
+###
+### store githash and gitbranch in dat/gitinfo.txt
+###
+
+sub nhversioning {
+    use strict;
+    use warnings;
+
+    my $git_sha = `git rev-parse HEAD`;
+    $git_sha =~ s/\s+//g;
+    my $git_branch = `git rev-parse --abbrev-ref HEAD`;
+    $git_branch =~ s/\s+//g;
+
+    if (open my $fh, '<', 'dat/gitinfo.txt') {
+        while(my $line = <$fh>) {
+            if ((index $line, $git_sha) >= 0) {
+                close $fh;
+                print "No update made to dat/gitinfo.txt, existing githash=".$git_sha."\n";
+                return;
+            }
+        }
+        close $fh;
+    }
+    if (open my $fh, '>', 'dat/gitinfo.txt') {
+        print $fh 'githash='.$git_sha."\n";
+        print $fh 'gitbranch='.$git_branch."\n";
+        print "An updated dat/gitinfo.txt was written, githash=".$git_sha."\n";
+    }
+}
+
 # PRIVATE
 sub do_hook {
 	my($p) = @_;