+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;
+}
+