job_startup

#! /usr/bin/perl
use strict;
use warnings;

my ($prefix) = $0 =~ /^(\/.*)\// or die "$0: need to be called with absolute path\n";

$ENV{'SGE_ROOT'} = $prefix;
$ENV{'PATH'} = $prefix . ':' . $ENV{'PATH'};

while (1) {
	@ARGV or last;
	substr($ARGV[0], 0, 1) eq '-' or last;
	my $opt=shift;
	if ($opt eq '--') {
		last;
	} elsif ($opt eq '--ary_index') {
		$ENV{'SGE_TASK_ID'} = shift;
	} else {
		die "$0: opt $opt unimplemented\n";
	}
}

exec @ARGV;