#!/usr/local/bin/perl
# 
# $Header: isCluster.pl 10-jan-2005.16:46:28 hying Exp $
#
# isCluster.pl
# 
# Copyright (c) 2005, Oracle. All rights reserved.  
#
#    NAME
#      isCluster.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)
#    hying       01/10/05 - hying_crs_metrics
#    hying       01/03/05 - Creation
# 
require "emd_common.pl";
require "semd_common.pl";

my $crs_home = shift(@ARGV); # CRSHome

if ($crs_home ne '')
  
{
  printf "em_result=TRUE\n";
}
else
{
  printf "em_result=FALSE\n";
}
exit 0;