home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 51.ddi / SPX11.VRF < prev    next >
Encoding:
Text File  |  1993-03-22  |  3.3 KB  |  90 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     spx11.vrf - NetWare V3 installation verification script for SQL*Net SPX.
  5.  
  6.   DESCRIPTION
  7.     This script checks dependencies and environment settings for installation
  8.     of the NetWare SQL*Net SPX product.
  9.  
  10.   OWNER
  11.     Tim Kelley
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     vokamura  19-NOV-92 update
  15.     trodgers  31-JAN-92 Created.
  16.     trodgers  27-FEB-92 Split client/server.
  17.     tkelley   06-MAR-92 Copied from OS/2 spxs.vrf
  18.     vokamura  24-JUL-92 Modified for NetWare installation
  19. *****************************************************************************/
  20. {
  21. /*****************************************************************************
  22.    Bind string constants ...
  23. *****************************************************************************/
  24.   product = nwspx11;
  25.   product_label = product_interface_label(product);
  26.  
  27.   spxname_prompt  = nls("spxname_prompt","What should the listener name be set to?");
  28.   spxname_help    = nls("spxname_help","Specify a default name that the SQL*Net SPX 1.1 listener will use.");
  29.   spxname_content = nls("spxname_content","Listener Name");
  30.  
  31.   net1_analyze_comment = nls("net1 analyze comment","Analyzing %%product_label%% Dependencies...");
  32.   net1_install_scripts = nls("net1 install scripts","Installing %%product_label%% Installation Scripts...");
  33.   net1_install_nlms = nls("net1 install nlms","Installing %%product_label%% NLMs...");
  34.   net1_modify_config = nls("net1 modify config","Modifying %%ora_config%%...");
  35.   net1_register_label = nls("net1 register label","Registering %%product_label%%...");
  36.  
  37. /*****************************************************************************
  38.    Start main logic ...
  39. *****************************************************************************/
  40.   ui_product(product_label);
  41.   ui_action(instantiate(net1_analyze_comment));
  42.  
  43.   doit = TRUE;
  44.  
  45. /*****************************************************************************
  46.    Check if the product has already been installed ...
  47. *****************************************************************************/
  48.  
  49.   if (registered(product_name(product)))
  50.   {
  51.     registry = registration(product_name(product));
  52.     current_version = product_version(product);
  53.     installed_version = registry_version(registry);
  54.  
  55.     if (earlier_version(registry,current_version))
  56.     {
  57.       doit = yesno_dialog(instantiate(reinstall_prompt01));
  58.  
  59.       if (not(doit))
  60.         if (internally_called)
  61.           information_dialog(instantiate(reinstall_prompt02));
  62.     }
  63.     else if (not(internally_called))
  64.       if (later_version(registry,current_version))
  65.         doit = yesno_dialog(instantiate(reinstall_prompt03));
  66.       else
  67.         doit = yesno_dialog(instantiate(reinstall_prompt04));
  68.     else
  69.       doit = FALSE;
  70.   }
  71.  
  72.   if (doit)
  73.   {
  74.     mark
  75.     {
  76.  
  77.       { spxname_default = translate("ORACLE_SRVNAME","%SERVER%\%ORA_CONFIG%"); }
  78.        [ 'UNBOUND_ENVIRONMENT_VARIABLE: spxname_default = "ORASRV"; ]
  79.  
  80.       spxname = text_dialog(spxname_prompt,spxname_default,
  81.                             spxname_content,spxname_help);
  82.     }
  83.   }
  84.  
  85.   if (doit)
  86.     return( sum( nlm, deinstl ) );
  87.   else
  88.     return(0);
  89. }
  90.