return;
}
- &msg($who, "Sending CTCP VERSION to #chan...");
+ &msg($who, "Sending CTCP VERSION to #$chan...");
$conn->ctcp("VERSION", $chan);
$cache{verstats}{chan} = $chan;
$cache{verstats}{who} = $who;
if (defined( my $whojoin = $cache{join}{$chan} )) {
&msg($chan, "Okay, I'm here. (courtesy of $whojoin)");
delete $cache{join}{$chan};
+ &joinNextChan(); # hack.
}
### TODO: move this to &joinchan()?
my $inow = scalar( keys %channels );
if ($iconf > 2 and $inow * 2 <= $iconf) {
&FIXME("ircCheck: current channels * 2 <= config channels. FIXME.");
- @joinchan = @x;
+ &FIXME("ircCheck: iconf = $iconf");
+ &FIXME("ircCheck: inow = $inow");
+# @joinchan = @x;
&joinNextChan();
}