#
use vars qw(%count %netsplit %netsplitservers %flood %dcc %orig
%nuh %talkWho %seen %floodwarn %param %dbh %ircPort
- %jointime %topic %joinverb %moduleAge %last %time %mask %file
+ %topic %moduleAge %last %time %mask %file
%forked %chanconf %channels
);
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;
+ }
}
#####
return $chan{_default} || 0;
}
- &DEBUG("param => $param, msgType => $msgType.");
- foreach (keys %chan) {
- &DEBUG(" $_ => $chan{$_}");
- }
+### debug purposes only.
+# &DEBUG("param => $param, msgType => $msgType.");
+# foreach (keys %chan) {
+# &DEBUG(" $_ => $chan{$_}");
+# }
return 0;
}
# read.
&loadLang($bot_misc_dir. "/blootbot.lang");
- &loadIRCServers($bot_misc_dir. "/ircII.servers");
+ &loadIRCServers();
&readUserFile();
&readChanFile();
&loadMyModulesNow(); # must be after chan file.
&closeDB();
&closeSHM($shm); # aswell. TODO: use this in &doExit?
&closeLog();
- ### is this valid?
- &writeUserFile();
- &writeChanFile();
}
sub restart {