#!/usr/bin/perl
#
#	A wrapper for the JPEG2000_Codestream_Info Java application.
#
#	CVS ID: JPEG2000_Codestream_Info,v 1.1 2012/04/18 22:26:15 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.JPEG2000_Codestream_Info", @ARGV;

exec @Arguments;
