init setup pelican config

r3299 | jgn | 2011-12-01 09:48:44 +1100 (Thu, 01 Dec 2011) | 1 line
This commit is contained in:
Jing Chen
2011-12-01 09:48:44 +11:00
committed by Douglas Clowes
parent 42166b51ac
commit ec7389b6fd

View File

@@ -88,7 +88,7 @@ proc ::scobj::hv::getParaFunc {} {
# @brief Read and record the parameters' values from the HV device
proc ::scobj::hv::rdParaStateFunc {basePath} {
set replyStr [sct result]
broadcast "Reply from hv_get: $replyStr"
#broadcast "Reply from hv_get: $replyStr"
if {[string first "Error" $replyStr] != -1} {
broadcast "ERROR: cannot get the current parameters setting from the HV device, check again!"
@@ -105,7 +105,7 @@ proc ::scobj::hv::rdParaStateFunc {basePath} {
hset $basePath/hv2 $paraArr(hv2)
hset $basePath/i2 $paraArr(i2)
broadcast "HV1:$paraArr(hv1); I1:$paraArr(i1); HV2:$paraArr(hv2); I2:$paraArr(i2)\n"
#broadcast "HV1:$paraArr(hv1); I1:$paraArr(i1); HV2:$paraArr(hv2); I2:$paraArr(i2)\n"
sct utime readtime
}