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 <[EMAIL PROTECTED]>
+# 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 <[EMAIL PROTECTED]>',
+ 'eddyp-guest' => 'Eddy Petrișor <[EMAIL PROTECTED]>'
+);
+
+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
+ *
_______________________________________________
Pkg-games-commits mailing list
[email protected]
http://lists.alioth.debian.org/mailman/listinfo/pkg-games-commits
