# Dieses CoSHy Script kann mittels '. minimail' im Setup fr den
# Anrufbeantworter angegeben werden. Es dient dann als kleine
# Mini-Mailbox.

PASS=Rufus # Das ist Ihr SYSOP-Passwort, mit dem Sie Ihren Rechner
           # bedienen k”nnen.

send "ATA"                     ; # Zuerst den Anruf entgegennehmen.

if ! waitfor -t 30s 'CONNECT'; then
	hangup;                        ; # Da kam keine CoNnect-Meldung
	exit;                          ; # Also Ex und Hopp.
fi

# Jetzt haben wir eine Verbindung

send \33'[2J'\33'[H'
send "Guten Tag lieber Anrufer,"
send "Sie sind verbunden mit einer CoNnect-Mailbox"
send "Legen Sie aber deswegen nicht gleich wieder auf"
send "Sind Sie der SYSOP? Wenn ja, geben Sie bitte jetzt"
send "Ihr Passwort ein. Wenn nicht, tippen Sie einfach nur"
send "Return."

if ! carrier ; then
	exit
fi

flush

if ! get -n 30s PASSWORD ; then ; # Der ist dann wohl eingeschlafen.
	send ""
	send "Schlafen Sie? Bitte das Passwort eingeben."
	flush
	if ! get -n 30s PASSWORD ; then 
		send "Na denn man Tschž"
		hangup
		exit
	fi
fi

# ---------------------------------------------------------------------

if [ $PASSWORD = $PASS ] ; then

# So, das ist der SYSOP. Jetzt k”nnen Sie eigentlich alles machen,
# was so m”glich ist. z.B.: (Beachten Sie den selbstst„ndigen 
# Wandel vom 'SIE' zum 'DU' ;-)

	send "Soll ich Dich zurckrufen. Wenn ja, gib jetzt bitte"
	send "Deine Nummer an."

	if ! get 30s NUMMER ; then
		NUMMER=
		if ! carrier ; then
			exit
		fi
	fi

	if [ a$NUMMER != a ] ; then ; # Er hat eine Nummer angegeben.
		send "OK - bis gleich".
		sleep 1
		hangup
		
		sleep 5
	
		if ! dial -r 10 $NUMMER; then ; 
			exit;                       # hat halt nicht geklappt.
		fi
	fi

# Und jetzt wird eine Shell gestartet, bei der sich EIN- und AUSgabe
# auf die Serielle Schnittstelle lenken l„žt. (Kann COMMAND.PRG das?)

	c:/command.prg < AUX: >AUX:
	exit

fi

# ---------------------------------------------------------------------

# Nein , es ist nur ein normaler Anrufer...

send "Hallo Anrufer"
send "Sie k”nnen jetzt eine Datei uploaden, die der Sysop vielleicht"
send "interessant findet"
send "Bitte starten Sie das Z-Modem jetzt"

if ! carrier; then
	exit
fi

download

send "Vielen Dank und Tschž"

hangup
flush
exit