home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / gpm108b.zip / WPS_Objs.Cmd < prev   
OS/2 REXX Batch file  |  1998-05-29  |  1KB  |  49 lines
  1. /*
  2. @Goto NoRexx
  3. */
  4.  
  5. Say "Creating PM objects for General Purpose Mailer. Please wait..."
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10. GPMDir=Directory()"\"
  11. Say "General Purpose Mailer must be installed in "GPMdir
  12. Say "Otherwise drag new folder into shredder"
  13.  
  14. ObjMode="Replace"
  15. rc=0
  16.  
  17. Class = "WPFolder"
  18. Location = "<WP_DESKTOP>"
  19. Title = "General Purpose Mailer"
  20. SetupString = "OBJECTID=<GPM>;"
  21. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  22.  
  23. ObjMode="UpDate"
  24. Class = "WPProgram"
  25. Location = "<GPM>"
  26.  
  27. Title = "GPM"
  28. SetupString ="OBJECTID=<GPMEXE>;PROGTYPE=PM;EXENAME="GPMDir"GPMail.EXE;STARTUPDIR="GPMDir";"
  29. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  30.  
  31. Title = "Read me first!"
  32. SetupString = "OBJECTID=<GPM_R1ST>;EXENAME=E.EXE;PARAMETERS="GPMDir"!README!.1st;"
  33. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  34.  
  35. Title = "Documentation"
  36. SetupString = "OBJECTID=<GPM_DOC>;EXENAME=E.EXE;PARAMETERS="GPMDir"GPMail.DOC;"
  37. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  38.  
  39. Class = "WPFolder"
  40. Location = "<WP_DESKTOP>"
  41. Title = "General Purpose Mailer"
  42. SetupString = "OBJECTID=<GPM>;OPEN=Default;"
  43. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  44.  
  45. exit
  46.  
  47. :NoRexx
  48. @echo Error: REXX not found!
  49.