#  $Header: getHomes.pl 25-jun-2002.10:11:15 xxu Exp $
#
#  Copyright (c) 2001, 2002, Oracle Corporation.  All rights reserved.  
#
#    NAME
#      getHomes.pl
#
#    DESCRIPTION
#      Get homes information given a relative path to the 
#      corresponding XML file.
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    xxu         06/25/02 - remove /usr/local/bin/perl
#    vkhizder    07/17/01 - Creation
#

# don't forget: setenv PERLLIB /.../scripts
require "getHome0.pl";

# get central home location
my $inventoryLocation = getHome0();

# get file with homes
$inventoryLocation .= $ARGV[0];

# try to open central inventory and return the file contents
open(INVENTORY, $inventoryLocation) or die "Do not have access to file $inventor
yLocation\n";

while (<INVENTORY>)
{
  print; 
}

close INVENTORY;

exit 0;