home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mpbeta-2.zip / fixini.cmd < prev    next >
OS/2 REXX Batch file  |  1994-07-12  |  867b  |  29 lines
  1. /* REXX script to set the Installed flag in MAXFMPM.INI        */
  2. /* If you haven't read the docs, don't run this until you do.  */
  3. /* This file should only be used by previous MaxFile/PM users. */
  4. '@echo off'
  5. Say "MaxFile/PM FIXINI Installation Aid."
  6. Say 'Copyright 1994 Craig Morrison, All Rights Reserved.'
  7.  
  8. Call RxFuncAdd 'SysIni', 'RexxUtil', 'SysIni'
  9. Call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
  10.  
  11. Call SysFileTree 'MAXFMPM.INI', 'files', 'FO'
  12.  
  13. If files.0 \= 1 Then Do
  14.     Say
  15.     Say 'MAXFMPM.INI not found, or more than one found.'
  16.     Say 'FIXINI is aborting.'
  17.     Exit
  18. End
  19.  
  20. Say 'Setting installed flag in 'files.1'.'
  21.  
  22. rc = SysIni(files.1, 'MaxFilePM', 'Installed', '1')
  23. rc = SysIni(files.1, 'MaxFilePM', 'Installed')
  24. If rc \= '1' Then Do
  25.     Say
  26.     Say 'Error setting installed flag in 'files.1'!'
  27. End
  28. Say 'All done!'
  29.