#!/usr/bin/perl
use Condor;
use File::Basename;

unless (@ARGV == 1) { die "Usage: $0 filename" }
($filename) = @ARGV;


# first things first - let's create the appropriate submit file for this
# job

$basename = basename($filename);
$dir      = dirname($filename);
open(SUBMIT, ">$filename.submit") || die "Couldn't open the submit file!!!\n";

print SUBMIT <<EOM;
universe = vanilla
executable = run_xvfb.sh
WhenToTransferOutput = always
transfer_files = always
initialdir = $dir
arguments = xlr8r_linux $basename
transfer_input_files = xlr8r_linux, xlr8r_linux.rdb, $basename
transfer_output_files = $basename.done
environment = LD_LIBRARY_PATH=/p/condor/workspaces/epaulson/739/xlr8r_libraries;PATH=/usr/bin:/bin:/s/std/bin:.;HOME=/u/e/p/epaulson
requirements = IsC2Cluster && IsDedicated && (Arch=="INTEL" && OpSys=="LINUX")
output = $basename.out
error = $basename.err
log = $filename.log
queue
EOM

# A subroutine that will be used as the normal execution callback
$normal = sub
{
    %parameters = @_;
    $cluster = $parameters{'cluster'};
    $job = $parameters{'job'};

    print "Job $cluster.$job exited normally without errors.\n";
};	


$execute = sub
{
    %parameters = @_;
    $cluster = $parameters{'cluster'};
    $job = $parameters{'job'};
    $host = $parameters{'host'};
    $sinful = $parameters{'sinful'};

    print "Job running on $sinful\n";
};

$cluster = Condor::Submit("$filename.submit");
print "$cluster submitted";
&Condor::RegisterExitSuccess($normal);
&Condor::RegisterExecute($execute);
&Condor::Monitor($cluster);
&Condor::Wait();