Changeset 935 for trunk/modules/extra/stats.tcl

Timestamp:

30/06/2008 16:12:16 (5 months ago)

Author:

james

Message:

put the stats file somewhere sensible now

Files:

• trunk/modules/extra/stats.tcl (modified) (2 diffs)

trunk/modules/extra/stats.tcl

@@ -216 +216 @@
 proc bMotion_stats_load { } {
         global bMotionModules bMotion_stats_id bMotion_stats_time bMotion_stats_key
+        global bMotionLocal
 
         set line ""
 
         set bMotion_stats_time 0
+
+        # look for a stats file in the local dir first
+        set statsFile "$bMotionLocal/stats.txt"
+
+        if {![file exists $statsFile]} {
+                # try in the old location
+                set statsFile "$bMotionModules/stats.txt"
+        }
 
         catch {
@@ -261 +270 @@
         bMotion_putloglev 4 * "bMotion_stats_write"
         global bMotion_stats_id bMotion_stats_key bMotionModules
-        set fileHandle [open "$bMotionModules/stats.txt" "w"]
+        global bMotionLocal
+
+        set fileHandle [open "$bMotionLocal/stats.txt" "w"]
 
         puts $fileHandle [clock seconds]