1# wilm.pl
2# Lam 28.10.2001, 10.3.2002
3# lam@lac.pl
4
5use strict;
6use vars qw($VERSION %IRSSI);
7$VERSION = "1.0.1";
8%IRSSI = (
9	authors => "Leszek Matok",
10	contact => "lam\@lac.pl",
11	name => "wilm",
12	description => "Provides /wilm and /wiilm commands, which do a whois on a person who sent you last private message",
13	license => "Public Domain",
14	changed => "10.3.2002 14:00"
15);
16
17my $last_nick;
18my $last_server;
19
20sub wilm {
21	my @all_servers = Irssi::servers();
22	foreach my $one_server ( @all_servers ) {
23		if ( $one_server = $last_server ) {
24			$one_server->command( "whois $last_nick" );
25			return;
26		}
27	}
28	Irssi::print( "noone to whois" );
29}
30
31sub wiilm {
32	my @all_servers = Irssi::servers();
33	foreach my $one_server ( @all_servers ) {
34		if ( $one_server = $last_server ) {
35			$one_server->command( "whois $last_nick $last_nick" );
36			return;
37		}
38	}
39	Irssi::print( "noone to whois" );
40}
41
42sub privmsg {
43	my ( $server, $data, $nick, $address ) = @_;
44	my ( $target, $text ) = split( / :/, $data, 2 );
45
46	if ( ( lc $target ) eq ( lc $server->{ nick } ) ) {
47		$last_nick = $nick;
48		$last_server = $server;
49	}
50}
51
52Irssi::command_bind( "wilm", "wilm" );
53Irssi::command_bind( "wiilm", "wiilm" );
54Irssi::signal_add( "event privmsg", "privmsg" );
55