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}");
};