X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit-repos-server;h=cbbfe1ea7ccd297b7bc3835b48e9acc27aee611b;hb=44a2c13511958d2dec9de240fbbcc1102869b9a8;hp=31a44f3fe75c9f384c50e6f7633b085e7052b3e9;hpb=abde8bafcf18f631c2d5c0e7439e09b216d7ec7a;p=dgit.git

diff --git a/dgit-repos-server b/dgit-repos-server
index 31a44f3f..cbbfe1ea 100644
--- a/dgit-repos-server
+++ b/dgit-repos-server
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -w
-# dgit-repos-push-receiver
+# dgit-repos-server
 #
 # usages:
-#  .../dgit-repos-push-receiver SUITES KEYRING-AUTH-SPEC DGIT-REPOS-DIR --ssh
+#  .../dgit-repos-server SUITES KEYRING-AUTH-SPEC DGIT-REPOS-DIR --ssh
 # internal usage:
-#  .../dgit-repos-push-receiver --pre-receive-hook PACKAGE
+#  .../dgit-repos-server --pre-receive-hook PACKAGE
 #
 # Invoked as the ssh restricted command
 #
@@ -393,6 +393,16 @@ sub stunthook () {
     onwardpush();
 }
 
+#----- git-upload-pack -----
+
+sub fixmissing__git_upload_pack () {
+    $destrepo = "$dgitrepos/_empty";
+}
+
+sub main__git_upload_pack () {
+    runcmd qw(git upload-pack), $destdir;
+}
+
 #----- arg parsing and main program -----
 
 sub argval () {