From aaecba4e9525af51357fe1c93aa9071793a602c7 Mon Sep 17 00:00:00 2001
From: Greg Price <price@mit.edu>
Date: Sun, 1 Feb 2009 02:17:47 -0500
Subject: [PATCH 1/1] import-trac: nicer name and committer

---
 import-trac | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/import-trac b/import-trac
index aadee09..f82f341 100755
--- a/import-trac
+++ b/import-trac
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 use DBI;
 use IPC::Open2;
 
@@ -6,6 +6,15 @@ system('mkdir doc') && die;
 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;
@@ -31,8 +40,12 @@ foreach $row (@$rows) {
   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};
-- 
2.45.0