home *** CD-ROM | disk | FTP | other *** search
/ EZ Est 1999 February / EZ_Est_EZNet_Communication_Network_February_1999.iso / LKQ / RPVMDB / RPV.INF next >
Text File  |  1995-01-25  |  3KB  |  114 lines
  1. ;; By Jie Xia
  2. ;; Copyright CCC Information Services Inc.
  3. ;; Date: 01/24/95
  4. ;; This is the RPV MUlriple Database installation script
  5. ;; Related file: rpv.pvd (used for creating library file rpv.pvl)
  6.  
  7.  
  8. ;; Define default directory
  9. DefineVariables
  10.   Directory [DefaultDir] := \CCC\EZEST
  11. EndDefineVariables
  12.  
  13. ;; Set replacement inquiry off
  14. SetReplacementInquiry Off 
  15.  
  16. ;; Setup default variables for the installation
  17. Do SetupINSTALL
  18.  
  19. Dialog
  20.  
  21.   .lUse this program to install RPV Multiple
  22.   .lDatabase program files.
  23.   
  24.   
  25.   .cInstall Version: 1.0
  26.   
  27.   .cJanuary 20, 1995
  28.   
  29.   .lYou may quit the installation process at any 
  30.   .ltime by pressing <Ctrl X>
  31. EndDialog
  32.  
  33. ;; Main program begin
  34. :Main
  35.  
  36. ;; Get the installation drive
  37. DetermineInstallationDrive RequireFixed
  38.  
  39. If FreeSpaceOnDrive InstallationDrive < 4500000
  40.    Dialog
  41.  
  42.         .cSorry, 4.5 Megabytes of hard disk space are 
  43.         .crequired to install RPV Multiple Database... 
  44.   
  45.    EndDialog
  46.    SoLong Quietly
  47. EndIf
  48.  
  49. ;;If EZCFG exist do following:
  50. [String1] := EnvironmentStringFor EZCFG
  51.  
  52. If [String1] = BlankString
  53.    Dialog 
  54.  
  55.         .lBecause EZCFG is not set, RPV Multiple Database can't be installed.  
  56.   
  57.    EndDialog
  58.    SoLong Quietly
  59. Else
  60.    ExamineTextFile  [String1]\DATA\SVALREG.DAT
  61.       [String2] := LineWith (SALPRIC,,)
  62.    ForgetTextFile
  63.    
  64.    If [String2] = SALPRIC.000
  65.       Dialog 
  66.  
  67.         .lBecause [String1]\DATA\SVALREG.DAT file contains SALPRIC.000, 
  68.         .lRPV Multiple Database can't be installed.  
  69.         
  70.       EndDialog
  71.       SoLong Quietly
  72.    Else
  73.  
  74.         QueFileGroup 1
  75.                 [InstallationDirectory] := [String1]
  76.         GetQuedFiles
  77.         
  78.         [String3] := SubstringOf [String1] from 1 to 3
  79.  
  80.         QueFiles to [String3]
  81.                 RPV.BAT
  82.         EndQueFiles
  83.         GETQUEDFILES
  84.    EndIf     
  85. EndIf 
  86.  
  87. Dialog 
  88.  
  89.       .lInstallation was successfully completed!
  90.   
  91. EndDialog
  92.  
  93.  
  94. SoLong Quietly
  95. ClearScreen
  96.  
  97.  
  98. ;; Setup default variables for the installation
  99. Procedure SetUpINSTALL
  100.   SetBackgroundCharTo B0
  101.   SetPopUpAttrTo WhiteOnCyan
  102.   ;;SetPopUpBorderTo double
  103.   SetShadowAttrTo CyanOnDarkGray
  104.   SetScreenAttrTo BlueOnWhite
  105.   SetTopLineAttrTo BlackOnLightGray
  106.   SetTopLineTo    "       RPV Multiple Database Installation Utility        " 
  107.   SetBottomLineAttrTo BlackOnLightGray
  108.   SetBottomLineTo "          Copyright CCC Information Services Inc., 1995.            "    
  109. EndProcedure
  110.  
  111. ;; End the script language
  112. EndScript
  113.  
  114.