]> git.vpit.fr Git - perl/scripts/xchat.git/commitdiff
For AID/AGHOST, skip contextes not found
authorVincent Pit <vince@profvince.com>
Fri, 20 Nov 2015 14:43:23 +0000 (12:43 -0200)
committerVincent Pit <vince@profvince.com>
Fri, 20 Nov 2015 14:43:23 +0000 (12:43 -0200)
services.pl

index e9f13d687f3ecf2acfdfb256351b9133c71e070c..0b7af6d1ddfd04f40abe305e71cf3a90427aeb97 100755 (executable)
@@ -36,7 +36,7 @@ hook_command 'AID', sub {
  my @contexts     = get_servers_ctxt;
  my $guard        = save_context;
  for (@contexts) {
-  set_context $_;
+  set_context $_ or next;
   my $passwd = $forcepasswd || get_info 'nickserv';
   next unless $passwd;
   command 'ID ' . $passwd;
@@ -66,7 +66,7 @@ hook_command 'AGHOST', sub {
  my @contexts    = get_servers_ctxt;
  my $guard       = save_context;
  for (@contexts) {
-  set_context $_;
+  set_context $_ or next;
   my $passwd = $forcepasswd || get_info 'nickserv';
   next unless $passwd;
   if (nickcmp(get_info('nick'), $target)) {