home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / chronos / alarmpro / apinst.cmd < prev    next >
Encoding:
Text File  |  1993-09-16  |  3.5 KB  |  135 lines
  1. /* */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. call SysCls
  5. pos = SysCurPos(5,0)
  6. say 'Enter the target drive and directory then press <ENTER>'
  7. PULL targdrv
  8. say ' '
  9. say 'Enter the source drive and directory then press <ENTER>'
  10. PULL srcepath
  11. say ' '
  12. say 'Installing Alarm Pro in 'targdrv
  13.  
  14. call STARTINSTALL
  15. call INSTALRMPRO
  16. if UpGrade = 1 then call DBUPGRADE
  17.    
  18.  
  19. say ' '
  20. say '┌───────────────────────────────────────────┐'
  21. say '│                                           │'
  22. say '│         Alarm Pro INSTALLED               │'
  23. say '│                                           │'
  24. say '│ Be sure that the selected directory is in │'
  25. say '│ your LIBPATH= statement or .\ is in the   │'
  26. say '│ LIBPATH.  See your CONFIG.SYS file.       │'
  27. say '│                                           │'
  28. say '└───────────────────────────────────────────┘'
  29. exit
  30.  
  31.  
  32.  
  33.  
  34.  
  35. STARTINSTALL:
  36.    call SysFileTree srcepath, 'file', 'D'
  37.    if file.0 = 0 then do
  38.        say 'Incorrect diskette in 'srcepath
  39.        exit
  40.        end
  41.  
  42.    call SysFileTree targdrv, 'file', 'D'
  43.    if file.0 = 0 then do
  44.       UpGrade = 0
  45.       call CREATEPATH
  46.       end
  47.    else
  48.       UpGrade = 1
  49.  
  50. return /* STARTINSTALL */
  51.  
  52. DBUPGRADE:
  53.    do I = 1 to 5 by 1
  54.       say ' '
  55.       say 'Do you want APINST to run the Database Upgrade Utility?'
  56.       say 'Press Y for yes or N for no'
  57.       rc = SysGetKey()
  58.       say ' '
  59.       say ' '
  60.       select
  61.           when rc = 'Y' then do
  62.                targd = substr(targdrv, 1, 2)
  63.                Lngth = length(targdrv)
  64.                Lngth = Lngth - 2
  65.                targp = substr(targdrv, 3, Lngth)
  66.                targd
  67.                cd targp
  68.                "apupgrad"
  69.                return
  70.              end  /* Do */
  71.           when rc = 'y' then do
  72.                targd = substr(targdrv, 1, 2)
  73.                Lngth = length(targdrv)
  74.                Lngth = Lngth - 2
  75.                targp = substr(targdrv, 3, Lngth)
  76.                targd
  77.                cd targp
  78.                "apupgrad"
  79.                return
  80.              end  /* Do */
  81.           when rc = 'N' then return
  82.           when rc = 'n' then return
  83.           otherwise beep(454, 100)
  84.       end  /* select */
  85.    end /* do */
  86. return
  87.  
  88.  
  89. INSTALRMPRO:
  90.    "@echo off"
  91.    copy srcepath'\*.* 'targdrv
  92.    settings='PROGTYPE=PM;EXENAME='targdrv'\ALRMPRO.EXE;OBJECTID=<ALRMPRO>;STARTUPDIR='targdrv
  93.    call SysCreateObject 'WPProgram', 'Alarm Pro', '<WP_DESKTOP>', settings, 'REPLACE'
  94.    echo on
  95. return
  96.  
  97.  
  98. CREATEPATH:
  99.  
  100.    do I = 1 to 5 by 1
  101.       say ' '
  102.       say 'Press Y to create the directory 'targdrv
  103.       say 'Press N to end the install'
  104.       rc = SysGetKey()
  105.       say ' '
  106.       say ' '
  107.       select
  108.           when rc = 'Y' then do
  109.               rc = SysMkDir(targdrv)
  110.               if rc \= 0 then do
  111.                   say 'Error Creating 'targdrv
  112.                   say 'Install Ended unsuccessfully'
  113.                   beep(454, 100)
  114.                   exit
  115.                   end
  116.               leave
  117.           end  /* Do */
  118.           when rc = 'y' then do
  119.               rc = SysMkDir(targdrv)
  120.               if rc \= 0 then do
  121.                  say 'Error Creating 'targdrv
  122.                  say 'Install Ended unsuccessfully'
  123.                  beep(454, 100)
  124.                  exit
  125.                  end
  126.               leave
  127.           end  /* Do */
  128.           when rc = 'N' then leave
  129.           when rc = 'n' then leave
  130.           otherwise beep(454, 100)
  131.       end  /* select */
  132.    end /* do */
  133.  
  134. return /* CREATEPATH */
  135.