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