Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\has\has_getinvdir.pl
#!/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;
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de