I'm calling ssh from within an Expect package I've written. The calling program calls it as such:



Code:

# ----------------------------------------------------- # load packages # ----------------------------------------------------- lappend ::auto_path $home/expect.sc package require cmasg # ----------------------------------------------------- # main program # ----------------------------------------------------- set resp [pkgname $1 $2 $3 $4] send_user $resp

Here's the main guts of the package cmasg:

Code:

proc procname {1 2 3 4} { spawn -noecho ssh remotehost ... run a command on the host while 1 {        expect { ... error checking on command's response                -re "0m " {                regexp {\n([[:digit:]]{3}-[[:digit:]]{4})} $expect_out(buffer) response                return [string trimleft $response]                break                }        } } send -- "exit\r" expect -re "0m " send -- "exit\r" }

Everything works great, but I've noticed the local ssh session never dies. After a while I run out of resources (this is a Cygwin environment).

In the package I tried to set a variable PID to the ssh spawn process and then kill that PID at the end of the "while", but that didn't work

sorry about that, when I hit "Preview", it gets posted for some reason.

Also, everything does exit properly, except the initial ssh process spawned from the cmasg package

thanks to what I learned on this site I figured it out. I had to move any exit commands and anything else above the "return" call in the package.

Code:

}                -re "0m " {                regexp {\n([[:digit:]]{3}-[[:digit:]]{4})} $expect_out(buffer) response                send -- "exit\r"                expect -re "0m "                send -- "exit\r"                return [string trimleft $response]                }

---