home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / DISKMAGIG.DMS / DISKMAGIG.adf / Configure.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-10  |  2.2 KB  |  91 lines
  1. /**
  2.  * DiskMAGIC Startup for floppy
  3.  * 
  4.  *
  5.  * Sets C: Assign & any thing else required
  6.  * C: assign used for the archivers & other tools 
  7.  * Copyright © 1995 HiSoft Systems. All Rights Reserved.
  8. **/
  9.  
  10. IF exists('C:Lha') = 1 then
  11.  
  12.    DO
  13.       EXIT
  14.    END
  15.  
  16. OPTIONS RESULTS
  17. ADDRESS MT_REXX
  18.  
  19. 'ASK TEXT="Can''t locate Lha. Do you want to configure*nDiskMAGIC for archive handling now..." BUTTONS="Configure _Now|Configure _later"'
  20.  
  21. RES = RESULT
  22.  
  23. IF RES = 0 then
  24.    DO
  25.       IF exists('ENV:MTPATH') = 1 then
  26.          DO
  27.  
  28.             Open(input, 'ENV:MTPATH', R)
  29.             MTPATH = Readln(input)
  30.             Close(input)
  31.  
  32.             IF RIGHT(MTPATH,1,1) ~= ":" THEN
  33.  
  34.             DO
  35.                MTPATH = MTPATH || '/'
  36.             END
  37.  
  38.             ADDRESS COMMAND 'SYS:C/ASSIGN C: ' || MTPATH || 'C ADD'
  39.  
  40.          END 
  41.  
  42.  
  43.          'ASK TEXT="Archive setup has been configured*nfor use during this session only.*n*nThis ARexx script can enable*npermanent archive support now,*nhowever, it will alter the*nsystem user-startup file.*n*nNote(Floppy only):*n*nThis will alter your Workbench or*nBoot disk and is only recemmended*nfor 2 drive systems.*n" BUTTONS="_Alter User-Startup|_Exit"'
  44.  
  45.          RES = RESULT
  46.  
  47.          IF RES = 0 THEN
  48.  
  49.          DO
  50.  
  51.             IF exists('S:User-Startup') = 1 then
  52.             DO
  53.                Open(output, 'S:User-Startup', A)
  54.                Writeln(output,';BEGIN DiskMAGIC')
  55.                Writeln(output,'ASSIGN C: ' || MTPATH || 'C ADD')
  56.                Writeln(output,';END DiskMAGIC')
  57.                Close(output)
  58.       
  59.             END
  60.       
  61.             ELSE
  62.          
  63.                DO
  64.       
  65.                Open(output, 'S:User-Startup', W)
  66.                Writeln(output,';BEGIN DiskMAGIC')
  67.                Writeln(output,'ASSIGN C: ' || MTPATH || 'C ADD')
  68.                Writeln(output,';END DiskMAGIC')
  69.                Close(input)
  70.    
  71.                END
  72.  
  73.             STR ='The User-Startup has been altered,*nthe following lines have been added:*n*n;BEGIN DiskMAGIC*nASSIGN C:'||MTPATH||'C ADD*n;END DiskMAGIC'
  74.  
  75.          'ASK TEXT="'||STR||'" BUTTONS="E_XIT"'
  76.    
  77.          END
  78.  
  79.          ELSE
  80.  
  81.          DO
  82.             EXIT
  83.          END
  84.    END
  85.  
  86.    ELSE
  87.  
  88.    DO
  89.       EXIT
  90.    END
  91.