OS/2 Shareware BBS: 6 File/06-File.zip/jc240d.zip/INSTALL.CMD

OS/2 REXX Batch file | 1996-08-06 | 6KB | 221 lines

/* JETCOMMANDER Installation                           */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
say center('┌─────────────────────────────────────┐', 79, ' ');
say center('│      JetCommander Installation      │', 79, ' ');
say center('│                                     │', 79, ' ');
say center('└─────────────────────────────────────┘', 79, ' ');
say ''

CurDir = Directory()
parse SOURCE cmdd
cmdd = word(cmdd,3)
SrcDrv = left(cmdd, length(cmdd)-length('install.cmd')-1)

Dstdrv = 'C:'           /* default value */
SeachRep = 0

SeachAgain:
InnF=Srcdrv'\INSTALL.CMD'

if stream(InnF,'C','query exists') \= "" then signal FoundSrcDrv

SeachRep = SeachRep + 1

select
   when SeachRep=1 then do
        Srcdrv = CurDir
        signal SeachAgain
        end
   when SeachRep=2 then do
        DrvLetter = 'A'
        Srcdrv = DrvLetter':\'
        signal SeachAgain
        end
    otherwise nop
end

if DrvLetter \= 'Z' then do
    DrvLetter= D2C(C2D(DrvLetter)+1)
    Srcdrv = DrvLetter':\'
    signal SeachAgain
end

Srcdrv='A:'
signal NotFoundSrcDrv

FoundSrcDrv:

target_directory = 'C:\JC'

signal StartInstall

/********************/
/* Ask the User     */
/********************/

askagain:
StartInstall:
RESUME:
say ' Quellaufwerk ist         :' Srcdrv
say ' Zielpfad ist             :' target_directory
say ''
say ' Ist dies richtig ? (J/N) : J'
pull answer
if answer = 'N' then signal askdrives

source_drive = Srcdrv
drive_info = SysDriveInfo(source_drive)
parse var drive_info . . . label
/* if label \= 'JC' then */
    do
       stream_name = stream(source_drive||'\JC2.EXE', 'c', 'query exists')
       if stream_name = '' then
       do
          say 'Fehler, falsche Installationsdiskette';
          exit
        end
    end
say ''
new_directory = directory(target_directory);
if new_directory \= target_directory then
    do
       say ''
       say '.. Lege Verzeichnis an' target_directory
       rc = SysMkDir(target_directory);
       if rc \= 0 then
           do
              if rc \= 5 then
               do
                say 'Abbruch, Fehler beim Anlegen des Verzeichnisses' target_directory rc
                exit
               end
              else
               do
                say 'Fehler beim Anlegen des Verzeichnisses' target_directory
               end
           end
       else
        do
          say 'Verzeichnis' target_directory 'angelegt';
        end
       new_directory = directory(target_directory);
       new_directory = translate(new_directory);
       target_directory = translate(target_directory);
    end
if new_directory = target_directory then
   do
       say '.. Kopiere JetCommander-Dateien nach' target_directory '...';
       '@ECHO OFF'
       'COPY A:*.* ' target_directory '1>NUL 2>&1'
       '@ECHO ON'
   end
   else do
           say 'Fehler beim Kopieren der Dateien nach ' target_directory
           exit
    end
say '.. Lege JetCommander Objekt auf dem Desktop an '
location = '<WP_DESKTOP>'
title    = 'JC_212'
class    = 'WPProgram'
progtype = 'PROGTYPE=PM;'
exename  = 'EXENAME='||target_directory||'\JC2.EXE;'
workdir  = 'WORKDIR='||target_directory||';'
objectid = '<JETCOMMANDER>;'
open     = 'OPEN=DEFAULT;'
setup    = exename||workdir||objectid||open
rc = SysCreateObject(class, title, location, setup, 'R')
if rc \= 1 then
    do
       say 'Fehler beim Anlegen des JetCommander Objekts';
       exit
    end

/********************************************************************/
/* Seach for OS2 system path in PATH environement                   */
/********************************************************************/

Path = value('PATH',,'OS2ENVIRONMENT')
if Path = '' then signal ENDSEARCH

ntmp = pos(':\OS2;', Path)
if ntmp = 0 then signal ENDSEARCH

Dstdrv=substr(Path, ntmp-1,2)

/*****************************************************************************/
/*                 Checking the default values                               */
/*****************************************************************************/
                                               /* checking source      */
if stream(Srcdrv'\JC2.EXE', 'C', 'query exists') = "" then signal RESUME

NewDir=directory(Dstdrv'\')

InnF=Dstdrv'\CONFIG.JC'
OutF=Dstdrv'\CONFIG.SYS'
stmp = 'SET JC='target_directory

say '.. Kopiere' OutF  ' nach ' InnF
'@ECHO OFF'
'copy 'OutF' 'InnF' >nul'
'del 'OutF
'@ECHO ON'

found = 0

say '.. Bearbeite ' OutF 'aktualisiere ' stmp
do until lines(InnF) = 0
    InStr = linein(InnF)
    if pos('SET JC=', InStr) > 0   then  do
        found = 1
     call lineout OutF, stmp
    end
    else do
     call lineout OutF, InStr
    end
end
if found = 0 then do
     call lineout OutF, stmp
end

call stream OutF, 'c', 'close'
call stream InnF, 'c', 'close'

signal endinst

askdrives:
/************/
do forever
   rc=CharOut(,"Geben Sie das Quellaufwerk ein  (Beispiel A): ");
   input = '';
   Do While (Pos('0A'x, input)=0);
      input=input||CharIn(,,1);
   End;
   input = c2x(input)
   input = delstr(input, (length(input)-3))
   input = x2c(input)
   Drvletter = input
   if Drvletter \= '' then leave
end
  Srcdrv = Drvletter':'

do forever
   rc=CharOut(,"Geben Sie den gesamten Zielpfad an (Beispiel C:\JC ): ");
   input = '';
   Do While (Pos('0A'x, input)=0);
      input=input||CharIn(,,1);
   End;
   input = c2x(input)
   input = delstr(input, (length(input)-3))
   input = x2c(input)
   target_directory = input
   if target_directory \= '' then leave
end

signal askagain


endinst:
exit