From fec245dba23bc4a6ffaef2700e1abc4cf0305ff0 Mon Sep 17 00:00:00 2001
From: nhmall <nhmall@nethack.org>
Date: Fri, 26 Jan 2018 08:01:03 -0500
Subject: [PATCH] Only update dat/gitinfo.txt if the hash is new

---
 DEVEL/hooksdir/NHgithook.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

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) = @_;
-- 
2.50.0