Update query to 1.26

Add tests for some IRC-only stuff

diff --git a/scripts/query.pl b/scripts/query.pl
index 4dcc24afadc278f99b3689e8969eee54af0822bb..772b2849cbdb4cd7fd5f006f8d53f4f215b38111 100644 (file)
--- a/scripts/query.pl
+++ b/scripts/query.pl
@@ -11,7 +11,7 @@ use POSIX;
 #use Data::Dumper;
 
 use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.25 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.26 $' =~ / (\d+\.\d+) /;
 %IRSSI = (
          name        => 'query',
          authors     => 'Peder Stray',
@@ -224,12 +224,14 @@ sub sig_query_created {
 
     $state{$tag}{$nick} = { time => time };
 
-    $serv->redirect_event('userhost', 1, ":$nick", -1, undef,
-                         {
-                          "event 302" => "redir query userhost",
-                          "" => "event empty",
-                         });
-    $serv->send_raw("USERHOST :$nick");
+    if (ref($serv) eq 'Irssi::Irc::Server') {
+       $serv->redirect_event('userhost', 1, ":$nick", -1, undef,
+                             {
+                              "event 302" => "redir query userhost",
+                              "" => "event empty",
+                             });
+       $serv->send_raw("USERHOST :$nick");
+    }
 }
 
 sub sig_query_destroyed {