From: Dan Boger Date: Wed, 2 Sep 2009 21:16:10 +0000 (-0700) Subject: Print a helpful message (in the correct place) when an SSL login fails. X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/d1284e4f0c4dfa4a5e33708c1a6f75caf57786b8 Print a helpful message (in the correct place) when an SSL login fails. --- diff --git a/twirssi.pl b/twirssi.pl index 92f60b6..1d24b86 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -513,6 +513,15 @@ sub cmd_login { unless ( $twit->verify_credentials() ) { ¬ice("Login as $user\@$service failed"); + + if ( not Irssi::settings_get_bool("twirssi_avoid_ssl") ) { + ¬ice( + "It's possible you're missing one of the modules required for " + . "SSL logins. Try setting twirssi_avoid_ssl to on. See " + . "http://cpansearch.perl.org/src/GAAS/libwww-perl-5.831/README.SSL " + . "for the detailed requirements." ); + } + $twit = undef; if ( keys %twits ) { &cmd_switch( ( keys %twits )[0], $server, $win ); @@ -538,25 +547,12 @@ sub cmd_login { ¬ice( "loaded friends: ", scalar keys %friends ); if ( Irssi::settings_get_bool("twirssi_first_run") ) { Irssi::settings_set_bool( "twirssi_first_run", 0 ); - unless ( exists $friends{twirssi} ) { - ¬ice("Welcome to twirssi!" - . " Perhaps you should add \@twirssi to your friends list," - . " so you can be notified when a new version is release?" - . " Just type /twitter_follow twirssi." ); - } } %nicks = %friends; $nicks{$user} = 0; return 1; } else { ¬ice("Login failed"); - if ( not Irssi::settings_get_bool("twirssi_avoid_ssl") ) { - ¬ice( - "It's possible you're missing one of the modules required for " - . "SSL logins. Try setting twirssi_avoid_ssl to on. See " - . "http://cpansearch.perl.org/src/GAAS/libwww-perl-5.831/README.SSL " - . "for the detailed requirements." ); - } } }