@@ -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/" );
twirssi.pl
fabe4d576cf8b552863a1785426d90f978c133fb
faemir
faemir
faemir@faemir.co.uk
http://github.com/bssteph/twirssi/commit/b6a9385011799a8c53ef499bedb2e43449b7a691
b6a9385011799a8c53ef499bedb2e43449b7a691
2009-02-21T12:01:41-08:00
2009-02-21T12:01:41-08:00
3ba2dd4c940723f4a70959bc45f6fb869bd5345f
faemir
faemir
faemir@faemir.co.uk