#!/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
#
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 () {
my $cmd = $ENV{'SSH_ORIGINAL_COMMAND'};
$cmd =~ m{
^
- (?:\S*/)?
- ([-0-9a-z]+)
+ (?: \S* / )?
+ ( [-0-9a-z]+ )
\s+
- (?:\S*/)?
- ($package_re)\.git
+ (?: \S* / )?
+ ($package_re) \.git
$
}ox
or reject "command string not understood";