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