forgot to initialize counter for Moron

[infobot.git] / src / core.pl

diff --git a/src/core.pl b/src/core.pl
index 860d6fb10581be3ca67cd633b951991df8a8381b..71f154acd4f459fae41ad2992ecb461bd4bb6e31 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -85,7 +85,7 @@ sub doExit {
        &quit($param{'quitMsg'}) if (&whatInterface() =~ /IRC/);
        &writeUserFile();
        &writeChanFile();
-       &uptimeWriteFile()      if (&IsParam("uptime"));
+       &uptimeWriteFile()      if (&ChanConfList("uptime"));
        &closeDB();
        &closeSHM($shm);
        &dumpallvars()          if (&IsParam("dumpvarsAtExit"));
@@ -128,16 +128,11 @@ sub IsParam {
 # Return: array of channels
 sub ChanConfList {
     my $param  = $_[0];
-    my %chan   = &getChanConfList($param);
-
     return unless (defined $param);
+    my %chan   = &getChanConfList($param);
 
     ### TODO: -option is included aswell though.
-    if ($chan{_default}) {
-       return keys %channels;
-    } else {
-       return keys %chan;
-    }
+    return keys %chan;
 }
 
 #####
@@ -341,6 +336,7 @@ sub startup {
     $count{'Question'} = 0;
     $count{'Update'}   = 0;
     $count{'Dunno'}    = 0;
+    $count{'Moron'}    = 0;
 }
 
 sub shutdown {
@@ -350,6 +346,9 @@ sub shutdown {
     &closeDB();
     &closeSHM($shm);   # aswell. TODO: use this in &doExit?
     &closeLog();
+    ### is this valid?
+    &writeUserFile();
+    &writeChanFile();
 }
 
 sub restart {
@@ -366,6 +365,7 @@ sub restart {
            return;
        }
 
+       &DCCBroadcast("-HUP called.","m");
        &shutdown();
        &loadConfig($bot_misc_dir."/blootbot.config");
        &reloadAllModules() if (&IsParam("DEBUG"));