} 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)';
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
my @headers = @{ $info->{hdrs} };
unshift @headers, 'id' if $op eq 'list';