Teach the conversion script about all the nice people that offered to reduce the number of wasted bytes in the world

This commit is contained in:
Eitan Adler 2012-12-15 17:05:45 +00:00
parent 3915e45bda
commit 5fd42832d1
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=308955

View File

@ -28,6 +28,8 @@ Usage: $bn [OPTION] PORT
_ENOUSAGE
}
my $nicepeople=".*(avilla@|bapt@|bdrewery@|beat@|eadler@|flo@|flz@|garga@|bsdkaffee@|linimon@|makc@|araujo@|rm@|villa.alberto@).*";
sub get_creator($) {
my $header=shift;
my $creator;
@ -99,7 +101,9 @@ MAIN: {
my $creator=get_creator(\@header);
my $mcom=get_mcom(\@header);
if(defined($creator)) {
print $outh "# Created by: $creator\n";
if ($creator!~m"$nicepeople"i) {
print $outh "# Created by: $creator\n";
}
} else {
print STDERR "$mf creator not found. Reverting to RCS string only.\n";
}