1 # Batch EXecutor 2.0 -- Jobs
2 # (c) 2011 Martin Mares <mj@ucw.cz>
14 my ($class, $id) = @_;
21 $job->{'ID'} = POSIX::strftime("%Y%m%d-%H%M%S-$$-$job_cnt", localtime);
23 $job->{'Subject'} = '(no subject)';
27 sub new_from_file($$;$) {
28 my ($class, $file, $header_only) = @_;
30 open T, '<', $file or die "Cannot open $file: $!";
34 /^([A-Z][A-Za-z0-9-]*):\s*(.*)/ or die "Cannot load $file: Header syntax error";
35 !defined $job->{$1} or die "Cannot load $file: Header $1 re-defined";
40 $job->{'body'} = join("", @cmds);
43 $job->{'Subject'} //= '?';
44 $job->{'ID'} or die "Cannot load $file: Missing ID";
45 $job->{'ID'} !~ /\.[a-z]+$/ or die "Cannot load $file: Invalid ID syntax";
54 my ($job, $attr, $val) = @_;
55 $job->{$attr} = $val if defined $val;
61 for my $k (sort keys %$job) {
62 print "$k: ", $job->{$k}, "\n";
68 -d "tmp" or mkdir "tmp" or die "Cannot create directory tmp: $!";
69 $fn //= 'tmp/' . $job->id;
70 open T, '>', $fn or die "Cannot create $fn: $!";
71 for my $k (sort grep { /^[A-Z]/ } keys %$job) {
72 print T "$k: ", $job->{$k}, "\n";
75 print T $job->{'body'} if defined $job->{'body'};