- ircCheck of channels should now try and join channels.. we'll see.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@543 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index c83d46a6cc1746c4757dd75e4f3b37bddf146a40..e1cd9504c3d2505124b9cffab39b05cf4dc6d152 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -797,7 +797,7 @@ sub do_verstats {
        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;

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 757a62be2d0c6f6a0d173c075fd6a5c8749c6aa6..05548cb5644c483ad5fe98c8f7b2a24cd5732988 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -541,6 +541,7 @@ sub on_join {
        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()?

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 54ada62038330fb9b4bbfed340b52ea7d0fb194c..22742476350e34186877c3375e65370adc7772c7 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -726,7 +726,9 @@ sub ircCheck {
     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();
     }