28,41c28,46 < my ($command, $string) = split(" ", $data, 2); < if ($command eq 'send') { < $witem->print("tweet: $string"); < $twit->update($string); < } elsif ($command eq 'friends') { < my $friends = $twit->friends_timeline({'since' => $date}); < if (@$friends) { < foreach my $msg (@{ $friends }) { < $witem->print("tweet from " . $msg->{'user'}{'screen_name'} . " : " . $msg->{'text'}); < } < } else { < $witem->print("tweet: your friends are too busy to tweet. WTF?"); < } < $date = time2str(); --- > > if ($data eq '') { > $witem->print("tweet: example: /tweet "); > } > > $witem->print("tweet: $data"); > $twit->update($data); > }; > > Irssi::command_bind 'twits' => sub { > my ($data, $server, $witem) = @_; > return unless $witem; > > my $friends = $twit->friends_timeline({'since' => $date}); > if (@$friends) { > reverse($friends); > foreach my $msg (@{ $friends }) { > $witem->print("tweet from " . $msg->{'user'}{'screen_name'} . " : " . $msg->{'text'}); > } 43,44c48 < $witem->print("tweet: commands available are help, send, friends"); < $witem->print("tweet: example: /tweet send foo"); --- > $witem->print("tweet: your friends are too busy to tweet. WTF?"); 45a50 > $date = time2str();