From 1343cb158e628a2d8937022c6eca48441016d013 Mon Sep 17 00:00:00 2001 From: dms Date: Fri, 11 Jan 2002 13:08:52 +0000 Subject: [PATCH] - 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 --- src/CommandStubs.pl | 2 +- src/IRC/IrcHooks.pl | 1 + src/IRC/Schedulers.pl | 4 +++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl index c83d46a..e1cd950 100644 --- 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 757a62b..05548cb 100644 --- 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 54ada62..2274247 100644 --- 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(); } -- 2.39.5