From eacc4ee953f3eb9f16b1471bba19adbaac0dc7e3 Mon Sep 17 00:00:00 2001 From: Dan Boger Date: Wed, 22 Jul 2009 13:58:16 -0700 Subject: [PATCH] r677 - Add a new setting, twirssi_avoid_ssl. By default, set to 0, means twirssi will try to use SSL for all connections. --- twirssi.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/twirssi.pl b/twirssi.pl index 68dfac8..356660f 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -12,7 +12,7 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); $VERSION = "2.2.5beta"; -my ($REV) = '$Rev: 676 $' =~ /(\d+)/; +my ($REV) = '$Rev: 677 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -21,7 +21,7 @@ my ($REV) = '$Rev: 676 $' =~ /(\d+)/; . 'Can optionally set your bitlbee /away message to same', license => 'GNU GPL v2', url => 'http://twirssi.com', - changed => '$Date: 2009-07-22 11:05:52 -0700 (Wed, 22 Jul 2009) $', + changed => '$Date: 2009-07-22 13:58:05 -0700 (Wed, 22 Jul 2009) $', ); my $window; @@ -495,7 +495,8 @@ sub cmd_login { $twit = "Net::$service"->new( username => $user, password => $pass, - source => "twirssi" + source => "twirssi", + ssl => Irssi::settings_get_bool("twirssi_avoid_ssl") ? 0 : 1, ); unless ( $twit->verify_credentials() ) { @@ -1513,6 +1514,7 @@ Irssi::settings_add_bool( "twirssi", "twirssi_notify_timeouts", 1 ); Irssi::settings_add_bool( "twirssi", "twirssi_hilights", 1 ); Irssi::settings_add_bool( "twirssi", "twirssi_always_shorten", 0 ); Irssi::settings_add_bool( "twirssi", "tweet_window_input", 0 ); +Irssi::settings_add_bool( "twirssi", "twirssi_avoid_ssl", 0 ); $last_poll = time - &get_poll_time; $window = Irssi::window_find_name( Irssi::settings_get_str('twitter_window') ); -- 2.30.2