home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / sir_v1b.zip / sir2wps.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-11  |  2KB  |  47 lines
  1. /****************************************************************************/
  2. /*  SIR! v1.0 Insallation script                                            */
  3. /*  28/1 1996                           by Jan-Helge Bergesen               */
  4. /****************************************************************************/
  5. ARG PATH
  6. SAY "Sir2Wps.Cmd rexx/2 script used to create WPS objects"
  7. SAY "Loading DLL's..."
  8. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9. call SysLoadFuncs
  10. SAY "RexxUtil.DLL"
  11.  
  12. REM SAY "Where was it you put the SIR.EXE again?"
  13. REM parse pull PATH
  14.  SAY "PATH=" || PATH
  15. EXEC_NAME="EXENAME=" || PATH || "\SIR.EXE"
  16.  
  17. rc=SysCreateOBject("WPFolder", "SIR! v1.0", "<WP_DESKTOP>", "OBJECTID=<SIR_FLDR>")
  18.  
  19. RC=SysCreateObject("WPProgram", "SIR! Setup" , "<SIR_FLDR>" , EXEC_NAME, "R")
  20. if RC=0 then say "Unable to create WPProgram object: SIR! Setup"
  21. RC=SysCreateObject("WPProgram", "SIR! Setup" , "<SIR_FLDR>" , EXEC_PARM , 'U')
  22. if RC=0 THEN SAY "Unable to set parameter of WPProgram: SIR! Setup"
  23.  
  24. RC=SysCreateObject("WPProgram", "ReadMe" , "<SIR_FLDR>" , "EXENAME=VIEW.EXE;OBJECTID=<SIR_HLP>" , 'R')
  25. if RC=0 THEN SAY "Unable to create WPProgram : VIEW.EXE"
  26. parm="PARAMETERS=" || PATH || "\SIR.INF"
  27. RC=SysCreateObject("WPProgram", "ReadMe" , "<SIR_FLDR>" , parm , 'U')
  28. if RC=0
  29.     THEN SAY "Unable to update WPProgram : VIEW.EXE"
  30.  
  31.  
  32. EXEC_NAME="EXENAME=" || PATH || "\KtmpPM.EXE"
  33. RC=SysCreateObject("WPProgram", "KillTemp PM" , "<SIR_FLDR>" , EXEC_NAME, "R")
  34. if RC=0 then say "Unable to create WPProgram object: KillTemp PM"
  35.  
  36. SAY "Folder created"
  37. SAY "Automated installation complete."
  38. SAY "This script will now display the help on setting up the WPS"
  39. say " "
  40. SAY "(enter)"
  41. pull rc
  42.  
  43. ADDRESS 'CMD' "view " || PATH || "\SIR.INF window"
  44.  
  45. call SysDropFuncs
  46. exit
  47.