Raritan Dominion SX16, Installation And Operation Manual, Page: 149 / 162

A
PPENDIX
I: TCL P
ROGRAMMING
G
UIDE
135
ampsetconfig datacom checkparity <value>
Enables the parity bit if value is 1; disables the parity bit if value is 0.
An administrator/operator user will not have write access in a console window when a TCL script is running and has
executed amplock for that port. Issuing an F8 or “Get Write Access” will
not result in getting writing access.
In order for the administrator/operator user to get write access, one of the following methods must be used.
1. Administrator issues a
Reset to the TCL interpreter by pressing the [ Reset ] button in the Script shell window.
2. Operator/Observers execute the [ Reset ] button in the script shell window if the TCL script running has the
amppermission off command built into the script.
3. A TCL script may be designed to accept input from users (administrators and operator/observers if
amppermission off has been performed by the script) and based on the input, may either exit the execution of
the script or release the lock and wait for further input before getting the lock and continuing execution of the
script. In this case, the Administrator/Operator must be aware of the inputs that may be sent to the running TCL
script and type the appropriate word/number in the Script shell window to gain write access to the console and
relinquish write access if appropriate.
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.)