linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SICS-640: Don't broadcast autosave message.

Browse Source 
Also allow 'autosave status' to check if autosave is enabled.
This commit is contained in:
Ferdi Franceschini
2013-08-03 18:38:44 +10:00
parent 6473498cb2
commit dc0f9b56a9
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
site_ansto/instrument/server_config.tcl
View File

@@ -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 {