Merge branch 't42'

[safeq] / xwc-jobs.pl

diff --git a/xwc-jobs.pl b/xwc-jobs.pl
index a380fc6..3fd0f95 100755 (executable)
--- a/xwc-jobs.pl
+++ b/xwc-jobs.pl
@@ -72,9 +72,9 @@ if ( exists $info->{spcs} ) {
        exit 0;
 
 } elsif ( exists $info->{errLog} ) {
-       print join($sep, @{ $info->{lHdr} }),"\n";
+       print join($sep, 'IP', @{ $info->{lHdr} }),"\n";
        foreach my $error ( @{ $info->{errLog} } ) {
-               print join($sep, @{ $error }),"\n";
+               print join($sep, $ip, @{ $error }),"\n";
        }
        exit 0;
 
@@ -93,6 +93,8 @@ if ( exists $info->{spcs} ) {
        exit 0;
 } 
 
+exit 1 if ! defined $info->{hdrs}; # we didn't get expected output
+
 my @headers = @{ $info->{hdrs} };
 unshift @headers, 'id' if $op eq 'list';
 unshift @headers, 'IP';