Changeset 11038 for lang/perl/Acme-CPANAuthors-CodeRepos

Timestamp:

05/03/08 23:32:58 (5 years ago)

Author:

charsbar

Message:

Acme::CPANAuthors::CodeRepos?: improved mapping

Location:

lang/perl/Acme-CPANAuthors-CodeRepos/trunk

Files:

• lib/Acme/CPANAuthors/CodeRepos.pm (modified) (5 diffs)
• tools/update.pl (modified) (4 diffs)

lang/perl/Acme-CPANAuthors-CodeRepos/trunk/lib/Acme/CPANAuthors/CodeRepos.pm

@@ -15 +15 @@
     DAIBA => 'Keiichi Daiba',
     DANKOGAI => 'Dan Kogai',
+    DMAKI => 'Daisuke Maki',
     DROLSKY => 'Dave Rolsky',
     FUJIWARA => 'FUJIWARA Shunichiro',
     HANK => 'Bill Moseley',
+    HIDE => 'Hideo Kimura',
     HIO => 'YAMASHINA Hio',
     HIRATARA => 'Masahiro Honma',
+    HIROSE => 'HIROSE Masaaki',
     HIROYUKIM => 'Yamanaka Hiroyuki',
     IKEBE => 'IKEBE Tomohiro',
     ISHIGAKI => 'Kenichi Ishigaki',
+    ITWARRIOR => 'Hitoshi Amano',
     JESSE => 'Jesse Vincent',
     JIRO => 'Jiro Nishiguchi',
@@ -32 +36 @@
     KNAGANO => 'Keiichiro Nagano',
     KOKOGIKO => 'OHTSUKA Ko-hei',
+    KURIHARA => 'Yoshiki KURIHARA',
     LYOKATO => 'Lyo Kato',
     MARCEL => 'Marcel Gruenauer == hanekomu',
     MASAKI => 'NAKAGAWA Masaki',
     MATTN => 'Yasuhiro Matsumoto',
+    MIKIHOSHI => 'KAN Fushihara',
     MIYAGAWA => 'Tatsuhiko Miyagawa',
     MIYAMUKO => 'MIYAMUKO Katsuyuki',
+    MIYAZAKI => 'Ittetsu Miyazaki',
     MIZZY => 'Gosuke Miyashita',
     MRAMBERG => 'Marcus Ramberg',
@@ -54 +61 @@
     TAKESAKO => 'Yoshinori TAKESAKO',
     TAKKYUN => 'Takuya Otani',
+    TANIGUCHI => 'Koichi Taniguchi',
+    TARO => 'Daisuke Komatsu',
     TEEJAY => 'Aaron James Trevena',
     TOKUHIROM => 'Tokuhiro Matsuno',
@@ -67 +76 @@
     ZIGOROU => 'Toru Yamaguchi',
 );
+
+# people whose coderepos id doesn't match their pause id
+sub _mapping {(
+    AMACHANG => 'ITWARRIOR',
+    AUTARCH => 'DROLSKY',
+    BULB => '- other person -',
+    CASTAWAY => 'JROBINSON',
+    CHARSBAR => 'ISHIGAKI',
+    CLOUDER => 'KURIHARA',
+    DAISUKE => 'DMAKI',
+    DANN => '- other person -',
+    FBIS => 'MIYAZAKI',
+    HANEKOMU => 'MARCEL',
+    HIDEK => 'HIDE',
+    HIROSE31 => 'HIROSE',
+    KAN => 'MIKIHOSHI',
+    MARCUS => 'MRAMBERG',
+    MATTHEWT => 'MSTROUT',
+    MOSELEY => 'HANK',
+    NIPOTAN => 'TANIGUCHI',
+    NOTHINGMUCH => 'NUFFIN',
+    OMEGA => '- other person -',
+    TAKEMARU => 'TAKERU',
+    VKGTARO => 'TARO',
+)}
 
 1;
@@ -82 +116 @@
 =head1 MAINTENANCE
 
-If you are a CodeRepos user and are not listed here, add your own id/name.
+If you are a CodeRepos user and are not listed here, add your own id/name, or preferably update tools/update.pl in the repository (probably modify %mapping would suffice).
 
 =head1 SVN REPOSITORY

lang/perl/Acme-CPANAuthors-CodeRepos/trunk/tools/update.pl

@@ -16 +16 @@
 my %mapping = (
   # people whose coderepos id is not the same as their pause id
+  AMACHANG    => 'ITWARRIOR',
   AUTARCH     => 'DROLSKY',
   CASTAWAY    => 'JROBINSON',
   CHARSBAR    => 'ISHIGAKI',
+  CLOUDER     => 'KURIHARA',
+  DAISUKE     => 'DMAKI',
+  FBIS        => 'MIYAZAKI',
   HANEKOMU    => 'MARCEL',
+  HIDEK       => 'HIDE',
+  HIROSE31    => 'HIROSE',
+  KAN         => 'MIKIHOSHI',
   MARCUS      => 'MRAMBERG',
   MATTHEWT    => 'MSTROUT',
   MOSELEY     => 'HANK',
+  NIPOTAN     => 'TANIGUCHI',
   NOTHINGMUCH => 'NUFFIN',
+  TAKEMARU    => 'TAKERU',
+  VKGTARO     => 'TARO',
 
   # people whose coderepos id matches other person's pause id
-  BULB        => '-none-',
-  DANN        => '-none-',
-  OMEGA       => '-none-',
+  BULB        => '- other person -',
+  DANN        => '- other person -',
+  OMEGA       => '- other person -',
 );
 
@@ -34 +44 @@
 
 my $committers;
-unless ( $command =~ /no_update/ ) {
+if ( $command && $command =~ /scraper/ ) {
   my $scraper = scraper {
     process "ul>li>a",
@@ -82 +92 @@
 $engine->process(
   \$template,
-  { authors => \%cpan_authors, version => $version },
+  {
+    authors => \%cpan_authors,
+    version => $version,
+    mapping => \%mapping
+  },
   $target,
 ) or die $engine->error;
@@ -101 +115 @@
 [% END -%]
 );
+
+# people whose coderepos id doesn't match their pause id
+sub _mapping {(
+[% FOREACH committer IN mapping -%]
+    [% committer.key %] => '[% committer.value %]',
+[% END -%]
+)}
 
 1;