#!/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