From: ferret <redacted>
Date: Thu, 11 Jan 2018 10:02:11 +0000 (+0100)
Subject: [query_whois][#7] add query_whois.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=6953d9c56e936eba5b169179b701012645d1fcb3;p=irssi-scripts.irssi.org.git

[query_whois][#7] add query_whois.pl
---

diff --git a/scripts/query_whois.pl b/scripts/query_whois.pl
new file mode 100644
index 0000000..3cccaed
--- /dev/null
+++ b/scripts/query_whois.pl
@@ -0,0 +1,25 @@
+use strict;
+use Irssi;
+
+{
+  our $VERSION = "0.02";
+  our %IRSSI = (
+    name        => "query_whois",
+    description => "whois on every query open (and only then)",
+    url         => "http://explodingferret.com/linux/irssi/query_whois.pl",
+    authors     => "ferret",
+    contact     => "ferret(tA)explodingferret(moCtoD), ferret on irc.freenode.net",
+    licence     => "Public Domain",
+    changed     => "2008-09-22",
+    changes     => "idle time added",
+    modules     => "",
+    commands    => "",
+    settings    => "",
+  );
+}
+
+Irssi::signal_add_first 'query created' => sub {
+  my ( $witem ) = @_;
+
+  $witem->{server}->command("whois $witem->{name} $witem->{name}");
+};