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:
e3f196e
)
Add new setting - twitter_timeout, defaults to 30 seconds. Requests that take longer...
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 12 Aug 2009 23:56:34 +0000
(16:56 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 12 Aug 2009 23:56:34 +0000
(16:56 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index a52823fbfc00a468d24a122625214a47f436e211..331715ce03737fbfe13a9606df4d34fc16799292 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-499,6
+499,15
@@
sub cmd_login {
ssl => Irssi::settings_get_bool("twirssi_avoid_ssl") ? 0 : 1,
);
ssl => Irssi::settings_get_bool("twirssi_avoid_ssl") ? 0 : 1,
);
+ unless ($twit) {
+ ¬ice("Failed to create Net::$service object! Aborting.");
+ return;
+ }
+
+ if ( my $timeout = Irssi::settings_get_int("twitter_timeout") ) {
+ $twit->ua->timeout($timeout);
+ }
+
unless ( $twit->verify_credentials() ) {
¬ice("Login as $user\@$service failed");
$twit = undef;
unless ( $twit->verify_credentials() ) {
¬ice("Login as $user\@$service failed");
$twit = undef;
@@
-1511,6
+1520,7
@@
Irssi::settings_add_str( "twirssi", "twirssi_replies_store",
".irssi/scripts/twirssi.json" );
Irssi::settings_add_int( "twirssi", "twitter_friends_poll", 600 );
".irssi/scripts/twirssi.json" );
Irssi::settings_add_int( "twirssi", "twitter_friends_poll", 600 );
+Irssi::settings_add_int( "twirssi", "twitter_timeout", 30 );
Irssi::settings_add_bool( "twirssi", "twirssi_upgrade_beta", 0 );
Irssi::settings_add_bool( "twirssi", "tweet_to_away", 0 );
Irssi::settings_add_bool( "twirssi", "twirssi_upgrade_beta", 0 );
Irssi::settings_add_bool( "twirssi", "tweet_to_away", 0 );