.gitignore MANIFEST MANIFEST.SKIP Makefile.PL etc/github-growler.plist.tmpl @@ -1,5 +1,7 @@ #!/usr/bin/perl use strict; +use warnings; +use 5.008001; use App::Cache; use Mac::Growl; use File::Copy; @@ -18,7 +20,7 @@ mkdir $TempDir, 0777 unless -e $TempDir; my $AppIcon = "$TempDir/miyagawa.png"; copy "octocat.png", $AppIcon; -my $Cache = App::Cache->new; +my $Cache = App::Cache->new({ ttl => 60*60*24, application => $AppName }); my %Seen; my %options = (interval => 300, max => 10); @@ -84,7 +86,7 @@ sub get_user { my $name = shift; $Cache->get_code("user:$name", sub { use Web::Scraper; - scraper { + my $res = scraper { process "#profile_name", name => 'TEXT'; process ".identity img", avatar => [ '@src', sub { my $path = "$TempDir/$name.jpg"; @@ -93,7 +95,23 @@ sub get_user { return $path; } ]; }->scrape(URI->new("http://github.com/$name")); + $res->{name} ||= $name; + $res; }); } +__END__ +=head1 NAME + +github-growler + +=head1 AUTHOR + +Tatsuhiko Miyagawa + +=head1 LICENSE + +This program is licensed under the same terms as Perl itself. + +=cut github-growler.pl 38dc438e0273b6908f6a20b09849090fb834e5a5 Tatsuhiko Miyagawa miyagawa@bulknews.net http://github.com/miyagawa/github-growler/commit/d7698b5c10eedfce842f89a0ab5f711e927778fe d7698b5c10eedfce842f89a0ab5f711e927778fe 2009-03-14T16:41:09-07:00 2009-03-14T16:41:09-07:00 installation for Module::Install and some launchctl scripts 6ddbb68335ef9a751bea267bfaa35b14e66fc874 Tatsuhiko Miyagawa miyagawa@bulknews.net