TCL Expect script to turn ON/OFF a switch on a iTach WF2CC, to be called from Jenkins in a post build action (usage: tclsh build-failed.tcl)

build-failed.tcl

#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}
package require Expect

set exp::winnt_debug 1

puts stdout "Connecting to iTach and turning it ON\n"

spawn plink -telnet 1.3.3.184 -P 4998

expect "Escape character is '^]'."

send "setstate,1:2,1\r"
expect "setstate,1:2,1"

build-successful.tcl

#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}
package require Expect

set exp::winnt_debug 1

puts stdout "Connecting to iTach and turning it OFF\n"

spawn plink -telnet 1.3.3.184 -P 4998

expect "Escape character is '^]'."

send "setstate,1:2,0\r"
expect "setstate,1:2,0"