1 # /CLONES - Display clones in the active channel
2 # Modified by Roi Dayan. dejavo@punkass.com
7 my ($data, $server, $channel) = @_;
8 my $min_show_count = ($data =~ /^[0-9]+$/) ? $data : 2;
10 if (!$channel || $channel->{type} ne "CHANNEL") {
11 Irssi::print("No active channel in window");
18 foreach my $nick ($channel->nicks()) {
19 my @hosttmp = split(/\@/,$nick->{host});
20 $hostnames{$hosttmp[1]}++;
21 $hostnicks{$hosttmp[1]} = $hostnicks{$hosttmp[1]}.$hostnames{$hosttmp[1]}.". ".$nick->{nick}."!".$nick->{host}."\n";
22 $hostnicks{$hosttmp[1]} =~ s/^,//;
23 # $hostnicks{$hosttmp[1]} =~ s/\n$//;
26 foreach my $nick (keys %hostnicks) {
27 $hostnicks{$nick} =~ s/\n$//;
31 foreach my $host (keys %hostnames) {
32 my $clones = $hostnames{$host};
33 if ($clones >= $min_show_count) {
34 $channel->print("Clones:") if ($count == 0);
35 $channel->print("$host: $clones $hostnicks{$host}");
40 $channel->print("No clones in channel") if ($count == 0);
43 Irssi::command_bind('clones', 'cmd_clones');