Sat Jul 20 1996


Folgendes Script erlaubt es mit isdn4linux ueber T-Online ins Internet 
zu kommen (in die Mailingliste geposted von Ingo Edelmann, root@home.ruhr.de):


####################################################################
#
# tonline.dip
# DIP script to connect to T-Online
# Written by Klaus Franken (kfr@suse.de)
# Stand: 6.11.95
#
# Angepasst an Erfordernisse des UISDN
# Gregor Frey (Gregor.Frey@t-online.de)
# 26.1.96
main:

  # Setze Port
  port /dev/ttyI1
 speed 38400
  send terminal databits 8\n
  send terminal flowcontrol rts\n
  send terminal telnet-transparent\n
  reset
  # Initialisiere Leitung
  send AT&F&E<MYMSN>&B1000&X1\r             # MSN eintragen!!!
  wait OK 2
  if $errlvl !=3D 0 goto error-leitung
  send AT\r
  wait OK 10
  if $errlvl !=3D 0 goto error-leitung

  # waehlen
  print W=84hle ...
  send ATD01910\r
  wait CONNECT 15
  if $errlvl !=3D 0 goto error-connect
  send .\r


login:
  # Einloggen beim Server
  wait kennung: 15
  if $errlvl !=3D 0 goto error-kennung

  print Sende Kennung ...
  send <KENNUNG>                            # Kennung eintragen

  wait Kennwort 10
  if $errlvl !=3D 0 goto error-passwd
  print Sende Mitbenutzernummer ...
  send \r

  print Sende Passwort ...
  send <PASSWORD>\r                         # Password eintragen
  wait Btx-Gast 2
  if $errlvl =3D=3D 0 goto error-login

  print Gehe zum Internet-=DCbergang ...
  send *190144100#
  wait nberechtigt 2
  if $errlvl =3D=3D 0 goto error-internet

  print Sende Best=E4tigung ...
  send 19
  wait OK 30
  if $errlvl !=3D 0 goto error-ok
  print Bestimme IP-Nummern ...
  send LIN\r

  wait YOURIP 10
  if $errlvl !=3D 0 goto error-yourip
  get $local remote 1

  wait DESTIP 10
  if $errlvl !=3D 0 goto error-destip
  get $remote remote 1

  print Sende Start-Kommando ...
  send OK\r

done:
  get $mtu 1500
  get $netmask 255.255.255.254
  default
  print Internet-Verbindung gestartet: $locip ---> $rmtip !
  mode CSLIP
  goto esc

error-leitung:
  print Fehler keine Leitung!
  goto exit
error-busy:
  print Fehler Besetzt!
  goto exit
error-login:
  print Fehler Falsche Kennung!
  goto exit
error-connect:
  print Fehler beim Einw=E4hlen!
  goto exit
error-internet:
  print Fehler beim Anwaehlen der Internet-Seite!
error-kennung:
  print Fehler Server fragt nicht nach Kennung!
  goto exit
error-passwd:
  print Fehler Server fragt nicht nach Kennwort!
  goto exit
error-ok:
  print Fehler T-Online Rechner schaltet nicht auf SLIP um!!
  goto exit
error-yourip:
  print Fehler lokale IP-Nummer kann nicht ermittelt werden!
  goto exit
error-destip:
  print Fehler Server-IP-Nummer kann nicht ermittelt werden!
  goto exit

exit:
  beep
  send *9#=20

esc:
####################################################################