/** $VER: Autologin.term 1.1 (2.2.93)
 **
 ** Perform auto-login procedure for a BBS or
 ** mail server.
 **
 ** Written by Olaf `Olsen' Barthel
 **
 ** In order to install this program, open the phone book,
 ** select the phone book entry to use this program,
 ** open the `Commands...' settings and enter the following
 ** text under `Startup-/Login macro':
 **
 **    \a Autologin <Name prompt>,<Password prompt>
 **
 ** Don't type the words enclosed in angle brackets, but rather
 ** add the texts the remote expects when the user is to enter
 ** her/his name and the password to be used. So, for example,
 ** if the BBS prompts with `Login:' to enter your user
 ** name and `Password:' to enter your password one would use:
 **
 **    \a Autologin Login:,Password:
 **
 ** Type the line exactly as shown in the template, and do not
 ** omit the comma!
 **
 ** Now edit the `User/Password...' settings to contain your
 ** user name and password.
 **
 ** Now save the phone book to a file, and don't forget to
 ** copy this file to the "REXX:" drawer.
 **/

	/* Set the read timeout to ten seconds. */

TIMEOUT 10

	/* Read the two calling parameters. */

PARSE ARG userprompt ',' passwordprompt

	/* Wait for the user name prompt to appear. */

WAIT userprompt

	/* Did the prompt appear? If not, drop out immediately. */

IF rc ~= 0 THEN EXIT

	/* Wait a second... */

DELAY 1

	/* Send the user name, adding a <carriage return> character. */

SEND '\u\r'

	/* Wait for the password prompt to appear. */

WAIT passwordprompt

	/* Did the prompt appear? If not, drop out immediately. */

IF rc ~= 0 THEN EXIT

	/* Wait a second... */

DELAY 1

	/* Send the password, adding a <carriage return> character. */

SEND '\p\r'

	/* That's all folks! */