home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / major13.zip / KickMajor.cmd < prev    next >
OS/2 REXX Batch file  |  2000-10-30  |  1KB  |  32 lines
  1. /****************************************************************/
  2. /* Tells Major Major to reread the lists from the INI file.     */
  3. /* Normally Admin.EXE looks after this detail, but I wrote      */
  4. /* the Rexx script when creating a mailing list via Telnet,     */
  5. /* where it wasn't feasible to run Admin.EXE.                   */
  6. /*                                                              */
  7. /*       Programmer:      P. Moylan                             */
  8. /*       Last modified:   18 October 2000                       */
  9. /*                                                              */
  10. /* Prerequisite: for this to work you must have RXU.DLL in      */
  11. /* your LIBPATH.  RXU, a Rexx library written by Dave Boll, is  */
  12. /* available from Hobbes with the name rxu1a.zip.               */
  13. /****************************************************************/
  14.  
  15. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  16. call SysLoadFuncs
  17.  
  18. /* Tell Major Major that some lists have been updated. */
  19.  
  20. call rxfuncadd 'rxuinit','rxu','rxuinit'
  21. call rxuinit
  22. SemName = "\SEM32\MAJOR\UPDATED"
  23. if RxOpenEventSem(hev, SemName) \= 0 then
  24.     rc = RxCreateEventSem( hev ,'Shared', SemName, 'Reset')
  25. call RxPostEventSem hev
  26. call RxResetEventSem hev
  27. call RxCloseEventSem hev
  28. call RxuTerm
  29.  
  30. exit
  31.  
  32.