foreach (sort keys %channels) {
if ( /^\s*$/ or / / ) {
&status("chanstats: fe channels: chan == NULL.");
- &ircCheck();
+ #&ircCheck();
next;
}
next if (/^_default$/);
push(@array, $str);
}
&pSReply($reply.": ".join(', ', @array));
+ &ircCheck();
### total user count.
foreach $chan (keys %channels) {
my ($force) = ($1) ? 1 : 0;
$force = 0 unless (&IsFlag("n"));
- # cannot trust Net::IRC's nick()
+ # cannot trust Net::IRC's nick() (TimRiker asks why?)
if ($param{'ircNick'} eq $ident) {
&msg($who, "I hope you're right. I'll try anyway.");
&DEBUG("ircNick => $param{'ircNick'}");