From 69da72df8eefe052a8a9fd953cdae798560d9e3a Mon Sep 17 00:00:00 2001 From: wowaname Date: Sat, 4 Mar 2017 07:03:37 +0000 Subject: [PATCH] keepnick.pl: detect if ISON timed out / is disabled --- scripts/keepnick.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/scripts/keepnick.pl b/scripts/keepnick.pl index e8643e7..bd65c0b 100644 --- a/scripts/keepnick.pl +++ b/scripts/keepnick.pl @@ -11,7 +11,7 @@ my $SCRIPT_VERSION = '1.0'; my $SCRIPT_LICENCE = 'Public domain'; my $SCRIPT_DESC = 'Keep your primary nickname'; -our (%waiting, %connecting); +our (%waiting, %connecting, %noison); my %OPTIONS = ( default_enable => ['Whether to enable keepnick on servers by default', '0'], @@ -116,6 +116,7 @@ sub ison_check next unless weechat::infolist_integer($iptr, 'is_connected'); my $server = lc weechat::infolist_string($iptr, 'name'); next unless is_waiting($server); + next unless exists $noison{$server}; weechat::hook_hsignal_send('irc_redirect_command', { server => $server, pattern => 'ison', @@ -134,6 +135,10 @@ sub ison_check sub irc_ison { my %hashtable = %{ pop() }; + unless ($hashtable{output}) { + $noison{lc $hashtable{server}} = 1; + return weechat::WEECHAT_RC_ERROR; + } my %nicks = map { lc $_ => 1 } split / +/, ($hashtable{output} =~ s/^:[^ ]* 303 [^ ]+ :?//r); @@ -231,7 +236,7 @@ sub cmd_keepnick info($server, "keepnick disabled on this server"); } else { - my @waiting = enable($server, 0, $command =~ s/ /,/gr); + my @waiting = enable($server, 1, $command =~ s/ /,/gr); if (@waiting) { info($server, "now waiting for '".(join "', '", @waiting)."'"); } else { info($server, "you already have your primary nick! doing nothing"); } }