From b7d8eae5699f9e77e4349b2627c38fea4b02c171 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 9 Feb 2001 16:29:59 +0000
Subject: [PATCH] slight change to ChanConfList to make schedulers work again

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@377 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/core.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/core.pl b/src/core.pl
index dbe2e32..3c8a7d1 100644
--- a/src/core.pl
+++ b/src/core.pl
@@ -131,8 +131,16 @@ sub ChanConfList {
     return unless (defined $param);
     my %chan	= &getChanConfList($param);
 
-    ### TODO: -option is included aswell though.
-    return keys %chan;
+    # what if we have it set on _default and a few channels with
+    # negative set? perhaps we should disable -blah settings to remove
+    # this mess.
+
+    if (exists $chan{_default}) {
+	return keys %chanconf;
+    } else {
+	### TODO: -option is included aswell though.
+	return keys %chan;
+    }
 }
 
 #####
-- 
2.39.5