#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
#  
#  
# Licensed Materials - Property of IBM 
#  
# (C) COPYRIGHT International Business Machines Corp. 2005,2007 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
# @(#)52   1.2   src/csm/install/HMCCmdFilter.perl, setup, csm_rfish, rfishs001b 2/1/05 18:50:16

use strict;
use locale;
BEGIN
  {
	# this enables us to redirect where it looks for other CSM files during development
	$::csmroot = $ENV{'CSM_ROOT'} ? $ENV{'CSM_ROOT'} : '/opt/csm';
	$::csmpm = "$::csmroot/pm";
	$::csmbin = "$::csmroot/bin";
  }
use lib $::csmpm;
require NodeUtils;
use Getopt::Std;
my ($arg1, $restargs) = @ARGV;
my @restofargs = split ' ', $restargs;
foreach my $arg (@restofargs){
  if($arg =~ m/^-/){ #starts with a dash
    next;
  }
  else{
    if($arg eq $arg1){ exit 0; }
    exit 1;
  }
}
exit 1; #incase all options started with a dash

