#!/usr/bin/perl -w
    # edit the above line to point to perl

    # edit this to point to directory containg alfi.jar and JGo.jar
my $ALFI_JAR_DIR = "/usr/local/e2e/alfi";

    # edit this to point to java
my $JAVA = "/usr/local/jre1.5.0_04/bin/java";


############### do not edit below this line ###############

use Cwd ();

    # for "(B" problem in titles under fvwm
my $wm = $ENV{"ALFI__WINDOW_MANAGER"} ? $ENV{"ALFI__WINDOW_MANAGER"} : "";
if ($wm eq "fvwm") {
    delete $ENV{"LANG"};
    delete $ENV{"LC_CTYPE"};
}

my $ALFI_UTILITY_DIR = "$ENV{HOME}/.alfi";
if (! (-d $ALFI_UTILITY_DIR)) {
    mkdir($ALFI_UTILITY_DIR, 0755) || die($!);
}

my $COMMAND_FILE = "$ALFI_UTILITY_DIR/command_line.txt";
if (-e $COMMAND_FILE) {
    unlink($COMMAND_FILE) || die($!);
}

my $arguments = join(" ", @ARGV);

open(COMMAND_FILE, ">$COMMAND_FILE") || die($!);
print COMMAND_FILE "args " . join(" ", @ARGV) . "\n";
foreach my $key (keys(%ENV)) {
    print COMMAND_FILE "$key $ENV{$key}\n";
}
print COMMAND_FILE "user.dir " . Cwd::cwd();
close(COMMAND_FILE);

my $classpath = ".:$ALFI_JAR_DIR/alfi.jar:$ALFI_JAR_DIR/JGo.jar";

    # the command
my $command = sprintf "%s", <<END_SPRINTF;
$JAVA \\
	-classpath $classpath \\
	-Dsun.java2d.pmoffscreen=false \\
	-ea \\
	-DE2E_PATH=$ENV{"E2E_PATH"} \\
	-DWINDOW_MANAGER=$wm \\
	edu.caltech.ligo.alfi.Alfi
END_SPRINTF

print "\n$command\n\n";

exec($command);