Changeset 529 for lang/perl/Acme-JapaneseCPANAuthors

Timestamp:

10/19/07 10:50:24 (13 months ago)

Author:

charsbar

Message:

lang/perl/Acme-JapaneseCPANAuthors: I've misunderstood how to generate gravatar id; not ...@… address but registered email to PAUSE, obviously

Files:

• lang/perl/Acme-JapaneseCPANAuthors/trunk/lib/Acme/JapaneseCPANAuthors.pm (modified) (1 diff)

lang/perl/Acme-JapaneseCPANAuthors/trunk/lib/Acme/JapaneseCPANAuthors.pm

@@ -77 +77 @@
   return unless $id;
 
+  require CPAN;
+  my $author = CPAN::Shell->expand_by_method('CPAN::Author' => ['id'] => $id);
+
   require Digest::MD5;
-  my $cpan_email = (lc $id).'@cpan.org';
+  my $cpan_email = $author->email;
   my $gravatar_id = Digest::MD5::md5_hex($cpan_email);
   my $uri = 'http://www.gravatar.com/avatar.php?gravatar_id='.$gravatar_id;