From d1284e4f0c4dfa4a5e33708c1a6f75caf57786b8 Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Wed, 2 Sep 2009 14:16:10 -0700
Subject: [PATCH 1/1] Print a helpful message (in the correct place) when an
 SSL login fails.

---
 twirssi.pl | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

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() ) {
         &notice("Login as $user\@$service failed");
+
+        if ( not Irssi::settings_get_bool("twirssi_avoid_ssl") ) {
+            &notice(
+                "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 {
         &notice( "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} ) {
-                &notice("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 {
         &notice("Login failed");
-        if ( not Irssi::settings_get_bool("twirssi_avoid_ssl") ) {
-            &notice(
-                "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." );
-        }
     }
 }
 
-- 
2.39.5