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