# Copyright (c) 2001, 2002, Oracle Corporation.  All rights reserved.  
#
#    NAME
#      getComponents.pl
#
#    DESCRIPTION
#       Get contents of a given components 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

my $file = $ARGV[0];

# check if the input filename points to a normal text file
unless (-f $file && -T $file)
{
  print "Could not find file $file\n";
  exit -1;
}

# open components file
open(COMPS_FILE, $file) or die "Do not have access to file $file\n";

while (<COMPS_FILE>)
{
  print; 
}

close COMPS_FILE;

exit 0;