zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-11 21:00:40 +02:00
Code Issues Projects Releases Packages Wiki Activity

updated

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@976 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-06 05:42:13 +00:00 • committed by cras
commit d22ca4efe5
8 changed files with 24 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/clones.pl
View file

@ -1,16 +1,15 @@
# /CLONES - display real name of nick
use Irssi;
use Irssi::Irc;
sub cmd_clones {
my ($data, $server, $channel) = @_;
my %hostnames, $host, @nicks, $nick;
@nicks = $channel->nicklist_getnicks();
@nicks = $channel->nicks();
foreach $nick (@nicks) {
$hostnames{$nick->values()->{'host'}}++;
$hostnames{$nick->{host}}++;
}
$channel->print("Clones:");