Subversion Repositories or1k_old

#!../expect --

# rlogin-cwd - rlogin but with same directory

#

# You can extend this idea to save any arbitrary information across rlogin

# Don Libes -  Oct 17, 1991.

set prompt "(%|#|\\$) $"                ;# default prompt

catch {set prompt $env(EXPECT_PROMPT)}

eval spawn rlogin $argv

set timeout 60

expect eof exit timeout {send_user "timed out\n"; exit} -re $prompt

send "cd [pwd]\r"

interact