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

    # edit this to point toward your installation of javaws
my $WEBSTART = "/usr/local/bin/javaws";


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

use Cwd ();

    # for "(B" problem in titles under fvwm
my $wm = $ENV{"ALFI__WINDOW_MANAGER"};
if (($wm) && ($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);

    # latest release
$command =
         "$WEBSTART http://www.ligo.caltech.edu/~e2e/alfi6/download/alfi.jnlp";

exec($command);