projects
/
safeq
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1ccc6d2
)
added e(rror) sperr.htm
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 26 Feb 2019 17:32:32 +0000
(18:32 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 26 Feb 2019 17:32:54 +0000
(18:32 +0100)
xwc-jobs.pl
patch
|
blob
|
history
diff --git
a/xwc-jobs.pl
b/xwc-jobs.pl
index
d3eb07a
..
05653eb
100755
(executable)
--- a/
xwc-jobs.pl
+++ b/
xwc-jobs.pl
@@
-22,6
+22,9
@@
if ( $op =~ m/^l/i ) { # list
} elsif ( $op =~ m/^s/i ) { # status
$url = 'stgen.htm';
$var_re = '(lbls|spcs|adrslbl)';
} elsif ( $op =~ m/^s/i ) { # status
$url = 'stgen.htm';
$var_re = '(lbls|spcs|adrslbl)';
+} elsif ( $op =~ m/^e/i ) { # error
+ $url = 'sperr.htm';
+ $var_re = '(lHdr|errLog)';
} elsif ( $op =~ m/^(d|c)/i ) { # delete/cancel
my $job_id = join('/', @ARGV) || die "expected job_id(s) missing";
open(my $curl, '-|', "curl --silent -XPOST -d OPR=CANCEL -d JOBS=$job_id/ http://$ip/JOBCTRL.cmd");
} elsif ( $op =~ m/^(d|c)/i ) { # delete/cancel
my $job_id = join('/', @ARGV) || die "expected job_id(s) missing";
open(my $curl, '-|', "curl --silent -XPOST -d OPR=CANCEL -d JOBS=$job_id/ http://$ip/JOBCTRL.cmd");
@@
-64,6
+67,14
@@
if ( exists $info->{spcs} ) {
print join($sep, @s),"\n";
exit 0;
print join($sep, @s),"\n";
exit 0;
+
+} elsif ( exists $info->{errLog} ) {
+ print join($sep, @{ $info->{lHdr} }),"\n";
+ foreach my $error ( @{ $info->{errLog} } ) {
+ print join($sep, @{ $error }),"\n";
+ }
+ exit 0;
+
}
my @headers = @{ $info->{hdrs} };
}
my @headers = @{ $info->{hdrs} };