diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-12-06 05:42:13 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-12-06 05:42:13 +0000 |
| commit | d22ca4efe5261e81fc50e51cde03a75c6c43ab5c (patch) | |
| tree | 8641961c49e7647a5c52cf90273aee1ee5e22d3a /scripts/clones.pl | |
| parent | bb594d2aa648619f02f04d8db0b7efffa24b9c77 (diff) | |
| download | irssi-d22ca4efe5261e81fc50e51cde03a75c6c43ab5c.zip | |
updated
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@976 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts/clones.pl')
| -rw-r--r-- | scripts/clones.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/clones.pl b/scripts/clones.pl index a562b968..5a0c61a2 100644 --- a/scripts/clones.pl +++ b/scripts/clones.pl @@ -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:"); |