#!/usr/bin/expect

# $Id: poptester.exp 26 2006-03-01 17:35:15Z damonp $
#
# Expect script to log into a POP3 mail server and retrieve a message.
#
# Copyright (c) 2006 Damon Parker < damonp@damonparker.org >
# Licensed under the GNU GPL.  See http://www.gnu.org/licenses/gpl.html

# This script is not supported in any way.  Use at your own risk.
# 

if {($argv == "") || ($argv == "-h")} {
	puts stderr "Usage: $argv0 hostname username password \[msgid\]"
	exit 1;
	}

set server 	[lindex $argv 0]
set user 	[lindex $argv 1]
set passwd 	[lindex $argv 2]
set retr 	[lindex $argv 3]

eval spawn telnet "$server" 110
expect	"+OK"	{send "USER $user\r"}
expect	"+OK"	{send "PASS $passwd\r"}
expect	"+OK"	{send "LIST\r"}

if {($retr != "")}	{
	expect	"."		{send "RETR $retr\r"}
}

expect	"\r."	{send "QUIT\r"}
send "\r"