Merge branch 't42'

[safeq] / xwc-jobs.pl

diff --git a/xwc-jobs.pl b/xwc-jobs.pl
index e8e6f9c..3fd0f95 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/^t/i ) { # tray
+       $url = 'sttray.htm';
+       $var_re = '(hdrIn|infoIn|hdrOut|infoOut|stsIn)';
 } elsif ( $op =~ m/^e/i ) { # error
        $url = 'sperr.htm';
        $var_re = '(lHdr|errLog)';
@@ -69,13 +72,26 @@ 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;
 
-}
+} elsif ( exists $info->{infoIn} ) {
+       print join($sep, 'IP', @{ $info->{hdrIn} }),"\n";
+       foreach my $row ( @{ $info->{infoIn} } ) {
+               $row->[1] .= ':' . $info->{stsIn}->[$row->[1]];
+               print join($sep, $ip, @$row),"\n";
+       }
+
+       print join($sep, 'IP', @{ $info->{hdrOut} }),"\n";
+       foreach my $row ( @{ $info->{infoOut} } ) {
+               $row->[1] .= ':' . $info->{stsIn}->[$row->[1]];
+               print join($sep, $ip, @$row),"\n";
+       }
+       exit 0;
+} 
 
 exit 1 if ! defined $info->{hdrs}; # we didn't get expected output