From: Dan Boger <zigdon@irc.peeron.com>
Date: Wed, 2 Sep 2009 20:55:03 +0000 (-0700)
Subject: Print a helpful message when an SSL login fails.
X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/e7f88ffa156056068113ba9db9cc67cf9e41dd5f?ds=inline;hp=-c

Print a helpful message when an SSL login fails.
---

e7f88ffa156056068113ba9db9cc67cf9e41dd5f
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);