# !/usr/local/bin/perl
#
# componentfailuremessage.pl
#
# Copyright (c) 2005, 2006, Oracle. All rights reserved.  
#
#    NAME
#      componentfailuremessage.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#     Script to print error message to prompt user to take appropriate action on component creation failure
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#       ssdas    05/10/06 - 
#
#    ssdas        05/11/06 - Creation
#
$ENV{PATH} = "/bin:/usr/bin:/usr/local/bin:/usr/sbin";
use strict;

main();

sub main()
{
     my $path = $ARGV[0];
     print "\nError in OS component creation!\nYou may delete the temporary directory \n$path if required\n";

}