X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fscripts%2Fclones.pl;fp=apps%2Firssi%2Fscripts%2Fclones.pl;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=59c22c3fd169798fe4d6177b771f61db6ed03170;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git

diff --git a/apps/irssi/scripts/clones.pl b/apps/irssi/scripts/clones.pl
deleted file mode 100644
index 59c22c3f..00000000
--- a/apps/irssi/scripts/clones.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-# /CLONES - Display clones in the active channel
-# Modified by Roi Dayan. dejavo@punkass.com
-
-use strict;
-
-sub cmd_clones {
-  my ($data, $server, $channel) = @_;
-  my $min_show_count = ($data =~ /^[0-9]+$/) ? $data : 2;
-
-  if (!$channel || $channel->{type} ne "CHANNEL") {
-    Irssi::print("No active channel in window");
-    return;
-  }
-
-  my %hostnames = {};
-  my %hostnicks = {};
-  my @hosttmp = {};
-  foreach my $nick ($channel->nicks()) {
-    my @hosttmp = split(/\@/,$nick->{host});
-    $hostnames{$hosttmp[1]}++;
-    $hostnicks{$hosttmp[1]} = $hostnicks{$hosttmp[1]}.$hostnames{$hosttmp[1]}.". ".$nick->{nick}."!".$nick->{host}."\n";
-    $hostnicks{$hosttmp[1]} =~ s/^,//;
-#    $hostnicks{$hosttmp[1]} =~ s/\n$//;
-  }
-  
-  foreach my $nick (keys %hostnicks) {
-    $hostnicks{$nick} =~ s/\n$//;
-  }
-
-  my $count = 0;
-  foreach my $host (keys %hostnames) {
-    my $clones = $hostnames{$host};
-    if ($clones >= $min_show_count) {
-      $channel->print("Clones:") if ($count == 0);
-      $channel->print("$host: $clones $hostnicks{$host}");
-      $count++;
-    }
-  }
-
-  $channel->print("No clones in channel") if ($count == 0);
-}
-
-Irssi::command_bind('clones', 'cmd_clones');