From e7f88ffa156056068113ba9db9cc67cf9e41dd5f Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Wed, 2 Sep 2009 13:55:03 -0700
Subject: [PATCH 1/1] Print a helpful message when an SSL login fails.

---
 twirssi.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/twirssi.pl b/twirssi.pl
index eb878bf..92f60b6 100644
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -550,6 +550,13 @@ sub cmd_login {
         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." );
+        }
     }
 }
 
@@ -1223,7 +1230,7 @@ sub monitor_child {
                 delete $tweet_cache{$_};
             }
             $last_poll = $new_last_poll;
-            
+
             # make sure the pid is removed from the waitpid list
             Irssi::pidwait_remove($child_pid);
 
-- 
2.39.5