while (<$bans_fh>) {
# pull the ban and the times.
- print {$bans_k_fh} $_ and next unless my ($channel, $banmask, $time) =
- $_ =~ /(\#\w+)\:\s+ban\s+([\w\d\*\@\%\!\-\_\.]+)\s+\[by\s*.*?\,\s+(\d+)\s+secs/;
- print {$bans_k_fh} $_ and next unless $time > $options{age};
+ print {$bans_k_fh} "nomatch: $_" and next unless my ($channel, $banmask, $time) =
+ $_ =~ /(\#\w+)\:\s+ban\s+([^\s]+)\s+\[by\s*.*?\,\s+(\d+)\s+secs/;
+ print {$bans_k_fh} "time: $_" and next unless $time > $options{age};
# Ignore bans against specific users.
if ($options{user}) {
- print {$bans_k_fh} $_ and next if $banmask =~ /^\%?\w/
+ print {$bans_k_fh} "user: $_" and next if $banmask =~ /^\%?\w/
}
# Ignore wide bans
if ($options{wide}) {
- print {$bans_k_fh} $_ and next if $banmask =~ /\*\!.*?\@.*\*.*/;
+ print {$bans_k_fh} "wide: $_" and next if $banmask =~ /\*\!.*?\@.*\*.*/;
}
push @bans_to_remove, $banmask;