/usr/share/irssi/scripts/find.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 | # /FIND - display people who are in more than one channel with you
# (it's ugly code)
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "0.2";
%IRSSI = (
authors => "Erkki Seppälä",
contact => "flux\@inside.org",
name => "Find",
description => "Finds a nick by real name, if he's on a channel with you.",
license => "Public Domain",
url => "http://xulfad.inside.org/~flux/software/irssi/",
changed => "Mon Mar 4 23:25:18 EET 2002"
);
sub cmd_find {
my ($findName, $server, $channel) = @_;
if ($findName eq "") {
Irssi::print("usage: /find erkki");
return 1;
}
my %channicks, $channel;
my %found;
foreach $channel (Irssi::active_server()->channels()) {
foreach my $nick ($channel->nicks()) {
$found{$nick->{nick}} = 1 if $nick->{realname} =~ /$findName/i;
}
}
if (keys %found) {
Irssi::print($findName . " could be found with these nicks: " . join(", ", keys %found));
} else {
Irssi::print("Sorry, " . $findName . " could not be found.");
}
return 1;
}
Irssi::command_bind('find', 'cmd_find');
|