home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / pcnt3v11.zip / RXppp.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-22  |  647b  |  23 lines
  1. /* Scaffold for PPP termination handling (setting red light) */
  2.  
  3.    Parse Arg stopstateicon 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 rc
  16.       Exit
  17.  
  18. /* On completion, set light back to red. <control-C> has been hit. */
  19.  
  20.      SETRED:
  21.  
  22.       Call SysCreateObject "WPProgram", appl,"<WP_DESKTOP>","OBJECTID=<PPPCNT_"Substr(appl,1,8)">;ICONFILE="cmdpath"\"stopstateicon,"U"
  23.