Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Award a Panda badge to projects which conform to the newest specs

  • Loading branch information...
commit 1353611739d8ac5f5563602d162d7f99bc149944 1 parent c5f7f34
@tadzik tadzik authored
4 web/
@@ -12,7 +12,7 @@
use Encode qw(encode_utf8);
my $output_dir = shift(@ARGV) || './';
-my @MEDALS = qw<fresh medal readme tests unachieved proto camelia>;
+my @MEDALS = qw<fresh medal readme tests unachieved proto camelia panda>;
binmode STDOUT, ':encoding(UTF-8)';
local $| = 1;
@@ -37,6 +37,7 @@
if ( $previous && $previous->{last_updated} eq $latest->{committed_date} ) {
$previous->{badge_is_fresh} = $project->{badge_is_fresh} ; #Even if the project was not modified we need to update this
+ $previous->{badge_panda} = $project->{badge_panda};
%$project = %$previous;
print "Not updated since last check, loading from cache\n";
sleep(1); #We only did one api call
@@ -131,6 +132,7 @@ sub get_projects {
$projects->{$name}->{'auth'} = $auth;
$projects->{$name}->{'repo_name'} = $repo_name;
$projects->{$name}->{'url'} = $url;
+ $projects->{$name}->{'badge_panda'} = defined $json->{'source-url'};
my $cached_projects = eval { decode_json read_file( $output_dir . 'proto.json' , binmode => ':encoding(UTF-8)' ) };
1  web/index.tmpl
@@ -109,6 +109,7 @@ dl.table-display {
<TMPL_IF badge_has_readme><a href="<TMPL_VAR badge_has_readme>"><img src='readme.png' title='Has a README' alt="Readme badge" /></a><TMPL_ELSE><img src='unachieved.png' title="Doesn't have a README" alt="Unachieved badge" /></TMPL_IF>
<TMPL_IF badge_has_tests><img src='tests.png' title='Has tests' alt="Tests badge" /><TMPL_ELSE><img src='unachieved.png' title="Doesn't have tests" alt="Unachieved badge" /></TMPL_IF>
<TMPL_IF badge_is_fresh><img src='fresh.png' title='Commits in the past 90 days' alt="Fresh badge" /><TMPL_ELSE><img src='unachieved.png' title='No commits in the past 90 days' alt="Unachieved badge" /></TMPL_IF>
+ <TMPL_IF badge_panda><img src='panda.png' title='Conforms to the latest Perl 6 modules specs' alt="Panda badge" /><TMPL_ELSE><img src='unachieved.png' title='Not quite up-to-date with the specs' alt="Unachieved badge" /></TMPL_IF>
<TMPL_VAR description></dd>
BIN  web/panda.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Please sign in to comment.
Something went wrong with that request. Please try again.