Use Tie::CPHash to make %::sn and %::sc case-insensitiveish.

Clean up commands.xml and fix some bugs
Add clone detection
Minimize some excessive warnings
Greatly improve syncing speed

1 files changed, 14 insertions, 1 deletions

diff --git a/lib/ASM/Classes.pm b/lib/ASM/Classes.pm
index 2fae035..1f0e3ef 100644
--- a/lib/ASM/Classes.pm
+++ b/lib/ASM/Classes.pm
@@ -37,13 +37,26 @@ sub new
     "garbagemeter" => \&garbagemeter,
     "cyclebotnet" => \&cyclebotnet,
     "banevade" => \&banevade,
-    "urlcrunch" => \&urlcrunch
+    "urlcrunch" => \&urlcrunch,
+    "cloning" => \&cloning
   };
   $self->{ftbl} = $tbl;
   bless($self);
   return $self;
 }
 
+sub cloning {
+  my ($chk, $id, $event, $chan, $rev) = @_;
+  my $max = int($chk->{content});
+  my @nicks = grep {($::sn{$_}->{host} eq $event->{host}) && (lc $chan ~~ $::sn{$_}->{mship})} keys %::sn;
+  # It's lines like these that make me love Perl no matter how much it drives dwfreed up a tree.
+  # Understanding how that line works is simple and is left as an exercise to the reader.
+  if ($#nicks >= $max) {
+    return ASM::Util->commaAndify(@nicks);
+  }
+  return 0;
+}
+
 sub garbagemeter {
   my ($chk, $id, $event, $chan, $rev) = @_;
   my @cut = split(/:/, $chk->{content});