From: Peder Stray <redacted>
Date: Fri, 20 Aug 2021 11:57:06 +0000 (+0200)
Subject: Update query to 1.26
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=3f939bffb1fb98a949c2ff135ae430b4e50d3428;p=irssi-scripts.irssi.org.git

Update query to 1.26

Add tests for some IRC-only stuff
---

diff --git a/scripts/query.pl b/scripts/query.pl
index 4dcc24a..772b284 100644
--- 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 {