#!/usr/local/bin/perl
# 
# $Header: emdb/sysman/admin/scripts/has/has_getinvdir.pl /st_emdbsa_11.2/1 2009/03/09 11:30:34 ajdsouza Exp $
#
# has_getinvdir.pl
# 
# Copyright (c) 2009, Oracle and/or its affiliates.All rights reserved. 
#
#    NAME
#      has_getinvdir.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    ajdsouza    01/28/09 - get oracle inventory loc.
#    ajdsouza    01/28/09 - Creation
# 
use strict;
use warnings;

use locale;



BEGIN
{

 use POSIX qw(locale_h);

 my $clocale='C';

 for ( qw ( LC_ALL LC_COLLATE LC_CTYPE LC_TIME LC_NUMERIC LC_MESSAGES LC_MONETARY LANG LANGUAGE ) )
 {
   $ENV{$_}=$clocale;
 }

 setlocale(LC_ALL,$clocale) or warn "WARN:Failed to set locale to $clocale \n ";

}

require "semd_common.pl";

my $inv;

$inv = getInventoryXmlPath();

print "$inv\n";

exit 0;