home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / pcnt4v11.zip / RXPPP.CMD < prev    next >
OS/2 REXX Batch file  |  1999-03-13  |  880b  |  28 lines
  1. /* Scaffold for PPP termination handling (setting red light) */
  2.  
  3.    Parse Arg stopstate appl cmdpath rest
  4.  
  5.       Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  6.       Call sysloadfuncs
  7.  
  8.       Signal ON Error   Name SETRED
  9. /*    Signal ON Halt    Name SETRED
  10.       Signal ON Failure Name SETRED
  11. */
  12. /* Invoke PPP with passed parms and no console displayed */
  13.  
  14.      "@ppp" rest
  15. Say result
  16.       Exit
  17.  
  18. /* On completion, set light back to red. <control-C> has been hit. */
  19. /* Also restore resolv.org if it was saved prior */
  20.  
  21.      SETRED:
  22.  
  23.       Call SysCreateObject "WPProgram", appl,"<WP_DESKTOP>","OBJECTID=<"Substr(appl,1,8,'_')">;EXENAME="cmdpath"\pppcnt.cmd;PARAMETERS=" appl ";ICONFILE="cmdpath"\"stopstate,"U"
  24.  
  25.      '@erase resolv'              /* if was a temp resolv we created */
  26.      '@rename resolv.org resolv'  /* if org did prev exist */
  27.  
  28.