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