root/trunk/twitter.pl

#!/usr/bin/perl
use warnings;
binmode STDOUT, ":utf8";
use HTTP::Date qw(
 time2str 
);
use Irssi qw(
  window_find_name command_bind
  settings_get_bool settings_add_bool
  settings_get_str  settings_add_str
  timeout_add signal_add_first
  signal_add signal_stop
  windows_refnum_last
  signal_add_last
  active_win
);
use Net::Twitter;
use HTML::Entities qw( decode_entities );
# setup global varibles
our ( $twit, $refresh, $username, $password, $maintimetag, $setuptimetag, 
  $time, $twitterwin, $main_name, $main_window, $direct_window, @friends );
 
$main_window = "twitter-main"; 
$direct_window = "twitter-direct";

### window manager
sub get_twitter_window {
  $twitterwin = window_find_name($main_window);
  if (! $twitterwin) {
    $twitterwin = Irssi::Windowitem::window_create($main_window,1);
  }
}

### wrap in setup sub?
sub setup {
  my ($data, $server, $witem) = @_;
  $refresh=75; #75 second refresh

  # setup the twitter object
  $username = settings_get_str('twit_user') or print "Twitter username not set, please set the username using the command /twit_user USERNAME";
  $password = settings_get_str('twit_pass') or print "Twitter password not set, please set the password using the command /twit_pass PASSWORD";
  $twit = Net::Twitter->new(username=>$username, password=>$password, source=>'irssi') or show_error($!);

  # get the main twitter window
  get_twitter_window();
  $twitterwin->set_name($main_window);

  # check return code
  if ( ! $twit->verify_credentials() ) {
    show_error('auth failed',1);
  }
  my @followers = $twit->followers();
  for $i ( 0 .. $#followers ) {
    for $j ( 0 .. $#{$followers[$i]} ) {
      push(@friends, $followers[$i][$j]->{'screen_name'});
    }
  }

  main($data,$server,$witem);

  # usage: timeout_add(msecs, func, data)
  $maintimetag = timeout_add($refresh*1000, \&main, undef);
}
### end wrap?

## get message
sub event_send_message {
  my ($line, $server, $witem) = @_;
  if (active_win()->{'name'} eq $main_window) {
    my $retval = $twit->update($line); 
    my $message = "<$username> $line";
    $twitterwin->print($message, MSGLEVEL_PUBLIC);
  }
}

sub show_error {
  # usage: show_error('errormsg',deadlybool);
  my ($message,$deadly) = @_;
  warn "$message\n";
  if ($twit->http_code()) {
    warn $twit->http_code();
    warn " - ";
    warn $twit->http_message();
    warn "\n";
  }
  # if it's a severe error pass a 1 as the second arg and this script will exit.
  die "Severe error, exiting.\n" if $deadly;
}

sub main {
  my ($data, $server, $witem) = @_;

  # get the replies or return the code
  my $replies = $twit->following_timeline( { since=> $time });
  my $ret_code = $twit->http_code();
  if ( $ret_code == 200 ) {
    my @reply_list = @$replies;
    my $size = @reply_list;
    if ( $size > 0 ) {
      get_twitter_window();
    }
    foreach my $foo ( reverse @reply_list ) {
      my $screen_name = $foo->{'user'}{'screen_name'};
      my $text = $foo->{'text'};
      $text =~ s/\n/\n   /;
      #print "<$screen_name> $text";
      my $cleantext = decode_entities($text);
      my $message = "<$screen_name> $cleantext";
      $twitterwin->print($message, MSGLEVEL_PUBLIC);
    }
    $time = time2str(time);
  } elsif ( $ret_code != 304 ) {
    show_error( 'fetch of timeline failed' );
  }
}

sub set_user {
  my ($data, $server, $witem) = @_;
  my $tmp = $data;
  settings_add_str('twit','twit_user', $tmp);
}

sub set_pass {
  my ($data, $server, $witem) = @_;
  my $tmp = $data;
  settings_add_str('twit','twit_pass', $tmp);
  setup($data,$server,$witem);
}
sub complete_names {
  my ($complist, $window, $word, $linestart, $want_space) = @_;
  if ($window->{'name'} eq $main_window) {
    # matches the irssi text with our user list
    # todo: append @ in front of the name
    my $prefix = substr($word, 0, 1);
    my $match = $word;

    if($prefix eq "@") {
        $match = substr($word, 1);
    }
    my @matches = grep /^$match/i, @friends;

    if($prefix eq "@") {
      @matches = map { "\@$_" } @matches; 
    }
    push @$complist, @matches;
    return;
  }
} 

command_bind twit_replies => \&print_replies;
command_bind twit_user => \&set_user;
command_bind twit_pass => \&set_pass;
signal_add_first 'send text' => \&event_send_message;
signal_add_last 'complete word' => \&complete_names;