blob: acb9404ab5f6b6b384594f057bc0a81f2ccb8dac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/expect
#
# Simple telnet application to log in a server
# WARNING: passphrase is sent in the clear!
#
spawn telnet example.org
# Not absolutely necessary, but good to keep the spawn_id for later
set telnet $spawn_id
# Case insensitive, just in case..
expect -nocase "login:"
send "user\r"
# My telnetd insisted on an uppercase P. This works bothways
expect -nocase "password:"
send "SENHA\r"
# Match the prompt (contains a $)
expect -re {\$}
# Get the environment variables
send "env\r"
# Wait for the prompt
expect -re {\$}
exit
|