- 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/wwwpulver.tcl

@@ -0,0 +1,43 @@
+#------------------------------------------------------------------------
+# This implements the wwwsics command which generates a listing of
+# important experiment parameters in html format for the SICS WWW Status
+# application. This version is for the powder diffractometers DMC and
+# HRPT. 
+#
+# Mark Koennecke, March 2000
+#------------------------------------------------------------------------
+proc wwwsics {} {
+#----- get all the data we need
+ set user  [GetNum [user]]
+ set sample [GetNum [sample]]
+ set tit    [GetNum [title]]
+ set ret [catch {lambda} msg]
+ if {$ret != 0 } {
+    set lam Undetermined
+ } else {
+    set lam [GetNum $msg]
+ }
+ set ret [catch {temperature} msg]
+ if {$ret != 0 } {
+    set tem Undetermined
+ } else {
+    set tem [GetNum $msg]
+ }
+ set run [GetNum [sicsdatanumber]]
+ catch {incr run} msg
+ set stat [GetNum [status]]
+#------- html format the reply
+ append result "<table BORDER=2>"
+ append result <tr> <th>Run Number</th> <td> $run </td> </tr>
+ append result <tr> <th>Title</th> <td> $tit </td> </tr>
+ append result <tr> <th>User</th> <td> $user </td> </tr>
+ append result <tr> <th>Sample </th> <td> $sample </td> </tr>
+ append result <tr> <th>wavelength</th> <td> $lam</td> </tr>
+ append result <tr> <th>Sample Temperature</th> <td> $tem</td> </tr>
+ append result <tr> <th>Status</th> <td> $stat</td> </tr>
+ append result </table>
+ return $result
+} 
+
+#------------ install command
+catch {Publish wwwsics Spy} msg