#!/usr/bin/perl
#
#	A wrapper for the Java Projection_Viewer application.
#
#	CVS ID: Projection_Viewer,v 1.1 2008/12/02 04:18:58 castalia Exp

$PIRL_JAVA_HOME	= $ENV{"PIRL_JAVA_HOME"};
$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.Viewers.Projection_Viewer", @ARGV;

exec @Arguments;
