Hi im trying to write an expect script using telnet, first one worked then asked to do this one help!

i need to cycle power on and off and put a message of pass or fail in the message but continue to cycle the power

this is what i have so far....i know im missing something or all of it
thanks for you help...

source ./SMS_TAH_procs_bootcheck.exp
global CP_Mac
global CP_Port
global ipTermServ
global portNum
global my_debug

proc main {{cycle 1} {start_step 0} uut_id temp_id power_id} {
global my_debug
set my_debug 1


set timeout -1
###################################################
#
# 0 power cycle on off
#
###################################################

if {$start_step <= 0} {
puts "Starting Step 0 - CYCLE $cycle - [timestamp -format "%X, %b %d %Y"]\r"
cycle_test 1 $uut_id $power_id
sleep 3
}


set pass_in [lindex $argv 0]
set step_in [lindex $argv 1]
set fail_in [lindex $argv 2]

if {$pass_in < 1} {set pass_in 1}
if {$step_in < 1} {set step_in 1}
if {$fail_in < 1} {set step_in 1}

set uut_id [open_port "10.0.0.42" 2001]
set power_id [open_port "10.0.0.41" 23]



if {$pass_in == 1} {
puts "[timestamp -format " Cycle $pass_in, Step $step_in: %c"]\r\n"
main 1 $step_in $uut_id $power_id

if {$fail_in ==1_ {
puts "[timestamp -format " Cycle $fail_in, Step $step_in: %c"]\r\n"
main 1 $step_in $uut_id $power_id

set step_in 1
set pass_in 2
set fail_in 3
}

well what's not working?? please don't expect use to just debug all your code without a decent explanation of where you're stuck. You've also clearly got a reference to an external file which isn't listed here. I can certianly see for one thing though there's no spawn, and expect is pretty useless if you don't even spawn anything to interact with.

This is not the way to use Expect. You should not open a tcp connection on port 23, but instead you have to spawn telnet, and use the send and expect.

Google for "expect man page", there are some basic examples on that page which should get you going.

jlinkels