-#!/usr/bin/perl
+#!/usr/bin/perl -w
use DBI;
use IPC::Open2;
chdir('doc');
qx{git init};
+open AUTHORS, '../trac-authors' or die $!;
+my %authors = ();
+while (chomp ($line = <AUTHORS>)) {
+ my ($username, $name);
+ ($username, $name) = split / /, $line, 2;
+ print "$username $name\n";
+ $authors{$username} = $name;
+}
+
$password = qx(perl -F= -lane 'print \$F[1] if (\$F[0] eq "password")' \\
/mit/sipb-www/.my.cnf);
chomp $password;
chomp($tree = <OUT>);
waitpid $pid, 0;
- $ENV{GIT_AUTHOR_NAME} = "$row->{author} via Trac";
+ $name = $authors{$row->{author}};
+
+ $ENV{GIT_AUTHOR_NAME} = "$name";
$ENV{GIT_AUTHOR_EMAIL} = "$row->{author}\@mit.edu";
+ $ENV{GIT_COMMITTER_NAME} = "Trac";
+ $ENV{GIT_COMMITTER_EMAIL} = "sipb-www\@mit.edu";
$ENV{GIT_AUTHOR_DATE} = $row->{time};
$pid = open2(OUT, IN, qw{git commit-tree}, $tree, $head ? ('-p', $head) : ());
print IN $row->{comment};