[svn:parrot] r44933 - in trunk: . tools/dev

[coke at svn.parrot.org]

Author: coke
Date: Mon Mar 15 13:11:14 2010
New Revision: 44933
URL: https://trac.parrot.org/parrot/changeset/44933

Log:
add faces.pl

Added:
   trunk/tools/dev/faces.pl   (contents, props changed)
Modified:
   trunk/MANIFEST

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Mon Mar 15 13:08:09 2010	(r44932)
+++ trunk/MANIFEST	Mon Mar 15 13:11:14 2010	(r44933)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Mar  8 22:07:22 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon Mar 15 13:04:03 2010 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -2149,6 +2149,7 @@
 tools/dev/checkdepend.pl                                    []
 tools/dev/create_language.pl                                [devel]
 tools/dev/debian_docs.sh                                    []
+tools/dev/faces.pl                                          []
 tools/dev/fetch_languages.pl                                []
 tools/dev/gen_charset_tables.pl                             []
 tools/dev/gen_class.pl                                      []

Added: trunk/tools/dev/faces.pl
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/tools/dev/faces.pl	Mon Mar 15 13:11:14 2010	(r44933)
@@ -0,0 +1,40 @@
+#! perl
+# $Id$
+# Copyright (C) 2010, Parrot Foundation.
+
+use strict;
+use warnings;
+
+use Gravatar::URL;
+
+=for usage
+
+use to generate source for http://trac.parrot.org/parrot/wiki/ParrotFaces
+
+=cut
+
+open my $fh, '<', 'CREDITS';
+
+my %urls;
+while(<$fh>) {
+    next unless /^E: (.*)/;
+    my $email = lc $1;
+    $urls{$email} = gravatar_url(
+        email   => $email,
+        rating  => 'r',
+        size    => 80,
+        default => 'wavatar',
+    );
+}
+
+foreach my $email (sort keys %urls) {
+    print "[[Image($urls{$email},title=$email)]]\n";
+}
+print "''Generated by tools/dev/faces.pl''\n";
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: