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:
513c0f3
)
v2.4.1beta - Remove use of the Net::Identica object, using 'identica => 1' instead...
author
Dan Boger
<zigdon@irc.peeron.com>
Tue, 26 Jan 2010 18:59:44 +0000
(10:59 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Tue, 26 Jan 2010 18:59:44 +0000
(10:59 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 9cbf2ff8df48a14a949fa2d1e4cb0ec4bdcfa36a..0c433cd687527540918a1eaa86f1bfc8dbc61ebd 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-8,11
+8,12
@@
use LWP::Simple;
use Data::Dumper;
use Encode;
use POSIX qw/:sys_wait_h/;
use Data::Dumper;
use Encode;
use POSIX qw/:sys_wait_h/;
+use Net::Twitter qw/3.05/;
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
-$VERSION = "2.4.
0
";
+$VERSION = "2.4.
1beta
";
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-509,18
+510,12
@@
sub cmd_login {
}
$defservice = $service = ucfirst lc $service;
}
$defservice = $service = ucfirst lc $service;
- print "Loading Net::$service" if &debug;
- eval "use Net::$service 3.05";
- if ($@) {
- ¬ice(
- "Failed to load Net::$service when trying to log in as $user: $@");
- return;
- }
-
- if ( Irssi::settings_get_bool("twirssi_use_oauth") ) {
+ if ( $service eq 'Twitter' and
+ Irssi::settings_get_bool("twirssi_use_oauth") ) {
print "Attempting OAuth for $user\@$service" if &debug;
eval {
print "Attempting OAuth for $user\@$service" if &debug;
eval {
- $twit = "Net::$service"->new(
+ $twit = Net::Twitter->new(
+ $service eq 'Identica' ? ( identica => 1 ) : (),
traits => [ 'API::REST', 'OAuth' ],
consumer_key => 'BZVAvBma4GxdiRwXIvbnw',
consumer_secret => '0T5kahwLyb34vciGZsgkA9lsjtGCQ05vxVE2APXM',
traits => [ 'API::REST', 'OAuth' ],
consumer_key => 'BZVAvBma4GxdiRwXIvbnw',
consumer_secret => '0T5kahwLyb34vciGZsgkA9lsjtGCQ05vxVE2APXM',
@@
-563,7
+558,8
@@
sub cmd_login {
}
}
} else {
}
}
} else {
- $twit = "Net::$service"->new(
+ $twit = Net::Twitter->new(
+ $service eq 'Identica' ? ( identica => 1 ) : (),
username => $user,
password => $pass,
source => "twirssi",
username => $user,
password => $pass,
source => "twirssi",
@@
-572,7
+568,7
@@
sub cmd_login {
}
unless ($twit) {
}
unless ($twit) {
- ¬ice("Failed to create
Net::$service
object! Aborting.");
+ ¬ice("Failed to create object! Aborting.");
return;
}
return;
}