diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-17 22:35:06 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-22 15:19:27 +0000 |
commit | 772fdc0dc3733838b2efdf0c9af7252c2eafafd8 (patch) | |
tree | a98e0be9d0d008d062eb58d150a3e9bb4a25e487 /infra/dgit-ssh-dispatch | |
parent | eab588a83905122af678182876c2f800e4b6fa77 (diff) |
Introduce policy-hook script into dgit-ssh-dispatch and dgit-repos-server, but do not supply one yet
Diffstat (limited to 'infra/dgit-ssh-dispatch')
-rwxr-xr-x | infra/dgit-ssh-dispatch | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/infra/dgit-ssh-dispatch b/infra/dgit-ssh-dispatch index 88311ee..ed1e6ef 100755 --- a/infra/dgit-ssh-dispatch +++ b/infra/dgit-ssh-dispatch @@ -24,6 +24,7 @@ our $qre = '["'."']?"; # repos/ # suites # diverts +# policy-hook # plus files required by the authrune (by default, keyrings/ and dm.txt) # # diverts should be list of @@ -31,7 +32,7 @@ our $qre = '["'."']?"; # where <pat> is a package name pattern which may contain * or literals. our ($distro,$pkg); -our ($dgitlive,$repos,$suites,$diverts,$repo); +our ($dgitlive,$repos,$suites,$diverts,$policyhook,$repo); sub checkdivert ($) { my ($df) = @_; @@ -80,6 +81,7 @@ sub selectpackage ($$;$) { $dgitlive= "$d/dgit-live"; $repos= "$d/repos"; $suites= "$d/suites"; + $policyhook= "$d/policy-hook"; $authrune =~ s/\@/$d/g; @@ -121,7 +123,8 @@ sub dispatch () { selectpackage $2,$3; if ($cmd eq 'receive-pack') { my $s = "$dgitlive/infra/dgit-repos-server"; - exec $s, $distro, $suites, $authrune, $repos, qw(--ssh); + exec $s, $distro, $suites, $authrune, $repos, + $policyhook, qw(--ssh); die "exec $s: $!"; } elsif ($cmd eq 'upload-pack') { $repo='$repos/_empty' unless hasrepo; |