A
PPENDIX
H:
TCL
P
ROGRAMMING
G
UIDE
149
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 DOMINION SX -
Page 2: ......
Page 4: ...This page intentionally left blank...
Page 20: ...10 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 78: ...68 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 80: ...70 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 88: ...78 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 96: ...86 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 98: ...88 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 100: ...90 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 102: ...92 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 116: ...106 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 128: ...118 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 168: ...158 DOMINION SX INSTALLATION AND OPERATIONS MANUAL...
Page 171: ...APPENDIX J TECHNICAL FAQS 161...
Page 172: ...162 DOMINION SX INSTALLATION AND OPERATIONS MANUAL 255 60 2000...