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"; + +} _______________________________________________ Pkg-games-commits mailing list [email protected] http://lists.alioth.debian.org/mailman/listinfo/pkg-games-commits
