Changeset 3187 for trunk/gui/scripts/logger.tcl

Timestamp:

Oct 22, 2012, 7:51:31 PM (12 years ago)

Author:

mmc

Message:

Fixed the main program to catch kill signals and program termination
and flush the log buffer before exiting. Also saves "finished" as the
last message in the log.

Fixed the logger to see if the log directory is missing and warn about
it and turn off logging (rather than crapping out or trying to create
the log directory). The specific date for the log directory (e.g.,
/data/userlogs/2012-10-19) must be created by the middleware so that all
users can share it.

Added log messages for tooltips on the output quantities, and for almost
everything in the HeightmapViewer?.

File:

• trunk/gui/scripts/logger.tcl (modified) (3 diffs)

trunk/gui/scripts/logger.tcl

@@ -96 +96 @@
         set dir [file join $env(RAPPTURE_LOG) $dir]
         if {![file isdirectory $dir]} {
-            file mkdir $dir
+            puts stderr "WARNING: log directory \"$dir\" doesn't exist"
+            return
         }
 
@@ -169 +170 @@
         proc ::Rappture::Logger::log {event args} { # do nothing }
     }
+
+    # catch signals that kill the program and clean up logging
+    package require Rappture
+    Rappture::signal SIGHUP RapptureLogger ::Rappture::Logger::cleanup
+    Rappture::signal SIGINT RapptureLogger ::Rappture::Logger::cleanup
+    Rappture::signal SIGQUIT RapptureLogger ::Rappture::Logger::cleanup
+    Rappture::signal SIGTERM RapptureLogger ::Rappture::Logger::cleanup
+    Rappture::signal SIGKILL RapptureLogger ::Rappture::Logger::cleanup
 }
 
@@ -182 +191 @@
     # do nothing by default until turned on by init
 }
+
+# ----------------------------------------------------------------------
+# USAGE: cleanup
+#
+# Called when the program receives a signal that would normally kill
+# the program.  Flushes the buffer and closes the log file cleanly
+# before dying.
+# ----------------------------------------------------------------------
+proc Rappture::Logger::cleanup {} {
+    variable enabled
+    variable fid
+
+    if {$enabled && $fid ne ""} {
+        log finished
+        catch {flush $fid}
+        catch {close $fid}
+        set fid ""
+        set enabled 0
+    }
+    after idle exit
+}