X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=infra%2Fdgit-repos-policy-debian;h=e85e92c5ebf4531ccc20229c2f4004ba6a49b598;hp=cff5d06cd33d80107a281dad33135db87e81e99d;hb=397f40c5e2d471582a688474df4aa1c9ed0f7a54;hpb=f60ec72817bf5cc38a8ec83abd2e065f0433001c diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index cff5d06c..e85e92c5 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -262,6 +262,21 @@ sub check_package () { if (good_suite_has_suitable_vsn(\&vsn_in_our_history)) { chmod $publicmode, "." or die $!; $pkg_secret = 0; + eval { + my $mirror_hook = "$distrodir/mirror-hook"; + if (stat_exists $mirror_hook) { + my @mirror_cmd = + ($mirror_hook, $distrodir, "updated-hook", $pkg); + debugcmd " (mirror)",@mirror_cmd; + system @mirror_cmd and failedcmd @mirror_cmd; + } + }; + if (length $@) { + chomp $@; + print STDERR "policy hook: warning:". + " failed to mirror publication of \`$pkg':". + " $@\n"; + } return 0; } @@ -319,10 +334,19 @@ sub action_push () { if (deliberately('include-questionable-history')) { return 0; } - die "\nPackage is in NEW and has not been accepted or rejected yet;". - " use a --deliberately option to specify whether you are". - " keeping or discarding the previously pushed history. ". - " Please RTFM dgit(1).\n\n"; + die <