home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / file / dirman / install.cmd < prev    next >
Encoding:
Text File  |  1993-01-31  |  2.8 KB  |  91 lines
  1. /* Directory Manager 2.0 install routine                        */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. say center(' Welcome to the Directory Manager 2.0 install procedure ', 79, '*');
  5. say center(' QB Software,  P.O. Box 8019, Rochester,  Minnesota  55903 ', 79, '*');
  6. say ''
  7. do forever
  8.    rc=CharOut(,"Enter source drive letter (example A): ");
  9.    input = '';
  10.    Do While (Pos('0A'x, input)=0);
  11.       input=input||CharIn(,,1);
  12.    End;
  13.    input = c2x(input)
  14.    input = delstr(input, (length(input)-3))
  15.    input = x2c(input)
  16.    source_drive = input
  17.    if source_drive \= '' then leave
  18. end
  19. source_drive = source_drive || ':'
  20. drive_info = SysDriveInfo(source_drive)
  21. parse var drive_info . . . label
  22. if label \= 'DIRMANPM' then
  23.     do
  24.        stream_name = stream(source_drive||'\DIRMAN20.EXE', 'c', 'query exists')
  25.        if stream_name = '' then
  26.        do
  27.           say 'Error, incorrect installation diskette';
  28.           exit
  29.         end
  30.     end
  31. say ''
  32. do forever
  33.    rc=CharOut(,"Enter fully quailified target directory (example C:\DIRMAN ): ");
  34.    input = '';
  35.    Do While (Pos('0A'x, input)=0);
  36.       input=input||CharIn(,,1);
  37.    End;
  38.    input = c2x(input)
  39.    input = delstr(input, (length(input)-3))
  40.    input = x2c(input)
  41.    target_directory = input
  42.    if target_directory \= '' then leave
  43. end
  44. new_directory = directory(target_directory);
  45. if new_directory \= target_directory then
  46.     do
  47.        say ''
  48.        say 'Creating directory' target_directory
  49.        rc = SysMkDir(target_directory);
  50.        if rc \= 0 then
  51.           do
  52.               say 'Error creating directory' target_directory
  53.               exit
  54.            end
  55.        say 'Directory' target_directory 'created';
  56.        new_directory = directory(target_directory);
  57.        new_directory = translate(new_directory);
  58.        target_directory = translate(target_directory);
  59.     end
  60. if new_directory = target_directory then
  61.    do
  62.        say ''
  63.        say 'Copying files to' target_directory '...';
  64.        '@ECHO OFF'
  65.        'COPY A:*.* ' target_directory '1>NUL 2>&1'
  66.        '@ECHO ON'
  67.        say 'Copy complete';
  68.    end
  69.    else do
  70.            say 'Error copying files to' target_directory
  71.            exit
  72.     end
  73. say ''
  74. say 'Creating Directory Manager object'
  75. location = '<WP_DESKTOP>'
  76. title    = 'Directory Manager 2.0'
  77. class    = 'WPProgram'
  78. progtype = 'PROGTYPE=PM;'
  79. exename  = 'EXENAME='||target_directory||'\DIRMAN20.EXE;'
  80. workdir  = 'WORKDIR='||target_directory||';'
  81. objectid = '<DIRMAN_2_0>;'
  82. open     = 'OPEN=DEFAULT;'
  83. setup    = progtype||exename||workdir||objectid||open
  84. rc = SysCreateObject(class, title, location, setup, 'F')
  85. if rc \= 1 then
  86.     do
  87.        say 'Error creating Directory Manager object';
  88.        exit
  89.     end
  90. say 'Directory Manager object created';
  91.