home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 November / PCO1197.ISO / FilesBBS / OS2 / BANDIT12.ARJ / BANDIT12.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1997-09-02  |  3.0 KB  |  81 lines
  1. /*****************************************************************************/
  2. /* FA Partners                                                               */
  3. /* Copyright (c) FA Partner 1997                                             */
  4. /*---------------------------------------------------------------------------*/
  5. /* Name        : install.cmd                                                 */
  6. /* Description : Installs the Bandit Tagger                                  */
  7. /*---------------------------------------------------------------------------*/
  8. /* 1997-08-10  | Created                                 | FB                */
  9. /* 1997-08-27  | Inserted product support option.        | FB                */
  10. /*****************************************************************************/
  11.  
  12. '@ECHO OFF'
  13.  
  14. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  15. call RxFuncAdd 'SysOpenObject'  , 'RexxUtil', 'SysOpenObject'
  16. call RxFuncAdd 'SysMkDir'       , 'RexxUtil', 'SysMkDir'
  17. call RxFuncAdd 'SysIni'         , 'RexxUtil', 'SysIni'
  18.  
  19. Say 'Install the Bandit Tagger to :'
  20. pull path
  21. Say 'Use Bandit Tagger togther with :'
  22. Say '1. Internet Adventure'
  23. Say '2. SouthSide Software'
  24. Say '3. MR/2 Internet Cruiser Edition for OS/2'
  25. Say '4. None of the above'
  26.  
  27. pull option
  28.  
  29. select
  30.   when option = 1 then do
  31.     xnews   = "Internet Adventurer v1.02 for OS/2 with Bandit Tagger v1.20"
  32.     xmailer = "Internet Adventurer v1.02 for OS/2 with Bandit Tagger v1.20"
  33.     parent  = "<INETADVFOLDER>"
  34.   end
  35.   when option = 2 then do
  36.     xnews   = "PMINews 1.01a for OS/2 with Bandit Tagger v1.20"
  37.     xmailer = "PMMail 1.92 for OS/2 with Bandit Tagger v1.20"
  38.     parent  = "<PMMAILFLDR>"
  39.   end
  40.   when option = 3 then do
  41.     xnews   = "MR/2 Internet Cruiser Edition for OS/2 v1.30a with Bandit Tagger v1.20"
  42.     xmailer = "MR/2 Internet Cruiser Edition for OS/2 v1.30a with Bandit Tagger v1.20"
  43.     parent  = "<WP_DESKTOP>"
  44.   end
  45.   otherwise
  46.     xnews   = "Tag inserted by Bandit Tagger v1.20"
  47.     xmailer = "Tag inserted by Bandit Tagger v1.20"
  48.     parent = "<WP_DESKTOP>"
  49. end
  50.  
  51. rc = SysIni('bandit.in_', 'BANDIT_USER', 'X_MAILER', xmailer);
  52. rc = SysIni('bandit.in_', 'BANDIT_USER', 'X_NEWS'  , xnews  );
  53.  
  54. rc = SysMkDir(path)
  55.  
  56. 'copy license.doc 'path'\license.doc'
  57. 'copy bandit.exe  'path'\bandit.exe'
  58. 'copy st.exe      'path'\st.exe'
  59. 'copy bandit.cmd  'path'\bandit.cmd'
  60. 'copy file_id.diz 'path'\file_id.diz'
  61. 'copy bandit.doc  'path'\bandit.doc'
  62. 'copy os2.tag     'path'\os2.tag'
  63. 'copy wysiwyg.ta_ 'path'\wysiwyg.ta_'
  64.  
  65. /* Avoid overwriting old inifiles. */
  66. if SysIni(path'\bandit.ini', 'BANDIT_USER', 'X_MAILER') == 'ERROR:' then
  67.   'copy bandit.in_  'path'\bandit.ini'
  68.  
  69.  
  70. rc = SysOpenObject(parent, "icon", "TRUE")
  71.  
  72.  
  73. rc = SysCreateObject("WPProgram", "Bandit Tagger", parent,,
  74.                      "EXENAME="path"\bandit.exe;OBJECTID=<BANDIT>", "replace")
  75. if rc = 0 then
  76.   rc = SysCreateObject("WPProgram", "Bandit Tagger", "<WP_DESKTOP>",,
  77.                      "EXENAME="path"\bandit.exe;OBJECTID=<BANDIT>", "replace")
  78.  
  79.  
  80. exit
  81.