#!/usr/bin/perl -w

use strict;

my $JAVA = 'gij-wrapper-4.0';
my $MAINCLASS = 'gnu.gcjwebplugin.AppletViewer';
my $PREFIX = '/usr';
my $GCJAPPLETVIEWER_CLASSPATH = "$PREFIX/share/java/gcjappletviewer.jar";
my $RUNTIME_ARGS = '';
my $VIEWER_ARGS = '';
my $COMMANDLINE;
my $arg;
my @args;

# Use environment variable $LTDL_LIBRARY_PATH to store the JNI path,
# since gij uses libltdl to dlopen JNI modules.
if ($ENV{LTDL_LIBRARY_PATH}) {
    $ENV{LTDL_LIBRARY_PATH} = $ENV{LTDL_LIBRARY_PATH} . ':/usr/lib/gcjwebplugin';
} else {
    $ENV{LTDL_LIBRARY_PATH} = '/usr/lib/gcjwebplugin';
}

foreach $arg (@ARGV) {
    if ($arg =~ /^-J/) {
	$arg =~ s/^-J//;

	if ($arg =~ /^-Djava.class.path=/) {
	    # CLASSPATH was specified in JVM args
	    $arg =~ s/^-Djava.class.path=//;
	    $GCJAPPLETVIEWER_CLASSPATH = "$arg";
	}
	else {
	    # FIXME: strip out -debug option

	    $RUNTIME_ARGS .= " \"$arg\"";
	}
    }
    else {
	$VIEWER_ARGS .= " \"$arg\"";
    }
}
$COMMANDLINE = "$JAVA -cp $GCJAPPLETVIEWER_CLASSPATH $RUNTIME_ARGS $MAINCLASS $VIEWER_ARGS";

exec($COMMANDLINE) or exit(1);
