Re: tcl/expect freeze

On Mar 28, 6:36 am, Uwe Klein <uwe_klein_habertw...@xxxxxxxxxxx>
wrote:
kbuzz3...@xxxxxxxxx wrote:
Uwe,
I set the timeout to 70. In one or two of the scripts, I set the
timeout to something like 1000 when there is a very long response that
has some very long pauses (this is also one of the times that I use
the exp_continue to break the response up and reset the timeout).

OK, just asking.
sometimes "special" vars are trashed by the programmer.

You are sitting on a windows (ver?) box and accesing unix hosts?

uwe

Hi,
OK. I am using windows xp and connecting with a router. I set my
scripts to run in a loop until it froze. It did finally happen.
Stripped down version of my source code is below (the source file only
contains subroutines and does not actually "do" anything). The ouput
stops after the "zxz about to spawn telnet********************\n"
line.
So it would appear in this case that the spawn telnet line is
causing the problem. Again just to repeat, usually these scripts work
fine and I believe it often freezes at this point in the script (spawn
the telnet), it is not always the case.

thank you very much,
Matt

if {[file isdirectory logs] == 0} {
# directory does not exist
file mkdir logs
}

set _stime [clock seconds]
set time [clock format $_stime -format %k_%M_%m_%d_%y]

if {[info exists _base_script_name]} {
set _base_script_name [file tail $_base_script_name]
} else {
set _base_script_name [file tail $argv0]
}

exp_internal -f "$_base_script_name\_large_output" 0

append temp $time _ $_base_script_name .log
log_file -noappend ./logs/$temp
send_user "\nBeginning $_base_script_name test:\n\n"


if {[file exists routines.exp] } {
puts "routines.exp found in the current directory\n"
source routines.exp


} elseif { [file exists "c:/automation/routines.exp"] } {
puts "routines.exp found in c:/automation/routines.exp\n"
source c:/automation/routines.exp

else {

puts "routines.exp not found. Please add to the same directory as
the script\n"
exit
}

send_user "zxz after the routines has been
sourced****************************\n"

set force_conservative 1
match_max -d 5000
set timeout 70

foreach {opt val} $argv {

switch -glob -- $opt {

-help {
set a [help_screen]
exit
}


-ip {
set _router_ip $val
}

-port {
set _port $val

}

}
}

send_user "zxz about to spawn telnet********************\n"
spawn telnet $_router_ip $_port
if { [catch { set a [log_in $_base_script_name $last_arg]} result ]} {
set a [error_exit "$errorInfo" ]
}
send_user "zxz after spawn telnet********************\n"






.

Relevant Pages

  • Re: tcl/expect freeze
    ... I set the timeout to 70. ... scripts to run in a loop until it froze. ... So it would appear in this case that the spawn telnet line is ... spawn telnet $_router_ip $_port ...
    (comp.lang.tcl)
  • Re: tcl/expect hang
    ... If it does happen due to sleep ... I have seen it happen in a couple of different scripts but the code ... set timeout 3 ... set timeout 120 ...
    (comp.lang.tcl)
  • Re: tcl/expect hang
    ... If it does happen due to sleep ... I have seen it happen in a couple of different scripts but the code ... set timeout 3 ... set timeout 120 ...
    (comp.lang.tcl)
  • Re: tcl/expect freeze
    ... I set the timeout to 70. ... scripts to run in a loop until it froze. ... So it would appear in this case that the spawn telnet line is ...
    (comp.lang.tcl)
  • Re: telnet script via expect hanging
    ... shell prompt. ... set timeout -1 ... spawn telnet 158.140.161.167 ... the telnet session connects and I get the ...
    (comp.unix.shell)