/usr/share/irssi/scripts/wilm.pl is in irssi-scripts 20120326.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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" );
|