Changeset 267 for trunk/bMotion.tcl

Timestamp:

09/16/03 06:22:33 (9 years ago)

Author:

jamesoff

Message:

better logging handling

File:

• trunk/bMotion.tcl (modified) (2 diffs)

trunk/bMotion.tcl

@@ -31 +31 @@
 }
 
+foreach letter [split "d12345678" {}] {
+  set bMotionCache($letter,lastlog) ""
+  set bMotionCache($letter,lastcount) 0
+}
+
 proc bMotion_putloglev { level star text } {
-  global bMotion_testing
+  global bMotion_testing bMotionCache
   regsub "bMotion:" $text "" text
   set text2 ""
@@ -41 +46 @@
 
   if {$bMotion_testing == 0} {
+    if {$bMotionCache($level,lastlog) == $text} {
+      incr bMotionCache($level,lastcount)
+      return
+    }
+    if {$bMotionCache($level,lastcount) > 0} {
+      putloglev $level $star "($level)Previous message repeated $bMotionCache($level,lastcount) time(s)"
+    }
     putloglev $level $star "($level)$text"
+    set bMotionCache($level,lastlog) $text
+    set bMotionCache($level,lastcount) 0
   }
 }