home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / my2s_1b.zip / ppp.cmd < prev    next >
OS/2 REXX Batch file  |  1997-10-22  |  1KB  |  42 lines
  1. /* ---------- SysLoadFuncs ---------------------- */
  2. if 0 < RxFuncQuery('SysLoadFuncs') THEN 
  3.      do
  4.         call  RxFuncAdd  'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  5.         call  SysLoadFuncs
  6.      end
  7. /* ---------------------------------------------- */
  8. parse ARG host1 port
  9.  
  10. if port='' then signal no_ppp
  11. port=substr(port,4,length(port)-4)
  12.  
  13. Call WrUser port host1
  14. begd = Date(E)
  15. begt = Time(N)
  16.  
  17. 'ppp.exe file d:\uucp\ppp\ppp'port'.cfg'
  18. endd = Date(E)
  19. endt = Time(N)
  20. Call ClUser port host1
  21. no_ppp:
  22. exit
  23.  
  24. /* --------------------- */
  25. ClUser: PROCEDURE
  26. parse ARG com user
  27.       rc = SysFileDelete('d:\uucp\ppp\CURRENT\com'com'.'user)
  28. RETURN
  29.  
  30. /* --------------------- */
  31. WrUser: PROCEDURE
  32. parse ARG com user
  33. base = 'd:\uucp\ppp\CURRENT\'
  34.         if (substr(stream(base'com'com'.'user,C,'Open'),1,5) \= 'READY') then do
  35.              say 'Error opening file : 'base'com'com'.'user
  36.         end
  37.         else do
  38.             rc = lineout(base'com'com'.'user,'')
  39.             rc = stream(base'com'com'.'user,C,'Close')
  40.         end
  41. RETURN
  42.