package Job;

require Exporter;
our @ISA = ('DBObject');
our @EXPORT = qw( );


my $jobTableDef = ['jobs', # Job specifications
     'id INTEGER PRIMARY KEY NOT NULL,
     command VARCHAR(1024) NOT NULL,
     maxrunmins INTEGER,
     numruns INTEGER,
     runtimetotal INTEGER,
     flags VCHAR(20)
     '
    ];

sub new {
    my ($class, %params) = @_;

    $params{flags} = '' unless exists $params{flags};
    return DBObject::new ($class, %params, tableDef => $jobTableDef);
}

1;

##</code><code>##

sub CheckTasks {
    my $self = shift;
    my $task = Task->new (dbh => $self->{db});
    my @readyTasks = $task->getOldest ();
    
    if (@readyTasks) {
        my $taskInfo = $task->fetch (id => $readyTasks[0][0]);
        my $job = Job->new (dbh => $self->{db});
        my $jobInfo = $job->fetch (id => $taskInfo->{jobid});