$itc =~ s/([^\w\s])/\\$1/g;
my $z = join '|', split ' ', $itc;
+ if ($msgType eq "privmsg" and $message =~ / ($mask{chan})$/) {
+ &DEBUG("ircTC: privmsg detected; chan = $1");
+ $chan = $1;
+ }
+
if ($message =~ /^_stats(\s+(\S+))$/i) {
&textstats_main($2);
return;
return;
}
- &msg($who, "Sending CTCP VERSION...");
+ &msg($who, "Sending CTCP VERSION to #$chan...");
$conn->ctcp("VERSION", $chan);
$cache{verstats}{chan} = $chan;
$cache{verstats}{who} = $who;
$conn->schedule(30, sub {
my $c = lc $cache{verstats}{chan};
@vernicktodo = ();
+
foreach (keys %{ $channels{$c}{''} } ) {
next if (grep /^\Q$_\E$/i, @vernick);
push(@vernicktodo, $_);
}
- &DEBUG("verstats(30): we have ".scalar(@vernicktodo)." nicks to do");
-
&verstats_flush();
} );