- Fixed a bug which caused the SICServer to die when a socket was broken.

- Fixed many things in DIFRAC subsystem:
  * Recoded tcentr.f etc so that the course centering will work and will not
    go into an endless loop.
  * fixed boundary overwrites which occurred when yesno or alfnum where
    uset to get a single character and several were given.
  * Addeded documentation for DIFRAC
- Added tcl-files which  support the WWW status system

tcl/count.tcl

@@ -10,6 +10,7 @@ proc SplitReply { text } {
 }
 #--------------------------------------------------------------------------
 proc count { {mode  NULL } { preset NULL } } {
+     starttime [sicstime]
 #----- deal with mode
      set mode2 [string toupper $mode]
      set mode3 [string trim $mode2]
@@ -32,14 +33,21 @@ proc count { {mode  NULL } { preset NULL } } {
                $bb $aa] 
 #------- count
      banana InitVal 0
+     wait 1
      banana count
-     Success
+     set ret [catch {Success} msg]
 #------- StoreData
-#     ClientPut [StoreData]
+#     StoreData
+     if { $ret != 0 } {
+       error [format "Counting ended with error"]
+     }
 }
 #---------------- Repeat -----------------------------------------------
 proc repeat { num {mode  NULL} {preset NULL} }  {
      for { set i 0 } { $i < $num } { incr i } {
-        count $mode $preset
+        set ret [catch {count $mode $preset} msg]
+        if {$ret != 0} {
+            error "Counting ended with error"
+        }
      }
 }