From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 20 Feb 2001 12:59:09 +0000 (+0000)
Subject: - lobotomy cache flush.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a9657539941d36f1e4fa95badfcefea25248033b;p=infobot.git

- lobotomy cache flush.
- disable uptime if not loaded.
- minor output update.


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@407 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/src/IRC/Schedulers.pl b/blootbot/src/IRC/Schedulers.pl
index a0ab80d..65819a1 100644
--- a/blootbot/src/IRC/Schedulers.pl
+++ b/blootbot/src/IRC/Schedulers.pl
@@ -674,6 +674,12 @@ sub miscCheck {
 	CORE::system("/bin/cp $f $f~");
     }
 
+    # flush cache{lobotomy}
+    foreach (keys %{ $cache{lobotomy} }) {
+	next unless (time() - $cache{lobotomy}{$_} > 60*60);
+	delete $cache{lobotomy}{$_};
+    }
+
     ### check modules if they've been modified. might be evil.
     &reloadAllModules();
 }
@@ -742,6 +748,8 @@ sub getNickInUse {
 }
 
 sub uptimeLoop {
+    return unless &IsChanConf("uptime");
+
     if (@_) {
 	&ScheduleThis(60, "uptimeLoop");
 	return if ($_[0] eq "2");	# defer.
@@ -987,7 +995,7 @@ sub getChanConfDefault {
 
     if (exists $param{$what}) {
 	if (!exists $cache{config}{$what}) {
-	    &status("gCCD: backward-compat: found param{$what} ($param{$what}) instead.");
+	    &status("conf: backward-compat: found param{$what} ($param{$what}) instead.");
 	    $cache{config}{$what} = 1;
 	}
 
@@ -1000,7 +1008,7 @@ sub getChanConfDefault {
     }
 
     $param{$what}	= $default;
-    &status("gCCD: auto-setting param{$what} = $default");
+    &status("conf: auto-setting param{$what} = $default");
     $cache{config}{$what} = 1;
 
     return $default;