Initial import

1 files changed, 22 insertions, 0 deletions

diff --git a/telneter b/telneter
new file mode 100755
index 0000000..acb9404
--- /dev/null
+++ b/telneter
@@ -0,0 +1,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