Verbesserte Host Version
Verbesserte Host Version bei der nicht das Modem von sich
aus abhebt, sondern durch die Software abgehoben wird.
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
Call SysCls
'@echo off'
say "======================================================================="
say ""
say " Starte PPP-Host Interface"
say ""
say "======================================================================="
say ""
say ""
say "INIT COM:2"
say ""
'mode com2:57600,n,8,1,,to=ON,xon=off,idsr=on,odsr=on,octs=on,dtr=hs,rts=hs,buffer=auto'
say ""
say ""
say "PPP wird in einer Hintergrund-Sitzung gestartet"
say ""
say ""
'Start "PPP-Host-GATE1" /C pppsrv.cmd '
call syssleep 10
say " Konfiguriere Interface ...."
'ifconfig ppp0 192.168.2.1 up netmask 255.255.255.0'
say "Routing auf NETZ 192.168.3.0 "
'route add NET 192.168.3.0 192.168.2.1 1'
say ""
say "PPP-Host is running"
say ""
exit/***************************************************************************/
/*** PPP-HOST Startup Rexx-Script ***/
/*** ***/
/*** ***/
/***************************************************************************/
Der Host selbst
:PPPSRV
ppp.exe com2 57600 mru 1500 rtscts modem 192.168.2.1: netmask 255.255.255.0 priority 1 restart silent exit name gate1 +pap connect "slattach ATZ OK AT RING ATA"
GOTO PPPSRV
REM EXIT sorgt dafür das PPP sich beendet wenn der DCD verloren geht.
REM durch die Schleife wird es dann wieder neu gestartet.
REM bei SLATTCHE passier folgendes. Sende ATZ,warte auf OK,sende AT (DUMMY), warte auf RING, sende ATA starte PPP.REM PPPSRV.CMD