wassr2growl.pl #

Wassr の、自分が購読中の人のヒトコト (friends_timeline) をGrowl に通知する

初めて実行した時に ~/.wassr2growl.yaml が生成されるので、そこに wassr の ID と PW を記入して、後は cron でよしなにまわすとよろし

2008-08-01 Net::Wassr で書き直し & friends_timeline だけでなく channel_timeline も取得するようにしました
2008-07-31 初回実行時に、id と pw の入力をうながすようにしました

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 
 use Net::Wassr;
 
 use YAML;
 use File::HomeDir qw(home);
 use File::Spec;
 use IO::Prompt;
 use Encode;
 use HTTP::Date;
 
 use Mac::Growl;
 
 my $VERSION = '0.4';
 
 my $app = (File::Spec->splitpath($0))[2];
 my $conf_file = File::Spec->catfile(home, '.wassr2growl.yaml');
 
 my $conf = { lastupdate => 0 };
 unless ( -e $conf_file ) {
     $conf->{user} = prompt('user: ').'';
     $conf->{passwd} = prompt('passwd: ', -echo => '*').'';
     YAML::DumpFile($conf_file, $conf);
     chmod 0600, $conf_file;
     Mac::Growl::RegisterNotifications(
                                       $app,
                                       ['all-timeline'],
                                       ['all-timeline']
                                      );
 }
 $conf = YAML::LoadFile($conf_file);
 
 my $wassr = Net::Wassr->new(
                             user => $conf->{user},
                             passwd => $conf->{passwd}
                            );
 
 # Friend TimeLine
 my $messages = $wassr->friends_timeline();
 
 # Channel TimeLine
 my $clist = $wassr->channel_user();
 for my $c ( @{$clist->{channels}} ) {
     my $r = $wassr->channel_timeline($c);
     for ( @$r ) {
         push @$messages, {
                           name_en => $c->{name_en},
                           epoch => HTTP::Date::str2time( $_->{created_on} ),
                           user => {
                                    screen_name => $_->{user}->{nick}
                                   },
                           text => $_->{body},
                          };
     }
 }
 
 # sort by epoch
 my @mes = sort { $b->{epoch} <=> $a->{epoch} } @$messages;
 
 my @allmes = ();
 for my $re ( @mes ) {
     last if $re->{epoch} <= $conf->{lastupdate};
 
     my $str .= sprintf('(%02d:%02d:%02d) ',reverse((gmtime($re->{epoch}+9*3600))[0..2]));
     if ( $re->{reply_message} ) {
         $str .= '> '.$re->{reply_message};
         $str .= ' by '. $re->{reply_user_nick} if  $re->{reply_user_nick};
         $str .= "\n";
     }
     elsif ( $re->{name_en} ) {
         $str .= '[#'.$re->{name_en}.'] ';
     }
     $str .= $re->{text} . ' by ' . $re->{user}->{screen_name};
     if ( utf8::is_utf8($str) ) {
         $str = encode('utf8', $str);
     }
     $str =~ s/[\\x00-\\x1f]//g;
     push @allmes, $str;
 }
 
 if ( scalar(@allmes) ) {
     $conf->{lastupdate} = $mes[0]->{epoch};
     YAML::DumpFile($conf_file, $conf);
     chmod 0600, $conf_file;
 
     Mac::Growl::PostNotification(
                                  $app,
                                  'all-timeline',
                                  $conf->{user}.'@Wassr',
                                  join("\n----\n",@allmes),
                                  1
                                 );
 }
 
 exit;

wassr2growl.pl #

See Also