home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / mmgr11a.zip / mminst.cmd next >
OS/2 REXX Batch file  |  1995-08-16  |  2KB  |  70 lines

  1. /* Rexx program to install Message Manager */
  2. 'echo off'
  3.  
  4. call rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'
  5. call sysloadfuncs
  6.  
  7. parse arg parms
  8.  
  9. if parms = ""
  10.     Then
  11.         Do
  12.             'CLS'
  13.             Say ''
  14.             Say ''
  15.             Say 'ERROR!'
  16.             Say 'Incorrect or missing parameters'
  17.             Say 'Correct syntax is:  '
  18.             Say '     MMInst MsgMgr_directory GCP_messages_directory'
  19.             Return
  20.         End
  21.  
  22. parse var parms msgDir gcpDir
  23.  
  24. if right(gcpDir,1) <> '\'
  25.     Then gcpDir = gcpDir||'\'
  26.  
  27. /* Let's do the disclaimer stuff */
  28. 'CLS'
  29. Say ''
  30. Say ''
  31. Say 'By using this program, you are agreeing to accept'
  32. Say 'all risk for use of this program.'
  33. Say ''
  34. Say 'This means that YOU and YOU ALONE are responsible for'
  35. Say 'any and all problems that may arise from use of this software.'
  36. Say ''
  37. Say 'Do you agree to these terms? (Y/N):'
  38. pull agree
  39.  
  40. if agree <> 'Y'
  41.     Then Exit
  42.  
  43.  
  44. Say 'Do you really want to install MsgMgr into 'msgDir' (Y/N) ?'
  45. pull response
  46.  
  47. if response = 'Y'
  48.     Then
  49.         Do
  50.             'echo y|xcopy *.* '||msgDir||'>NUL'
  51.  
  52.            call SysCreateObject 'WPProgram', 'Message^Manager', '<WP_DESKTOP>',';EXENAME='||msgDir||'\MsgMgr.Exe;PARAMETERS='||gcpDir||';STARTUPDIR='||msgDir||';PROGTYPE=PM;OBJECTID=<MsgMgr>',REPLACE
  53.         End
  54.  
  55. Say 'Installation completed successfully.'
  56.  
  57. Say 'Do you wish to read the ReadMe.Doc file now?'
  58. pull response
  59.  
  60. if response = 'Y'
  61.     Then
  62.         'type readme.doc|more'
  63.  
  64. Say 'Do you wish to print the ReadMe.Doc file now?'
  65. pull response
  66.  
  67. if response = 'Y'
  68.     Then
  69.         'print readme.doc'
  70.