From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 28 Feb 2019 10:52:21 +0000 (+0100)
Subject: added t(ray) from sttray.htm
X-Git-Url: http://git.rot13.org/?p=safeq;a=commitdiff_plain;h=ceac1e146fe91b3c2dc921a2f1d75e392be51678

added t(ray) from sttray.htm
---

diff --git a/xwc-jobs.pl b/xwc-jobs.pl
index 05653eb..a380fc6 100755
--- 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)';
@@ -75,7 +78,20 @@ if ( exists $info->{spcs} ) {
 	}
 	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;
+} 
 
 my @headers = @{ $info->{hdrs} };
 unshift @headers, 'id' if $op eq 'list';