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;