
A
PPENDIX
H:
TCL
P
ROGRAMMING
G
UIDE
155
Basic TCL Server Example
while (1) {
amppermission off
set s ""
set s [amplisten]
if {[string length $s] !=0} {
puts $s
ampresponse
}
if {[string length $s] == 5} {
amppermision on
break
}
}
Script Function Description:
This TCL Server will echo back any strings from any client who connects to the TCL interpreter through
the TCL Scripting Window.
Key programming points:
amplisten
checks to see if there is a new command from any client.
Puts
will push back the response to the output buffer.
ampresponse
will push the previous response back to the EXACT client who sent the command.
Due to security, the TCL scripting feature is not normally accessible by Operators or Observers. However,
for the TCL Server to be general, Operators and Observers need access to the TCL scripting feature.
amppermission
allows such communication. Also, when reset,
amppersmission
will, by default, be on.
(Hence, only explicit “unlocks” by the Administrator are allowed.)
Summary of Contents for SX32
Page 2: ...This page intentionally left blank ...
Page 4: ...This page intentionally left blank ...
Page 78: ...68 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 90: ...80 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 94: ...84 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 102: ...92 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 106: ...96 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 108: ...98 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 122: ...112 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 134: ...124 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 174: ...164 DOMINION SX INSTALLATION AND OPERATIONS MANUAL ...
Page 177: ...APPENDIX J TECHNICAL FAQS 167 ...
Page 178: ...168 DOMINION SX INSTALLATION AND OPERATIONS MANUAL 255 60 2000 ...