Front page | perl.perl5.porters |
Postings from January 2013
On 01/29/2013 10:38 PM, Steffen Mueller wrote:
> I will bribe Dennis into installing such post-receive a hook if somebody
> provides it.
The following is adapted from the "update" hook we use at $work (original
written by Alex Vandiver). Do give it a quick test before deploying.
#!/usr/bin/env perl
# This hook blacklists commits with committer email addresses from
# blacklisted domains.
use strict;
use warnings;
die "No GIT_DIR set" unless $ENV{GIT_DIR};
die "Usage: $0 ref oldrev newrev" unless @ARGV == 3;
my ($refname, $oldrev, $newrev) = @ARGV;
# Deletes are always fine
exit 0 if $newrev eq "0"x40;
my @blacklist = map {chomp; $_} <DATA>;
my $blacklist = join("|", map {"\Q$_\E"} @blacklist);
my @new = map {chomp; $_} `git log --format=\%ae $newrev --not --all`;
for (@new) {
die "******\n".
"** Blacklisted committer email: $_\n".
"** Please ensure you apply attached patches rather than the\n".
"** entire mail from perlbug or RT.\n".
"******\n" if /$blacklist/i;
}
exit 0;
__DATA__
perlbug-followup@perl.org
perlbug@perl.org
rt.perl.org