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
|
# /FIND - display people who are in more than one channel with you
# (it's ugly code)
use strict;
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');
|
