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

diff --git a/src/logger.pl b/src/logger.pl
index 79f49d7cc6f17713c17527c399ef719c49f1dc12..5718a026857622a3a407f3a845178c17cb4f6c23 100644 (file)
--- 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) {