# HCVEinit.def: Initializes Health Check/Validation Engine Evaluation Context
# $Id: HCVEinit.def,v 1.10 2008/02/25 17:32:54 mschenke Exp $
# ARCS: $Header: /home/cvs/repository/RDA_4/src/scripting/lib/modules/HCVEinit.def,v 1.10 2008/02/25 17:32:54 mschenke Exp $
#
# Change History
# 20080225  MSC  Change the copyright notice.

=head1 NAME

HCVEinit - Initializes the Health Check/Validation Engine Evaluation Context

=head1 DESCRIPTION

This persistent sub module contains the initialization of the evaluation
context for all actions written in the data collection specification language.

=cut

# Define the global variables
var ($OS_BIT,$OS_LVL,$OS_NAM,$OS_PLT,$OS_TYP,$OS_VER) = ()
var ($PKG,@PKG,%PKG) = (true)

# Call the operating specific libraries
run &{check(getOsName(),'aix',             'HCaix',\
                        'darwin',          'HCdarwin',\
                        'dec_osf',         'HCosf',\
                        'dynixptx',        'HCptx',\
                        'hpux',            'HChpux',\
                        'linux',           'HClinux',\
                        'solaris',         'HCsunos',\
                         cond(isWindows(), 'HCwin32',\
                              isUnix(),    'HCunix',\
                              isVms(),     'HCvms'))}()

=head1 COMMON MACROS

=head2 load_passwords()

This macro loads stored passwords.

=cut

macro load_passwords
{# Get the current login
 var $log = setSqlLogin()

 # Define the SQL logins
 loop $key (grepSetting('^SQL_PASSWORD_'))
 {if match($key,'^SQL_PASSWORD__([\+\w]+)__(.*)$')
  {var ($sid,$usr) = (last)
   var $sid = replace($sid,'plus','+',true)
  }
  else
   var ($usr,$sid) = (substr($key,13))
  call setSqlLogin($usr,unpack('u',getSetting($key)),$sid)
 }
 loop $key (grepSetting('^SQL_PASS_\d+$'))
 {var ($usr,$sid) = split('\@',getSetting(replace($key,'_PASS_','_USER_')),2)
  call setSqlLogin($usr,unpack('u',getSetting($key)),$sid)
 }
 
 # Restore the current login
 call setSqlLogin($log)
}

=head1 SEE ALSO

See also L<HCaix|modules::HCaix>, L<HCdarwin|modules::HCdarwin>,
L<HChpux|modules::HChpux>, L<HClinux|modules::HClinux>,
L<HCosf|modules::HCosf>, L<HCptx|modules::HCptx>,
L<HCsunos|modules::HCsunos>, L<HCunix|modules::HCunix>,
L<HCvms|modules::HCvms>, L<HCwin32|modules::HCwin32>.

=head1 COPYRIGHT NOTICE

Copyright (c) 2002-2008, Oracle. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle, JD Edwards, PeopleSoft, and Siebel are registered trademarks of Oracle
Corporation and/or its affiliates. Other names may be trademarks of their
respective owners.

=cut