[query_whois][#7] add query_whois.pl

diff --git a/scripts/query_whois.pl b/scripts/query_whois.pl
new file mode 100644 (file)
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}");
+};