projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e7f88ff
)
Print a helpful message (in the correct place) when an SSL login fails.
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Sep 2009 21:16:10 +0000
(14:16 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Sep 2009 21:16:10 +0000
(14:16 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 92f60b6cbeb20eb3b7197a60a860f404b2d3e2ea..1d24b863350ac32edd0a05da7ca982f3fa937444 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-513,6
+513,15
@@
sub cmd_login {
unless ( $twit->verify_credentials() ) {
¬ice("Login as $user\@$service failed");
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 );
$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 );
¬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");
}
%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." );
- }
}
}
}
}