- Fixed various Tcl drivers at startup

- Added a sinqhttp driver for the second generation HM object

tcl/pfeiffer.tcl

@@ -38,10 +38,10 @@ set pfiffpar [list Antitrumpet Be-filter Flightpath Sample-Chamber]
 proc pfiffstate {} {
     set val [sct target]
     if {[string compare $val on] == 0} { 
-	sct send "SEN_,2,2,2,2,0,0"
+	sct send "SEN ,2,2,2,2,0,0"
 	sct utime devon
     } else {
-	sct send "SEN_,1,1,1,1,0,0"
+	sct send "SEN ,1,1,1,1,0,0"
     }
     return pfiffstatereply
 }
@@ -106,7 +106,7 @@ foreach p $pfiffpar {
     incr count
 }
 
-hfactory /sics/pfiff/state plain user text
+hfactory /sics/pfiff/state plain spy text
 hupdate /sics/pfiff/state off
 hsetprop /sics/pfiff/state values on,off
 hsetprop /sics/pfiff/state write pfiffstate
@@ -121,8 +121,8 @@ proc pfiffread {num} {
 #--------------------------------------------------------
 proc vac {} {
     global pfiffpar
-    set test [pfiffread 1]
-    if {[string first off $test] > 0} {
+    set test [hval /sics/pfiff/state]
+    if {[string first off $test] >= 0} {
 	hset /sics/pfiff/state on
 	foreach p $pfiffpar {
 	    pfiffsct queue /sics/pfiff/$p progress read
@@ -135,4 +135,4 @@ proc vac {} {
     append result "Sample chamber  :  " [pfiffread 4] "\n"
     return $result
 }
-Publish vac Spy 
+Publish vac User