- Had temperature updated during data file writing

test/testini.tcl

@@ -327,6 +327,9 @@ hsetprop /sics/farm/schneggecon readCommand   schget
 hsetprop /sics/farm/schneggecon replyCommand  schreply
 }
 
+set farm 0
+
+if {$farm == 1} {
 #-------------- Test new async protocol controller
 makesctcontroller farmser std localhost:7070
 MakeSICSObj farm TestObj
@@ -448,16 +451,19 @@ proc schneggestatus {} {
 #---------------------------------------------
 hsetprop /sics/farm/schnegge checklimits schneggechecklimits
 hsetprop /sics/farm/schnegge checkstatus schneggestatus
-makesctdrive schnecke /sics/farm/schnegge farmser
+#makesctdrive schnecke /sics/farm/schnegge farmser
+makesctdriveobj schnecke /sics/farm/schnegge DriveAdapter farmser
 
+}
 
 #---------- test http
-set httptest 0
+set httptest 1
 
 if {$httptest == 1} {
-makesctcontroller amorhmsct sinqhttp amorhm data 60 spy 007
+makesctcontroller amorhmsct sinqhttp amorhm data 180 spy 007
 #makesctcontroller amorhmsct sinqhttp localhost:8080 data 60 spy 007
 MakeSICSObj amorhm HttpTest
+amorhmsct debug -1
 #------------------
 proc statget {} {
     sct send "admin/textstatus.egi"
@@ -471,12 +477,13 @@ proc statreply {} {
 }
 #-----------------
 proc readcollapse {} {
-    sct send "admin/processhmdata.egi?bank=0&command=sum:2:0:200"
+    sct send "admin/processhmdata.egi?bank=0&command=sum:2:0:400"
     return colread
 }
 #-----------------
 proc colreply {} {
     sct utime readtime
+    set data [sct result]
     return idle
 }
 #-------------------------
@@ -488,7 +495,7 @@ amorhmsct poll /sics/amorhm/status 10
 hattach /sics/amorhm data intvarar collapse
 hsetprop /sics/amorhm/collapse read readcollapse
 hsetprop /sics/amorhm/collapse colread colreply
-amorhmsct poll /sics/amorhm/collapse 60
+amorhmsct poll /sics/amorhm/collapse 20
 
 }