/[irc-logger]/trunk/bin/irc-logger.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/irc-logger.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 53 by dpavlin, Sun Mar 18 17:00:16 2007 UTC revision 54 by dpavlin, Sun Mar 18 17:14:52 2007 UTC
# Line 74  use HTML::CalendarMonthSimple; Line 74  use HTML::CalendarMonthSimple;
74  use Getopt::Long;  use Getopt::Long;
75  use DateTime;  use DateTime;
76  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
77  use Net::Twitter;  
78    my $use_twitter = 1;
79    eval { require Net::Twitter; };
80    $use_twitter = 0 if ($@);
81    
82  my $import_dircproxy;  my $import_dircproxy;
83  my $log_path;  my $log_path;
# Line 546  POE::Session->create( inline_states => Line 549  POE::Session->create( inline_states =>
549    
550                  save_message( channel => $channel, me => 1, nick => $nick, msg => $msg);                  save_message( channel => $channel, me => 1, nick => $nick, msg => $msg);
551    
552                  if ( my $twitter = meta( $nick, $channel, 'twitter' ) ) {                  if ( $use_twitter ) {
553                          my ($login,$passwd) = split(/\s+/,$twitter,2);                          if ( my $twitter = meta( $nick, $channel, 'twitter' ) ) {
554                          _log("sending twitter for $nick/$login on $channel ");                                  my ($login,$passwd) = split(/\s+/,$twitter,2);
555                          my $bot = Net::Twitter->new( username=>$login, password=>$passwd );                                  _log("sending twitter for $nick/$login on $channel ");
556                          $bot->update("<${channel}> $msg");                                  my $bot = Net::Twitter->new( username=>$login, password=>$passwd );
557                                    $bot->update("<${channel}> $msg");
558                            }
559                  }                  }
560    
561      },      },

Legend:
Removed from v.53  
changed lines
  Added in v.54

  ViewVC Help
Powered by ViewVC 1.1.26