From 0a241de1cc04678cd76aaff8a55d449afb99e2f1 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 31 Jul 2000 12:47:36 +0000
Subject: [PATCH] Added functionality to cycle all logs if exceeds specified
 size

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@20 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/logger.pl | 39 +++++++++++++++++++++++++++++++++------
 1 file changed, 33 insertions(+), 6 deletions(-)

diff --git a/src/logger.pl b/src/logger.pl
index 79f49d7..5718a02 100644
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -1,19 +1,22 @@
 #
 # logger.pl: logger functions!
 #    Author: dms
-#   Version: 19991205
+#   Version: v0.3 (20000731)
+#  FVersion: 19991205
 #      NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
 use strict;
 
-use vars qw($logDate $loggingstatus $statcount $infobot_pid
-	    $statcountfix $addressed);
+use vars qw($logDate $loggingstatus $statcount $bot_pid
+	    $statcountfix $addressed $logcount $logtime);
 use vars qw(@backlog);
 use vars qw(%param %file);
 
 require 5.001;
 
+$logtime	= time();
+
 my %attributes = (
 	'clear'      => 0,
 	'reset'      => 0,
@@ -148,7 +151,11 @@ sub WARN {
 }
 
 sub FIXME {
-    &status("${b_cyan}!FIXME!$ob $_[0] (SHOULD NOT HAPPEN)");
+    &status("${b_cyan}!FIXME!$ob $_[0] (SHOULD NOT HAPPEN?)");
+}
+
+sub TODO {
+    &status("${b_cyan}!TODO!$ob $_[0]");
 }
 
 sub VERB {
@@ -174,12 +181,32 @@ sub status {
     $statcount++;
 
     # fix style of output if process is child.
-    if (defined $infobot_pid and $$ != $infobot_pid and !defined $statcountfix) {
+    if (defined $bot_pid and $$ != $bot_pid and !defined $statcountfix) {
 	$statcount	= 1;
 	$statcountfix	= 1;
     }
 
-    # for logging and non-ansi control.
+    ### LOG THROTTLING.
+    ### TODO: move this _after_ printing?
+    my $time = time();
+    my $reset = 0;
+    if ($logtime != $time) {
+	$reset++;
+    } elsif ($logtime == $time) {
+	if ($logcount < 25) {		# too high?
+	    $logcount++;
+	} else {
+	    sleep 1;
+	    &status("LOG: Throttling.");	# recursive?
+	    $reset++;
+	}
+    }
+    if ($reset) {
+	$logtime	= $time;
+	$logcount	= 0;
+    }
+
+    # Log differently for forked/non-forked output.
     if ($statcountfix) {
 	$status = "!$statcount! ".$input;
 	if ($statcount > 1000) {
-- 
2.39.2