my ($count, $interval) = split /:/, $val;
# flood repeat protection.
if ($addressed) {
my $time = $flood{$floodwho}{$message} || 0;
my ($count, $interval) = split /:/, $val;
# flood repeat protection.
if ($addressed) {
my $time = $flood{$floodwho}{$message} || 0;
&status("$b_cyan$who$ob is /msg'ing $mynick");
} else { # public?
&status("$b_cyan$who$ob is addressing $mynick");
}
$flood{$floodwho}{$message} = time();
&status("$b_cyan$who$ob is /msg'ing $mynick");
} else { # public?
&status("$b_cyan$who$ob is addressing $mynick");
}
$flood{$floodwho}{$message} = time();
# unaddressed, public only.
### TODO: use a separate "short-time" hash.
# unaddressed, public only.
### TODO: use a separate "short-time" hash.
($count, $interval) = split /:/, $val;
# flood overflow protection.
($count, $interval) = split /:/, $val;
# flood overflow protection.
if (scalar keys %netsplit) {
&WARN("clV: netsplit active (1, chan = $chan); skipping.");
if (scalar keys %netsplit) {
&WARN("clV: netsplit active (1, chan = $chan); skipping.");