-sub hookMsg {
- ($msgType, $chan, $who, $message) = @_;
- my $skipmessage = 0;
- $addressed = 0;
- $addressedother = 0;
- $orig{message} = $message;
- $orig{who} = $who;
- $addrchar = 0;
-
- $message =~ s/[\cA-\c_]//ig; # strip control characters
- $message =~ s/^\s+//; # initial whitespaces.
- $who =~ tr/A-Z/a-z/; # lowercase.
-
- &showProc();
-
- # addressing.
- if ($msgType =~ /private/) {
- # private messages.
- $addressed = 1;
- } else {
- # public messages.
- # addressing revamped by the xk.
- ### below needs to be fixed...
- if (&IsParam("addressCharacter")) {
- if ($message =~ s/^$param{'addressCharacter'}//) {
- $addrchar = 1;
- $addressed = 1;
- }
- }
-
- if ($message =~ /^($mask{nick})([\;\:\>\, ]+) */) {
- my $newmessage = $';
- if ($1 =~ /^\Q$ident\E$/i) {
- $message = $newmessage;
- $addressed = 1;
- } else {
- # ignore messages addressed to other people or unaddressed.
- $skipmessage++ if ($2 ne "" and $2 !~ /^ /);
- }
- }
- }
-
- # Determine floodwho.
- my $c = "_default";
- if ($msgType =~ /public/i) { # public.
- $floodwho = $c = lc $chan;
- } elsif ($msgType =~ /private/i) { # private.
- $floodwho = lc $who;
- } else { # dcc?
- &DEBUG("FIXME: floodwho = ???");
- }
-
- my $val = &getChanConfDefault("floodRepeat", "2:10", $c);
- my ($count, $interval) = split /:/, $val;
-
- # flood repeat protection.
- if ($addressed) {
- my $time = $flood{$floodwho}{$message} || 0;
-
- if ($msgType eq "public" and (time() - $time < $interval)) {
- ### public != personal who so the below is kind of pointless.
- my @who;
- foreach (keys %flood) {
- next if (/^\Q$floodwho\E$/);
- next if (defined $chan and /^\Q$chan\E$/);
-
- push(@who, grep /^\Q$message\E$/i, keys %{ $flood{$_} });
- }
-
- return if ($lobotomized);
-
- if (scalar @who) {
- &msg($who, "you already said what ".
- join(' ', @who)." have said.");
- } else {
- &msg($who,"Someone already said that ". (time - $time) ." seconds ago" );
- }
-
- ### TODO: delete old floodwarn{} keys.
- my $floodwarn = 0;
- if (!exists $floodwarn{$floodwho}) {
- $floodwarn++;
- } else {
- $floodwarn++ if (time() - $floodwarn{$floodwho} > $interval);
- }
-
- if ($floodwarn) {
- &status("FLOOD repetition detected from $floodwho.");
- $floodwarn{$floodwho} = time();
- }
-
- return;
- }
-
- if ($addrchar) {
- &status("$b_cyan$who$ob is short-addressing me");
- } elsif ($msgType eq "private") { # private.
- &status("$b_cyan$who$ob is /msg'ing me");
- } else { # public?
- &status("$b_cyan$who$ob is addressing me");
- }
-
- $flood{$floodwho}{$message} = time();
- } elsif ($msgType eq "public" and &IsChanConf("kickOnRepeat")) {
- # unaddressed, public only.
-
- ### TODO: use a separate "short-time" hash.
- my @data;
- @data = keys %{ $flood{$floodwho} } if (exists $flood{$floodwho});
- }
-
- $val = &getChanConfDefault("floodMessages", "5:30", $c);
- ($count, $interval) = split /:/, $val;
-
- # flood overflow protection.
- if ($addressed) {
- foreach (keys %{$flood{$floodwho}}) {
- next unless (time() - $flood{$floodwho}{$_} > $interval);
- delete $flood{$floodwho}{$_};
- }
-
- my $i = scalar keys %{$flood{$floodwho}};
- if ($i > $count) {
- &msg($who,"overflow of messages ($i > $count)");
- &status("FLOOD overflow detected from $floodwho; ignoring");