r8467 - scripts/trunk

[Gonéri Le Bouder]

Author: goneri
Date: 2008-11-30 22:25:33 +0000 (Sun, 30 Nov 2008)
New Revision: 8467

Added:
   scripts/trunk/mkGitSvnAliasFile.pl
Log:
a script to generate alias file for git-svn


Added: scripts/trunk/mkGitSvnAliasFile.pl
===================================================================
--- scripts/trunk/mkGitSvnAliasFile.pl	                        (rev 0)
+++ scripts/trunk/mkGitSvnAliasFile.pl	2008-11-30 22:25:33 UTC (rev 8467)
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+# Copyright 2008 Gonéri Le Bouder <goneri at rulezlan.org>
+# MIT licence.
+#
+# Usage:
+# cd /somewhere/pkg-games/packages/trunk
+# ./mkGitSvnAliasFile.pl > alias
+
+use strict;
+use warnings;
+
+use File::Find;
+
+my %hash = (
+  'baby-guest' => 'Miriam Ruiz <little_miry at yahoo.es>',
+  'eddyp-guest' => 'Eddy Petrișor <eddy.petrisor at gmail.com>'
+);
+
+sub wanted () {
+    return unless -f $File::Find::name;
+    return unless $File::Find::name =~ /\/debian\/changelog/;
+
+    open CHANGELOG, "<$File::Find::name" or die "$!";
+    foreach (<CHANGELOG>) {
+        next unless /^ -- (\w.+<(\S+)@[\S]+>)  /;
+        my $login = $2;
+        my $who = $1;
+        next if exists($hash{$login}) && $hash{$login} =~ /debian\.org/;
+        $hash{$login} = $who;
+    }
+    close CHANGELOG;
+}
+
+finddepth({ wanted => \&wanted, follow => 1, no_chdir => 1 }, '.');
+foreach (keys %hash) {
+  print $_." = ".$hash{$_}."\n";
+  print $_."-guest = ".$hash{$_}."\n";
+}


Property changes on: scripts/trunk/mkGitSvnAliasFile.pl
___________________________________________________________________
Name: svn:executable
   + *