Merge from Quokka sct_protek_common.tcl

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
 #