diff --git a/site_ansto/instrument/server_config.tcl b/site_ansto/instrument/server_config.tcl index 2a5bd794..e58d25c6 100644 --- a/site_ansto/instrument/server_config.tcl +++ b/site_ansto/instrument/server_config.tcl @@ -310,7 +310,7 @@ proc doAutosave {} { #broadcast CALLED: [info level 0], HMSTATE = $HMSTATE, FSTATE = $FSTATE if { $FSTATE != "UNKNOWN" && $FSTATE != "OPEN" && $HMSTATE == "Started"} { set saveIndex [SplitReply [autosaveIndex] ] - broadcast autosave $saveIndex +# broadcast autosave $saveIndex save $saveIndex "autosave" } } @@ -318,7 +318,8 @@ publish doAutosave user proc autosave { {interval 300} } { global AUTOSAVE_STATE - if {$interval == "check"} { + set interval [string tolower $interval] + if {$interval == "check" || $interval == "status"} { if { $AUTOSAVE_STATE == "ENABLED" } { return "AUTOSAVE $AUTOSAVE_STATE [sicspoll intervall doAutosave]" } else {