From dc0f9b56a9d7c75eb58f34360e76bff8a561259c Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Sat, 3 Aug 2013 18:38:44 +1000
Subject: [PATCH] SICS-640: Don't broadcast autosave message. Also allow
 'autosave status' to check if autosave is enabled.

---
 site_ansto/instrument/server_config.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 {