;INTERN1x.TXT    6.4.1998
;IPR-Datei fuer IPRoute mit (internem) Modem 
;
;Diese Datei entsprechend der eigenen Bedingungen anpassen und als
;INTERN1x.IPR speichern.
;Anschliessend diese Datei in einer Batchdatei mit einer Wiederholungs-
;schleife mit IPR INTERN1x.IPR bzw. IPR286 INTERN1x.IPR aufrufen.
;(Batchdatei mit Wiederholungsschleife ist notwendig, da dieses Script
;den Router selbsttaetig herunterfaehrt.
;COPYRIGHT  Arno Pasternak, 58099 Hagen,  6.4.1998
;(Kopieren nur mit Quellenangabe)
;
;
;Intern1x.ipr
;
;IPR-Script zur Anbindung eines LAN's an das Internet
;(dynamische IP-Adresse ueber PPP und Modem)
;Anruf des Servers erst, wenn ein Paket den Router erreicht.
;Sollte nach 30 Sekunden kein Aufruf erfolgen, beendet das Programm wie
;nach einem Logout aus dem Postnetz.
;
;Logout-Zeit aus dem Postnetz: 1 Minute
;Nach dem Logout endet das Programm und muss erneut z.b. von einer Batch-
;routine aufgerufen werden.
;
;Internes Modem mit 33600 bps an COM-Port2 mit Interrupt 5
;27.6.1997
;verallgemeinert 6.4.1998
;
;
   set log file CON
   log "Moin, moin"
;
;
;Einrichtung der Ethernet-Karte  im IP-Netz 192.168.1.0
;Das Ethernet-Teilnetz ist hier   192.168.1.0
;
   packet ethernet_netz  0x60 192.168.1.253/24
;
;
   log "Einrichtung des Modem-Ports und Zuweisung der Default-Route"
   log " "
   log " "
   async modem 0x2f8 5 115200 do_modem
   log "Das Modem ist am Laufen"
   log " "

;Hiermit wird alles ins Modem geroutet
   route * modem perm
;
;Broadcast der RIP-Route ans Ethernet
   rip ethernet_netz
;
;
;Ein Command-Interpreter wird auf der Console gestartet
   command
   exit
;
;Unterbereich der Konfiguration mit Modemeinstellungen etc.
;
do_modem:
   set trace off
   nat * * HIER DNS-ADRESSE DES PROVIDERES EINTRAGEN
;
;Modem-Kontroll-Einstellungen
;
   log "Das Modem wird jetzt in Gang gesetzt"
   set interface rts flow
hangup:
   set interface dtr off
   delay .5
   set interface dtr on
   on packet dialout
   on timeout ende
   wait 30
;
dialout:
   send "atz\r"
   wait 5 "OK\r"
   log "Das Modem ist OK"
   send "atdt12345\r"
   wait 40 "CONNECT"
; hier Telefonnummer des Providers angeben !!!!
   on cd lineup
   read 15 "\r" speed
lineup:
   on cdloss hangup
   on timeout hangup
   log " "
   log "Anschluá mit $speed"
   log " "
   set ppp login ACCOUNT PASSWORT
; hier ACCOUNT und PASSWORT beim Provider eingeben !!!!
   on timeout ende
   ppp 60 * dynamic-nat
ende:
   shutdown