exec expect
-- "$0" ${1+"$@"}
# 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
)}
expect eof
exit timeout
{send_user
"timed out\n"; exit} -re $prompt