#!/h/COE/Comp/PERL5/bin/perl -T -I/h/COE/lib -w
use strict;
use Coe;

my $PRGM="COEInstaller";
my $VERSION="1.1.4.1";

my $arg1;
my $ret=0;

if (@ARGV > 1) {
  &useage;
  exit -1;
}

sub useage {
  print "Useage: COEInstaller [flags]\n";
}


while (@ARGV>0) {
  $arg1=cleanString(shift, 4);
  if ("$arg1" eq "-h") {
     useage;
     exit 0;
  } elsif ("$arg1" eq "-H") {
     coeMan("COE_HOME/docs/man/$PRGM");
     exit 0;
  } elsif ("$arg1" eq "-V") {
     print "VERSION: $VERSION\n";
     exit 0;
  } else {
     coeMan("COE_HOME/docs/man/$PRGM");
     exit 0;
  }
}

$ret=coeRun("COE_COMP/JAVA2/bin/java",
	"-Dcfgfile=COE_HOME/lib/coeenv.txt",
	"-classpath",
	"COE_HOME/lib/opencoe.jar:COE_HOME/lib:COE_HOME/lib/jftp.jar",
	"org.opencoe.coe.kernel.apps.COEInstaller");

exit $ret;