diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-07-08 19:56:22 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-07-08 19:56:22 +0100 |
commit | 865ccbc447b33ac2f2d66af0147463c2709a4339 (patch) | |
tree | 71aa254c6d9936ad57bd102aef9314683af98ae4 | |
parent | 3441896d54a67afcf18987eed287061d2afea956 (diff) |
infra: dgit-repos-server: Break out mkscript
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | infra/dgit-repos-server | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index 6131774..54a63f9 100755 --- a/infra/dgit-repos-server +++ b/infra/dgit-repos-server @@ -407,16 +407,21 @@ sub makeworkingclone () { rmtree "${workrepo}_fresh"; } +sub mkscript ($$) { + my ($path,$contents) = @_; + my $fh = new IO::File $path, O_WRONLY|O_CREAT|O_TRUNC, 0777 + or die "$path: $!"; + print $fh $contents or die "$path: $!"; + close $fh or die "$path: $!"; +} + sub setupstunthook () { my $prerecv = "$workrepo/hooks/pre-receive"; - my $fh = new IO::File $prerecv, O_WRONLY|O_CREAT|O_TRUNC, 0777 - or die "$prerecv: $!"; - print $fh <<END or die "$prerecv: $!"; + mkscript $prerecv, <<END; #!/bin/sh set -e exec $0 --pre-receive-hook $package END - close $fh or die "$prerecv: $!"; $ENV{'DGIT_DRS_WORK'}= $workrepo; $ENV{'DGIT_DRS_DEST'}= $destrepo; printdebug " stunt hook set up $prerecv\n"; |