/var/www/www.irssi.org-old/scripts/html/autowhois.pl

• package main
  • msg_private_first
  • msg_private
• EOF

   1 # /WHOIS all the users who send you a private message.
   2 # v1.1 for irssi 0.7.98 by Timo Sirainen
   3 use Irssi;
   4 use vars qw($VERSION %IRSSI); 
   5 $VERSION = "1.1";
   6 %IRSSI = (
   7     authors	=> "Timo \'cras\' Sirainen",
   8     contact	=> "tss\@iki.fi",
   9     name	=> "autowhois",
  10     description	=> "/WHOIS all the users who send you a private message.",
  11     license	=> "Public Domain",
  12     url		=> "http://irssi.org/",
  13     changed	=> "2002-03-04T22:47+0100",
  14     changes	=> "v1.1: don't /WHOIS if query exists for the nick already"
  15 );
  16 
  17 # History:
  18 #  v1.1: don't /WHOIS if query exists for the nick already
  19 
  20 my $lastfrom, $lastquery;
  21 
  22 sub msg_private_first {
  23   my ($server, $msg, $nick, $address) = @_;
  24 
  25   $lastquery = $server->query_find($nick);
  26 }
  27 
  28 sub msg_private {
  29   my ($server, $msg, $nick, $address) = @_;
  30 
  31   return if $lastquery || $lastfrom eq $nick;
  32 
  33   $lastfrom = $nick;
  34   $server->command("whois $nick");
  35 }
  36 
  37 Irssi::signal_add_first('message private', 'msg_private_first');
  38 Irssi::signal_add('message private', 'msg_private');