irchandlers: now handles multiple modes; e.g. -bbb-o

chanops: moved flushqueues to inside loop
anti-flood/bantracker: now tracks quiets as well as bans
anti-flood: should now ban proxied hosts using a banned nickserv account -- untested

PBot/AntiFlood.pm

@@ -392,16 +392,32 @@ sub address_to_mask {
 sub check_nickserv_accounts {
   my ($self, $nick, $account) = @_;
 
+  my $banned_channel = undef;
+
   foreach my $mask (keys %{ $self->{message_history} }) {
     if(exists $self->{message_history}->{$mask}->{nickserv_account}) {
       if(lc $self->{message_history}->{$mask}->{nickserv_account} eq lc $account) {
         $self->{pbot}->logger->log("anti-flood: [check-account] $nick [nickserv: $account] seen previously as $mask.\n");
+        my $baninfo = $self->{pbot}->bantracker->get_baninfo($mask);
+        if(defined $baninfo) {
+          $self->{pbot}->logger->log("anti-flood: [check-bans] $mask is banned in $baninfo->{channel} by $baninfo->{owner}\n");
+          $banned_channel = $baninfo->{channel};
+        }
       }
     } 
     else {
       if($mask =~ m/^\Q$nick\E!/i) {
         $self->{pbot}->logger->log("anti-flood: $mask: setting nickserv account to [$account]\n");
         $self->message_history->{$mask}->{nickserv_account} = $account;
+        
+        if(defined $banned_channel) {
+          my $banmask;
+          $mask =~ m/[^@]+\@(.*)/;
+          $banmask = "*!*\@$1";
+
+          $self->{pbot}->logger->log("anti-flood: [$account] is banned in $banned_channel, banning $banmask.\n");
+          $self->{pbot}->chanops->ban_user_timed($banmask, $banned_channel, 60 * 60 * 5);
+        }
       }
     }
   }

PBot/BanTracker.pm

@@ -56,7 +56,31 @@ sub get_banlist {
   delete $self->{banlist}->{$channel};
 
   $self->{pbot}->logger->log("Retrieving banlist for $channel.\n");
-  $conn->sl("mode $channel +b");
+  $conn->sl("mode $channel +bq");
+}
+
+sub get_baninfo {
+  my ($self, $mask) = @_;
+
+  $mask = quotemeta $mask;
+
+  $mask =~ s/\\\*/.*?/g;
+  $mask =~ s/\\\?/./g;
+
+  $self->{pbot}->logger->log("get-baninfo: mask regex: $mask\n");
+
+  foreach my $channel (keys %{ $self->{banlist} }) {
+    foreach my $banmask (keys %{ $self->{banlist}{$channel} }) {
+      if($banmask =~ m/$mask/i) {
+        my $baninfo = {};
+        $baninfo->{channel} = $channel;
+        $baninfo->{owner} = $self->{banlist}{$channel}[0];
+        return $baninfo;
+      }
+    }
+  }
+
+  return undef;
 }
 
 sub on_banlistentry {
@@ -76,11 +100,11 @@ sub track_mode {
   my $self = shift;
   my ($source, $mode, $target, $channel) = @_;
 
-  if($mode eq "+b") {
+  if($mode eq "+b" or $mode eq "+q") {
     $self->{pbot}->logger->log("ban-tracker: $target banned by $source in $channel.\n");
     $self->{banlist}->{$channel}->{$target} = [ $source, gettimeofday ];
   }
-  elsif($mode eq "-b") {
+  elsif($mode eq "-b" or $mode eq "-q") {
     $self->{pbot}->logger->log("ban-tracker: $target unbanned by $source in $channel.\n");
     delete $self->{banlist}->{$channel}->{$target};
   } else {

PBot/ChanOps.pm

@@ -75,9 +75,9 @@ sub perform_op_commands {
       $self->{pbot}->logger->log("  executing kick on $1 $2 $3\n");
     }
     shift(@{ $self->{op_commands} });
-  }
     $self->{pbot}->{irc}->flush_output_queue();
     $self->{pbot}->{irc}->do_one_loop();
+  }
   $self->{pbot}->logger->log("Done.\n");
 }
 

PBot/IRCHandlers.pm

@@ -116,14 +116,31 @@ sub on_action {
 sub on_mode {
   my ($self, $conn, $event) = @_;
   my ($nick, $user, $host) = ($event->nick, $event->user, $event->host);
-  my $mode = $event->{args}[0];
-  my $target = $event->{args}[1];
+  my $mode_string = $event->{args}[0];
   my $channel = $event->{to}[0];
   $channel = lc $channel;
 
+  my ($mode, $modifier);
+  my $i = 0;
+  my $target;
+
+  use Data::Dumper;
+  print Dumper($event), "\n";
+
+  while($mode_string =~ m/(.)/g) {
+    my $char = $1;
+
+    if($char eq '-' or $char eq '+') {
+      $modifier = $char;
+      next;
+    }
+
+    $mode = $modifier . $char;
+    $target = $event->{args}[++$i];
+
     $self->{pbot}->logger->log("Got mode: source: $nick!$user\@$host, mode: $mode, target: " . (defined $target ? $target : "(undef)") . ", channel: $channel\n");
 
-  if($mode eq "-b" or $mode eq "+b") {
+    if($mode eq "-b" or $mode eq "+b" or $mode eq "-q" or $mode eq "+q") {
       $self->{pbot}->bantracker->track_mode("$nick!$user\@$host", $mode, $target, $channel);
     }
 
@@ -172,6 +189,7 @@ sub on_mode {
       }
     }
   }
+}
 
 sub on_join {
   my ($self, $conn, $event) = @_;

PBot/VERSION.pm

@@ -13,7 +13,7 @@ use warnings;
 # These are set automatically by the build/commit script
 use constant {
   BUILD_NAME     => "PBot",
-  BUILD_REVISION => 312,
+  BUILD_REVISION => 313,
   BUILD_DATE     => "2011-02-13",
 };