¤
ä: . þ , . ô .
§: , - . ¡ - .
Server1, Server2, Server4 - Windows 2000 ( )
Server3 - IBM OS/2 WSeB, :)
î TCP/IP . î Server2 :
á OS/2:
x:\MPTN\BIN\setup.cmd
-------cut--------
ifconfig lan0 10.2.0.1 netmask 255.255.0.0 metric 1 mtu 1492
ifconfig lan1 10.1.0.2 netmask 255.255.255.0 metric 1 mtu 1492
route add default 10.1.0.1 -hopcount 1
ipgate on
-------cut--------
é , , . REXX:
-------cut--------
/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
rc = RxFuncAdd("FtpLoadFuncs","rxFtp","FtpLoadFuncs")
rc = FtpLoadFuncs()
call SysCls
call SysCurState OFF
server2='10.1.0.1'
server1='10.0.0.2'
server4='10.2.0.2'
count_err=2 /* */
sys.log = "dial.log"
a=0
ppp_enable1=0
ppp_enable2=0
errors=0
rc = stream( sys.log, "c", "open write" )
r=SysCurPos(1,1)
say "¤ ïôîïþîïí÷ - ô :" date() time()
rn = lineout( sys.log, date() time() "- " )
r=SysCurPos(5,1)
say "ë "
do a=1
serv1 = FtpPing(server1,64)
serv2 = FtpPing(server2,64)
serv4 = FtpPing(server4,64)
r=SysCurPos(8,1)
if DATATYPE(serv4)="NUM" then
say "í :" time() "-" server4 "-" serv "msec"
else
say "í :" time() "-" server4 "- îå§ ï§þå§á"
r=SysCurPos(9,1)
if DATATYPE(serv1)="NUM" then
say "÷ :" time() "-" server1 "-" serv "msec"
else
say "÷ :" time() "-" server1 "- îå§ ï§þå§á"
r=SysCurPos(13,1)
if DATATYPE(serv2)="NUM" then do
say " :" time() "-" server2 "-" rc "msec"
ppp_enable1=0
errors=0
end
else do
errors=errors+1
say " :" time() "-" server2 "- îå§ ï§þå§á - N" errors
ppp_enable1=1
end
if errors > count_err then
if ppp_enable1=1 & ppp_enable2=0 then do
ppp_enable2=1
'start /C' startppp.cmd /* */
call SysCls
call SysCurState OFF
r=SysCurPos(1,1)
say "¤ ¤åå¤þîïí÷ - ô :" date() time()
rn = lineout( sys.log, date() time() "- " )
r=SysCurPos(5,1)
say "ë "
end
if ppp_enable1=0 & ppp_enable2=1 then do
ppp_enable2=0
'start /C' stop_ppp.cmd /* */
call SysCls
call SysCurState OFF
r=SysCurPos(1,1)
say "¤ ïôîïþîïí÷ - ô :" date() time()
rn = lineout( sys.log, date() time() "- ")
r=SysCurPos(5,1)
say "ë "
end
rc=SysSleep(30) /* */
end
rc = stream( sys.log, "c", "close" )
exit
-------cut--------
¡ :
-------cut--------
15 Jan 2003 16:46:11 -
15 Jan 2003 16:46:33 -
15 Jan 2003 16:46:56 -
-------cut--------
þ SafeFirePPP, InJoj. ¡ START_PPP.CMD ( SafeFire):
-------cut--------
x:\SafeFire\bin\sfppp.exe -Cx:\SafeFire\config\myconfig.cfg
-------cut--------
STOP_PPP.CMD
-------cut--------
x:\SafeFire\bin\sfkill.exe
-------cut--------
SafeFire þ , Defaul Gatewey äïì®åî íåîñ§ôñ. NAT .
P.S. î .