/* Provider Configuration Follows:
Name      GER_T-Online   ; Name for this configuration
DialUp         1         ; This is a DialUp configuration
Interface      slip      ; Also supports cslip
NeedSerial     1         ; This configuration needs serial device
IPDynamic      1         ; 1 = YES, 0 = NO
IPAddr                   ; IP-address if static
NSDynamic      1         ; 1 = YES, 0 = NO
UseBootP       0         ; 1 = YES, 0 = NO
MTU            1006      ; Provider specific
Phone                    ; Provider phone number (without spaces) Telefonnummer Ihres BTX-Zugangs
HdrCompress    YES       ; YES|NO|AUTO
*/

/*
 *   $Id: GER_T-Online,v 1.1 1996/05/13 18:01:17 ppessi Exp $
 *
 *   AmiTCP/IP Dial Script for Telecom Germany T-Online
 *   Angepasst von Jens Wucherpfennig fuer Village Tronic
 *
 *   Copyright © 1996 AmiTCP/IP Group,
 *                    Network Solutions Development Inc.
 *                    All rights reserved.
 *
 */

options results
signal on error

/*
 * Personal variables, please adjust!
 * Tragen Sie zwischen den Anfuehrungszeichen Ihre persoenlichen Daten ein!
 */
btx_kennung = ""        /* Ihre Anschlußkennung (12-stellig) */
btx_nummer = ""         /* Ihre Mitbenutzer-Nummer (4-stellig) */
btx_passwort = ""       /* Ihr Passwort */


Set WaitForTimeout 60
Set InterCharDelay 100

ShowConsole
CALL CommandState
CALL Dial

/*
 * The T-Online login sequence
 * SendLn sends the string + \r
 */
Pause 2
SendLn "."

WaitFor "kennung:"
Send btx_kennung

WaitFor "Datex-J-Nummer:"
Send btx_nummer

WaitFor "Kennwort:"
SendLn btx_passwort

WaitFor "Anwendung#"
Send "*53#"

WaitFor "geschaltet"
Send "*190144100#"

WaitFor "ER-Verb."
Send "19"

WaitFor "STATUS OK" 
SendLn "AMI"

/*
 * Now get the configuration information
 * ParseAddrAfter finds an IP address from last WaitFor processed input
 * After the specified prefix.
 */
WaitFor "DONTREG"             /* This comes last */
ParseAddrAfter "YOURIP"
Set IPAddr result
ParseAddrAfter "DESTIP"
Set Dest result
ParseAddrAfter "DNS"
Set NS1 result

SendLn "OK"

exit 0;                  /* succesfull exit */

error:
Say "GER_T-Online: Command on line" SIGL "returned" RC ":" SerScript.LASTERROR
Exit 10