MINI

C:/app/Administrator/product/11.2.0/dbhome_1/sysman/admin/scripts/db/net/

files >> C:/app/Administrator/product/11.2.0/dbhome_1/sysman/admin/scripts/db/net/checkCredentials.pl

 #!/usr/local/bin/perl
# 
# $Header: checkCredentials.pl 15-feb-2006.00:38:11 vivsharm Exp $
#
# checkCredentials.pl
# 
# Copyright (c) 2002, 2006, Oracle. All rights reserved.  
#
#    NAME
#      checkCredentials.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)
#    vivsharm    02/15/06 - NT porting 
#    dkapoor     07/26/02 - don't check for writable lsnrctl
#    dkapoor     07/18/02 - dkapoor_create_script_dirs
#    dkapoor     07/18/02 - Creation
# 

require 5.8.2;
sub verifyCredentials
{
	my ($oracleHome,$tnsAdmin) = @_;

	if(!(-d $oracleHome))
	{
    	   return "NET_ADMIN_ERROR,NO_ORACLE_HOME,$oracleHome";
	}

	if(!(-d $tnsAdmin))
	{
    	   return "NET_ADMIN_ERROR,NO_TNS_ADMIN,$tnsAdmin";
	}

  return "";
}