From: faemir Date: Sat, 21 Feb 2009 20:01:41 +0000 (-0700) Subject: (no commit message) X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/b6a9385011799a8c53ef499bedb2e43449b7a691?ds=sidebyside --- diff --git a/twirssi.pl b/twirssi.pl index b5cfb2b..093a1b8 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -6,7 +6,7 @@ use HTML::Entities; use File::Temp; use LWP::Simple; use Data::Dumper; -use Net::Twitter; +use Net::Identica; $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); @@ -373,7 +373,7 @@ sub cmd_login { %friends = %nicks = (); - $twit = Net::Twitter->new( + $twit = Net::Identica->new( username => $user, password => $pass, source => "twirssi" @@ -425,7 +425,7 @@ sub cmd_add_search { my ( $data, $server, $win ) = @_; unless ( $twit and $twit->can('search') ) { - ¬ice("ERROR: Your version of Net::Twitter ($Net::Twitter::VERSION) " + ¬ice("ERROR: Your version of Net::Identica ($Net::Identica::VERSION) " . "doesn't support searches." ); return; } @@ -451,7 +451,7 @@ sub cmd_del_search { my ( $data, $server, $win ) = @_; unless ( $twit and $twit->can('search') ) { - ¬ice("ERROR: Your version of Net::Twitter ($Net::Twitter::VERSION) " + ¬ice("ERROR: Your version of Net::Identica ($Net::Identica::VERSION) " . "doesn't support searches." ); return; } @@ -1207,7 +1207,7 @@ if ($window) { "twirssi_version", sub { ¬ice("Twirssi v$VERSION (r$REV); " - . "Net::Twitter v$Net::Twitter::VERSION. " + . "Net::Identica v$Net::Identica::VERSION. " . "JSON in use: " . JSON::Any::handler() . ". See details at http://twirssi.com/" );