Revision 3d32d95e84e84bbbeeb1b8b231f5d4e7d369032a authored by Nathaniel Nutter on 01 April 2015, 20:31:47 UTC, committed by Nathaniel Nutter on 01 April 2015, 20:31:47 UTC
1 parent 4a6ffb7
Job.pm
package GAP::Job;
use strict;
use warnings;
sub job_id {
my $self = shift @_;
my $job_id = shift @_;
if (defined($job_id)) {
$self->{_job_id} = $job_id;
}
return $self->{_job_id};
}
sub seq {
my $self = shift @_;
return $self->{_seq};
}
sub execute {
my $self = shift @_;
$self->_determine_execution_host();
}
sub execution_host {
my $self = shift @_;
return $self->{_execution_host};
}
sub _determine_execution_host {
my $self = shift @_;
my $execution_host = 'unknown';
if (exists($ENV{LSB_HOSTS})) {
$execution_host = $ENV{LSB_HOSTS};
}
elsif (exists($ENV{HOST})) {
$execution_host = $ENV{HOST};
}
$self->{_execution_host} = $execution_host;
}
1;
Computing file changes ...
