r3749 - people/goneri

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-08-21 22:42:50 +0000 (Tue, 21 Aug 2007)
New Revision: 3749

Added:
   people/goneri/svn-commiter-by-year.pl
Log:
a little script I use to find the commiter on a repository


Added: people/goneri/svn-commiter-by-year.pl
===================================================================
--- people/goneri/svn-commiter-by-year.pl	                        (rev 0)
+++ people/goneri/svn-commiter-by-year.pl	2007-08-21 22:42:50 UTC (rev 3749)
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $path = 'http://svn.berlios.de/svnroot/repos/lincity-ng/trunk';
+my $name = {
+  canarix => "Canarix",
+  cherryprice => "Lukas Siewert",
+  coz => "Eduardo Hernàndez Muñoz",
+  fl0ri4n =>  "Florian Bethke",
+  grumbel => "Ingo Ruhnke",
+  haydenm => "Hayden Muller",
+  hiker => "Joerg Henrichs",
+  jamesgregory => "James Gregory",
+  matzebraun => "Matthias Braun",
+  sik0fewl => "Ryan Flegel",
+  straver => "Jacob Persson",
+  tcidiot => "p. carley",
+  thebohemian => "Robert Schuster",
+  xeno74 => "Christian Zigotzky",
+};
+
+my $h;
+foreach (`svn log $ath`) {
+  if (/r\d+\s\|\s(\S+)\s\|\s(\d\d\d\d)/) {
+    $h->{$1} .= " ".$2 if (!$h->{$1} || $h->{$1} !~ /$2/);
+  }
+}
+
+foreach my $login (keys %$h) {
+  print " ".(exists($name->{$login})?$name->{$login}:$login)." copyright ";
+  print "$_ " foreach (reverse split / /, $h->{$login});
+  print "\n";
+
+}