URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [expect/] [example/] [telnet-cwd] - Blame information for rev 1778

Go to most recent revision | Details | Compare with Previous | View Log


#!../expect --
# telnet-cwd - telnet but with same directory
#
# You can extend this idea to save any arbitrary information across telnet
# Don Libes -  Oct 17, 1991.
 
set prompt "(%|#|\\$) $"                ;# default prompt
catch {set prompt $env(EXPECT_PROMPT)}
 
eval spawn telnet $argv
interact -o -nobuffer -re $prompt return
send "cd [pwd]\r"
interact

Line No.	Rev	Author	Line
1	578	markom	`#!../expect --`
2			`# telnet-cwd - telnet but with same directory`
3			`#`
4			`# You can extend this idea to save any arbitrary information across telnet`
5			`# Don Libes - Oct 17, 1991.`
6
7			`set prompt "(%\|#\|\\$) $" ;# default prompt`
8			`catch {set prompt $env(EXPECT_PROMPT)}`
9
10			`eval spawn telnet $argv`
11			`interact -o -nobuffer -re $prompt return`
12			`send "cd [pwd]\r"`
13			`interact`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [expect/] [example/] [telnet-cwd] - Blame information for rev 1778