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