home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / ipdial / examples / t-online.ipdial < prev   
Encoding:
Text File  |  1996-04-16  |  3.7 KB  |  166 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;
  3. ;   Login script for AmiTCP/CSLIP connection to T-Online, Germany using
  4. ;   IPDial 2.1.
  5. ;   $VER: T-Online.IPDial 2.1 (16.04.96)
  6. ;
  7. ;   written by Kai Kohlmorgen <kai@sel.heide.de> and Stefan Gybas
  8. ;
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10. ;
  11. ;   All comments are in German because this script is useless for other
  12. ;   people.
  13. ;
  14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15. ;
  16. ;
  17. ;   Es gibt hier kein DEVICE-Kommando, da dieses Skript mit dem Parameter
  18. ;   SANADEV aufgerufen werden sollte, z.B. also
  19. ;
  20. ;   AmiTCP:bin/IPDial AmiTCP:db/T-Online.IPDial SANADEV=cslip0 ECHO
  21. ;
  22. ;   Im StartNet-Skipt sollte dann bei AmiTCP 4.2
  23. ;
  24. ;   AmiTCP:bin/bootpconfig cslip0 IP $LOCALIP DEST $REMOTEIP LOOPBACK
  25. ;
  26. ;   oder bei AmiTCP 4.0demo
  27. ;
  28. ;   AmiTCP:bin/ifconfig cslip0 $LOCALIP $REMOTEIP
  29. ;   AmiTCP:bin/route add $LOCALIP localhost
  30. ;   AmiTCP:bin/route add default $REMOTEIP
  31. ;
  32. ;   verwendet werden.
  33.  
  34. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  35. ;
  36. ;   Initialisierung
  37.  
  38.     SEND "\r\n"
  39.     DELAY 1
  40.     SEND "ATZ\r"
  41.  
  42.  
  43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44. ;
  45. ;   Auf OK warten; wenn es nicht kommt, wird abgebrochen.
  46.  
  47.     WAIT "OK"
  48.     ON STATUS GOTO TIMEOUT
  49.  
  50.  
  51. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  52. ;
  53. ;   Das Modem soll bei fallender DTR-Flanke (wenn IPDial beendet wird) nicht
  54. ;   auflegen
  55.  
  56.     SEND "AT&D0\r"
  57.     WAIT "OK"
  58.     ON STATUS GOTO TIMEOUT
  59.  
  60.  
  61. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  62. ;
  63. ;   Anwahl - bundesweit unter der Nummer 01910
  64.  
  65. Anwahl:
  66.  
  67.     ECHO "Ich wähle...\n"
  68.     SEND "ATDP01910\r"
  69.     WAIT TIMEOUT=60 "CONNECT" "BUSY" "NO CARRIER"
  70.     ON STATUS GOTO TIMEOUT Login NoCarrier
  71.  
  72.     ECHO "Leitung ist belegt, Ich warte 30 Sekunden...\n"
  73.     DELAY 30
  74.     GOTO Anwahl
  75.  
  76.  
  77. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  78. ;
  79. ;   Verbindung hergestellt - nun Einloggen.
  80.  
  81. Login:
  82.  
  83.     ECHO "Verbindung ist hergestellt!\n"
  84.     SEND ".\r"
  85.  
  86.  
  87. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  88. ;
  89. ;   In diesem Abschnitt bitte den eigenen Account und das Passwort
  90. ;   eintragen!
  91.  
  92.     WAIT "[?25h"
  93.     SEND "Account"
  94.     WAIT "[?25h"
  95.     SEND "\r"
  96.     WAIT "[?25h"
  97.     SEND "Passwort"
  98.  
  99.  
  100. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  101. ;
  102. ;   Ab hier sollte nichts mehr geändert werden!
  103.  
  104.     WAIT "[?25h"
  105.     SEND "**53#\c"
  106.     WAIT "1A721"
  107.  
  108.  
  109. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  110. ;
  111. ; Internet-Zugang aufrufen
  112.  
  113.     SEND "**190144100#\c"
  114.     WAIT "SH581"
  115.  
  116.  
  117. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  118. ;
  119. ; Gebühren akzeptieren :-((
  120.  
  121.     SEND "19\c"
  122.     WAIT "OK"
  123.  
  124.  
  125. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  126. ;
  127. ; IP-Adressen ermitteln
  128.  
  129.     SEND "LIN\r"
  130.     WAIT TIMEOUT=10 "OK"
  131.     SCAN "%{YOURIP%} %[LOCALIP%] %{DESTIP%} %[REMOTEIP%]" GLOBAL
  132.     ON STATUS GOTO NeverHappens ScanError ScanError
  133.  
  134.     SEND "OK\r"
  135.     ECHO "SLIP-Verbindung ist bereit. Ich starte nun AmiTCP.\n"
  136.     EXIT 0
  137.  
  138.  
  139. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  140. ;
  141. ;   Fehlermeldung: Timeout
  142.  
  143. TIMEOUT:
  144.     ECHO "\nTimeout. Ich gehe in den Terminalmodus.\n"
  145.     TERMINAL NOECHO RAW
  146.     EXIT 10
  147.  
  148.  
  149. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  150. ;
  151. ;   Fehlermeldung: NO CARRIER
  152.  
  153. NoCarrier:
  154.     ECHO "\nFehler: NO CARRIER.\n"
  155.     EXIT 10
  156.  
  157.  
  158. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  159. ;
  160. ;   Fehlermeldung: Fehler beim SCAN-Befehl
  161.  
  162. ScanError:
  163.     ECHO "\nFehler: Konnte ENV-Variablen nicht setzen.\n"
  164.     EXIT 10
  165.  
  166.