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