git binary wrapper for author name/email normalization

gistfile1.pl

#!/usr/bin/perl -w

use strict;

my $default_email = 'svn@mycompany.com';
my $default_name = 'My Company SVN';
my $cmd = "/usr/bin/git \"" . join('" "', @ARGV) . "\"";

local *PIPE;
open(PIPE, "$cmd |");
while(<PIPE>) {
	if (/^([AERF]):(.+)/) {
		my $prefix = $1;
		my $value = $2;
		if ($value =~ /userA/i) {
			$value = $prefix eq 'E' || $prefix eq 'F' ? 'usera@mycompany.com' : 'User A';
		} elsif ($value =~ /(?:userB|deploy|eng)/i) {
			$value = $prefix eq 'E' || $prefix eq 'F' ? 'userb@mycompany.com' : 'User B';
		} else {
			$value = $prefix eq 'E' || $prefix eq 'F' ? $default_email : $default_name;
		}
		print join(":", $prefix, $value), "\n";
	} else {
		print;
	}
}
close(PIPE);