From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 May 2015 16:47:04 +0000 (+0100)
Subject: Infra: add some more debugging
X-Git-Tag: debian/0.30~204
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=4628b8fd6ea2e7efe9ecb676bd061232f8eae72e

Infra: add some more debugging
---

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index f6ac5072..8e939d02 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -778,7 +778,7 @@ sub onwardpush () {
 }
 
 sub stunthook () {
-    debug "stunthook";
+    debug "stunthook in $workrepo";
     chdir $workrepo or die "chdir $workrepo: $!";
     mkdir "dgit-tmp" or $!==EEXIST or die $!;
     readupdates();
@@ -804,6 +804,7 @@ sub fixmissing__git_upload_pack () {
 
 sub main__git_upload_pack () {
     my $lfh = locksometree($destrepo);
+    debug "git-upload-pack in $destrepo";
     chdir $destrepo or die "$destrepo: $!";
     close $lfh;
     runcmd qw(git upload-pack), ".";
@@ -900,7 +901,13 @@ sub parseargsdispatch () {
     }
 
     if ($ARGV[0] eq '--pre-receive-hook') {
-	if ($debug) { $debug.="="; }
+	if ($debug) {
+	    $debug.="=";
+	    debug "in stunthook @ARGV";
+	    foreach my $k (sort keys %ENV) {
+		debug "$k=$ENV{$k}" if $k =~  m/^DGIT/;
+	    }
+	}
 	shift @ARGV;
 	@ARGV == 1 or die;
 	$package = shift @ARGV;