my $iconf = scalar( @x );
my $inow = scalar( keys %channels );
if ($iconf > 2 and $inow * 2 <= $iconf) {
my $iconf = scalar( @x );
my $inow = scalar( keys %channels );
if ($iconf > 2 and $inow * 2 <= $iconf) {
- &FIXME("ircCheck: current channels * 2 <= config channels. FIXME.");
- &FIXME("ircCheck: iconf = $iconf");
- &FIXME("ircCheck: inow = $inow");
+ &FIXME("ircCheck: current channels ($inow) * 2 <= config channels ($iconf).");
# todo: shouldn't we use cache{connect} somewhere?
if (exists $cache{connect}) {
&WARN("ircCheck: no msg for 3600 and disco'd! reconnecting!");
# todo: shouldn't we use cache{connect} somewhere?
if (exists $cache{connect}) {
&WARN("ircCheck: no msg for 3600 and disco'd! reconnecting!");
next if ($pid == $bot_pid);
# don't touch other bots, if they're running.
next unless ($param{ircNick} =~ /^\Q$n\E$/);
} else {
next if ($pid == $bot_pid);
# don't touch other bots, if they're running.
next unless ($param{ircNick} =~ /^\Q$n\E$/);
} else {