Posted to tcl by schelte at Wed Mar 12 21:48:42 GMT 2014view raw
- spawn telnet $ip
- match_max 100000
- expect -exact "Username:"
- send -- "$user\r"
- expect -exact "Password:"
- send -- "$password\r"
- expect -exact "#"
- send -- "terminal length 0\r"
- expect -exact "#"
- send -- "show run\r"
- expect -exact "#"
- set lines [split [string map [list \r\n \n] $expect_out(buffer)] \n]
- send -- "exit\r"
- expect eof
- wait -nowait