projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fabe4d5
)
(no commit message)
author
faemir
<faemir@faemir.co.uk>
Sat, 21 Feb 2009 20:01:41 +0000
(13:01 -0700)
committer
faemir
<faemir@faemir.co.uk>
Sat, 21 Feb 2009 20:01:41 +0000
(13:01 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index b5cfb2b52c52f9fd263c203f87eed70fc0917c00..093a1b84bcab255efdb862e07dbd1a075503431e 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-6,7
+6,7
@@
use HTML::Entities;
use File::Temp;
use LWP::Simple;
use Data::Dumper;
use File::Temp;
use LWP::Simple;
use Data::Dumper;
-use Net::
Twitter
;
+use Net::
Identica
;
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
@@
-373,7
+373,7
@@
sub cmd_login {
%friends = %nicks = ();
%friends = %nicks = ();
- $twit = Net::
Twitter
->new(
+ $twit = Net::
Identica
->new(
username => $user,
password => $pass,
source => "twirssi"
username => $user,
password => $pass,
source => "twirssi"
@@
-425,7
+425,7
@@
sub cmd_add_search {
my ( $data, $server, $win ) = @_;
unless ( $twit and $twit->can('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;
}
. "doesn't support searches." );
return;
}
@@
-451,7
+451,7
@@
sub cmd_del_search {
my ( $data, $server, $win ) = @_;
unless ( $twit and $twit->can('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;
}
. "doesn't support searches." );
return;
}
@@
-1207,7
+1207,7
@@
if ($window) {
"twirssi_version",
sub {
¬ice("Twirssi v$VERSION (r$REV); "
"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/" );
. "JSON in use: "
. JSON::Any::handler()
. ". See details at http://twirssi.com/" );