Subversion Repositories or1k

#!/depot/path/expect --

# xrlogin - rlogin but with current DISPLAY

#

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

# Don Libes -  Oct 17, 1991.

if {[llength $argv] != 1} {

        puts "usage: xrlogin remotehost"

        exit

}

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

catch {set prompt $env(EXPECT_PROMPT)}

set timeout -1

eval spawn rlogin $argv

expect eof exit -re $prompt

if [string match "unix:0.0" $env(DISPLAY)] {

        set env(DISPLAY) "[exec hostname].[exec domainname]:0.0\r"

}

send "setenv DISPLAY $env(DISPLAY)\r"

interact