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

diff --git a/src/core.pl b/src/core.pl
index dbe2e32f09f48f0154758b9c68bf096aa22669e0..3c8a7d1f2a5b8bac0c2da2a64cef52677db3e7c8 100644 (file)
--- 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;
+    }
 }
 
 #####