added ip to error output
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 28 Feb 2019 10:53:27 +0000 (11:53 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 28 Feb 2019 10:53:27 +0000 (11:53 +0100)
xwc-jobs.pl

index a380fc6..7b6156c 100755 (executable)
@@ -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;