#!/usr/bin/perl
#
#	A wrapper for the JP2_Info Java application.
#
#	CVS ID: JP2_Info,v 1.3 2011/06/24 01:01:07 castalia Exp

$PIRL_JAVA_HOME	= $ENV{"PIRL_JAVA_HOME"};
$PIRL_JAVA_HOME = "/opt/java"
	if (! $PIRL_JAVA_HOME &&
		-e "/opt/java/PIRL");
$CLASSPATH		= $ENV{"CLASSPATH"};

if ($PIRL_JAVA_HOME)
	{
	if ($CLASSPATH)
		{
		$CLASSPATH = "$PIRL_JAVA_HOME:$CLASSPATH";
		}
	else
		{
		$CLASSPATH = $PIRL_JAVA_HOME;
		}
	}

@Arguments = (java);
push @Arguments, "-cp", $CLASSPATH
	if $CLASSPATH;
push @Arguments, "PIRL.Image_Tools.JP2_Info", @ARGV;

exec @Arguments;
