Infra: add some more debugging

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index f6ac5072d8849a1e3de83b60bffa67088b610ae6..8e939d025f904e2e7900cb761b40857fab005f26 100755 (executable)
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -778,7 +778,7 @@ sub onwardpush () {
 }
 
 sub stunthook () {
 }
 
 sub stunthook () {

-    debug "stunthook";
+    debug "stunthook in $workrepo";

     chdir $workrepo or die "chdir $workrepo: $!";
     mkdir "dgit-tmp" or $!==EEXIST or die $!;
     readupdates();
     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);
 
 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), ".";
     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 ($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;
        shift @ARGV;
        @ARGV == 1 or die;
        $package = shift @ARGV;