home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 29 Fixes_o
/
29-Fixes_o.zip
/
cidfix20.zip
/
GETFIX2.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-28
|
919b
|
40 lines
@ECHO OFF
IF %1.==. ECHO GETFIX source (target)
IF %1.==. GOTO END
REM
REM CHECK SOURCE DIRECTORY
REM
IF EXIST %1\FIX\OS2\*.* GOTO GETTAR
COPY %1\FIX\OS2\*.*
GOTO END
:GETTAR
REM
REM GET TARGET DIRECTORY
REM
SET GF_TARGET=
IF %2.==. SET GF_TARGET=.
IF NOT %2.==. SET GF_TARGET=%2
REM
REM CHECK TARGET DIRECTORY
IF EXIST %GF_TARGET% GOTO COPY_UNPACK
COPY %GF_TARGET%\UNPACK2.EXE
GOTO END
:COPY_UNPACK
REM
REM COPY UNPACK2.EXE TO EXE DIRECTORY
REM
ECHO COPY %1\UNPACK2.EXE %GF_TARGET%
COPY %1\UNPACK2.EXE %GF_TARGET%
IF EXIST %GF_TARGET% GOTO UNPACK
COPY %GF_TARGET%\UNPACK2.EXE
GOTO END
:UNPACK
REM
REM UNPACK ALL POSSIBLIE CID FILES IF THEY EXIST
REM
ECHO %GF_TARGET%\UNPACK2 %1\FIX\OS2
FOR %%I IN (SEINST SEIMAGE SEDISK SETBOOT XCOPY) DO IF EXIST %1\FIX\OS2\%%I.* %GF_TARGET%\UNPACK2 %1\FIX\OS2\%%I.* %GF_TARGET%
IF NOT EXIST %GF_TARGET%\__RSP1.001 GOTO END
:END
SET GF_TARGET=