1#!../expect --
2# rlogin-cwd - rlogin but with same directory
3#
4# You can extend this idea to save any arbitrary information across rlogin
5# Don Libes -  Oct 17, 1991.
6
7set prompt "(%|#|\\$) $"		;# default prompt
8catch {set prompt $env(EXPECT_PROMPT)}
9
10eval spawn rlogin $argv
11set timeout 60
12expect eof exit timeout {send_user "timed out\n"; exit} -re $prompt
13send "cd [pwd]\r"
14interact
15