home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
my2_1b.zip
/
ppp.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-10-22
|
1KB
|
42 lines
/* ---------- SysLoadFuncs ---------------------- */
if 0 < RxFuncQuery('SysLoadFuncs') THEN
do
call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
call SysLoadFuncs
end
/* ---------------------------------------------- */
parse ARG host1 port
if port='' then signal no_ppp
port=substr(port,4,length(port)-4)
Call WrUser port host1
begd = Date(E)
begt = Time(N)
'ppp.exe file d:\uucp\ppp\ppp'port'.cfg'
endd = Date(E)
endt = Time(N)
Call ClUser port host1
no_ppp:
exit
/* --------------------- */
ClUser: PROCEDURE
parse ARG com user
rc = SysFileDelete('d:\uucp\ppp\CURRENT\com'com'.'user)
RETURN
/* --------------------- */
WrUser: PROCEDURE
parse ARG com user
base = 'd:\uucp\ppp\CURRENT\'
if (substr(stream(base'com'com'.'user,C,'Open'),1,5) \= 'READY') then do
say 'Error opening file : 'base'com'com'.'user
end
else do
rc = lineout(base'com'com'.'user,'')
rc = stream(base'com'com'.'user,C,'Close')
end
RETURN