diff --git a/site_ansto/instrument/config/environment/sct_protek_common.tcl b/site_ansto/instrument/config/environment/sct_protek_common.tcl index 93e6d060..fa75d43b 100644 --- a/site_ansto/instrument/config/environment/sct_protek_common.tcl +++ b/site_ansto/instrument/config/environment/sct_protek_common.tcl @@ -79,6 +79,7 @@ proc ProtekMainDisplay {protek nextState} { if [catch { set stateRep [hval $protek/state] set MDpath [sct] + set parname [file tail $MDpath] set scale [hval $MDpath/scale] set offset [hval $MDpath/offset] array set SA [split $stateRep "|:"] @@ -96,6 +97,7 @@ proc ProtekMainDisplay {protek nextState} { if {$MDISP != $oldval} { sct update $MDISP sct oldval $MDISP + protek_debug_log $parname $MDISP } } msg ] { return -code error "[info level 0]: $msg" @@ -103,6 +105,11 @@ proc ProtekMainDisplay {protek nextState} { return $nextState } +proc protek_debug_log {name args} { +set fd [open "/usr/local/sics/data/protek_$name.csv" a] +puts $fd "[clock format [clock seconds] -format "%d/%m/%Y, %T"], $args" +close $fd +} ## # @brief Makes a state monitor object for the protek multimeter #