home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 December / PCO_1298.ISO / filesbbs / os2 / minta200.arj / MINTA200.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1998-09-25  |  3.5 KB  |  112 lines
  1. /*************************************************************************/
  2. /*  MINTA installation file - Creates a WPS-object for Minta             */
  3. /*  To run this file, just type "install" on the OS/2 command line.      */
  4. /*************************************************************************/
  5.  
  6. PARSE SOURCE operSystem . sourceFile
  7.  
  8. IF \(operSystem = "OS/2") THEN DO
  9.     SAY "Please use only with IBM-OS/2 Operating system!"
  10.     EXIT
  11.     END
  12.  
  13. /*************************************************************************/
  14.  
  15. '@ECHO OFF'
  16.  
  17. CALL rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  18. CALL sysloadfuncs
  19.  
  20. /*************************************************************************/
  21.  
  22. Ver = "2.00"
  23. MintaDir = FILESPEC("drive", sourceFile)FILESPEC("path", sourceFile)
  24.  
  25. SAY ""
  26.  
  27. /*************************************************************************/
  28.  
  29. CALL SysFileTree MintaDir"MINTA.EXE",'file','F'
  30. IF file.0 = 0 THEN DO
  31.     SAY "MINTA.EXE was not found in the same directory as ",
  32.     FILESPEC("name",sourceFile)
  33.  
  34.     DO UNTIL \(file.0 = 0)
  35.         SAY ""
  36.         SAY "Please give the full path to the file MINTA.EXE."
  37.         SAY "(Press ENTER/RETURN alone to exit)"
  38.         PULL MintaDir
  39.         IF MintaDir = "" THEN
  40.             EXIT
  41.         IF (FILESPEC("drive",MintaDir) = "") | (FILESPEC("path",MintaDir) = "") THEN
  42.             SAY 'You must give a full path in format "d:\path\"'
  43.         ELSE DO
  44.             IF \(SUBSTR(MintaDir,length(MintaDir),1) = "\" ) THEN
  45.                 MintaDir = MintaDir"\"
  46.             CALL SysFileTree MintaDir"MINTA.EXE",'file','F'
  47.             IF file.0 = 0 THEN
  48.                 SAY "Can not find "MintaDir"MINTA.EXE. Please try again."
  49.             END
  50.         END
  51.     SAY ""
  52.     END
  53.  
  54. /*************************************************************************/
  55.  
  56. SAY ""
  57. SAY ""
  58. CALL CHAROUT , "* Do you want your MP3-files associated with Minta [Y/N] ? "
  59. key = SysGetKey('ECHO')
  60. PARSE upper var key key
  61. SAY ""
  62. IF key = 'Y'  THEN DO
  63.     setup = 'PROGTYPE=PM;EXENAME='MintaDir'MINTA.EXE;STARTUPDIR='MintaDir';'
  64.     setup = setup'ICONFILE='MintaDir'MINTA.ICO;OBJECTID=<THTH_MINTA>;'
  65.     setup = setup'ASSOCFILTER=*.MP3;ASSOCTYPE=MP3 audio stream;'
  66.     END
  67. ELSE DO
  68.     setup = 'PROGTYPE=PM;EXENAME='MintaDir'MINTA.EXE;STARTUPDIR='MintaDir';'
  69.     setup = setup'ICONFILE='MintaDir'MINTA.ICO;OBJECTID=<THTH_MINTA>;'
  70.     END
  71.  
  72. SAY ""
  73. SAY "* Creating Minta WPS-object ..."
  74. check = SysCreateObject('WPProgram', 'Minta 'Ver, '<WP_DESKTOP>', setup)
  75.  
  76. IF check = 0 THEN DO
  77.     SAY "* Could not create WPS-object!"
  78.     SAY "  (Does perhaps an object for Minta already exist?)"
  79.     CALL CHAROUT , "* Do you want to replace the existing object [Y/N] ? "
  80.     key = SysGetKey('ECHO')
  81.     PARSE upper var key key
  82.     SAY ""
  83.     IF key <> 'Y' THEN
  84.         EXIT
  85.  
  86.     SAY "* Replacing old Minta WPS-object ..."
  87.     check = SysCreateObject('WPProgram','Minta 'Ver,'<WP_DESKTOP>',setup,"r")
  88.  
  89.     IF check = 0 THEN DO
  90.         SAY ""
  91.         SAY "* Sorry, object-creation failed again. Aborting ..."
  92.         EXIT
  93.         END
  94.     ELSE DO
  95.         SAY ""
  96.         SAY "* Old Minta WPS-object replaced successfully!"
  97.         END
  98.     END
  99. ELSE DO
  100.     SAY ""
  101.     SAY "* Minta WPS-object created successfully!"
  102.     END
  103.  
  104. /*************************************************************************/
  105.  
  106. SAY ""
  107. SAY "* See the online help for more information about Minta!"
  108.  
  109. /*************************************************************************/
  110.  
  111. EXIT
  112.