#!/usr/local/bin/expect
# $Id: am_smtp.exp,v 1.3 2005/11/11 19:14:19 dodell Exp $
source /usr/local/raqdevil/swatch/statecodes.tcl

# don't echo the dialog
log_user 0

# we use telnet to connect
spawn telnet localhost 25
expect {
    "Connected to" {}
    default { # we don't connect properly
	# try to restart
	# use catch so we don't report errors on the exec,
	# only on the dialog itself
	catch {exec /usr/local/etc/rc.d/sendmail restart >&/dev/null} result
	sleep 5
	# redo test, fail if get an error again
	spawn telnet localhost 25
	expect {
	    "Connected to" {}
	    default {
		puts -nonewline $env(redMsg);
		flush stdout;
		exit $AM_STATE_RED;
	    }
	}
    }
}

expect {
    "220 " {}
    default { # fail if we're not greeted properly
	puts -nonewline $env(redMsg);
	flush stdout;
	exit $AM_STATE_RED
    }
}

send "QUIT\r"
expect {
    "221 " {}
    default { # fail if we're not ack-ed properly
	puts -nonewline $env(redMsg);
	flush stdout;
	exit $AM_STATE_RED
    }
}

puts -nonewline $env(greenMsg)
flush stdout;
exit $AM_STATE_GREEN