Index: trunk/tools/gitcommit2xml.pl
===================================================================
--- trunk/tools/gitcommit2xml.pl	(revision 6540)
+++ trunk/tools/gitcommit2xml.pl	(revision 6540)
@@ -0,0 +1,13 @@
+#!perl -w
+
+$l=<>;
+if ($l =~ /([-+: .\w]+)/) {
+    $date=$1;
+}
+
+while (<>) {
+    if (/git-svn-id: [^@]*@([0-9]+)\s/) {
+        $rev=$1;
+    }
+}
+print "<info><entry><commit". ($rev?" revision=\"$rev\"":"") .">". ($date?"<date>$date</date>":"") ."</commit></entry></info>\n";