+if ( exists $info->{spcs} ) {
+ print join($sep, @{ $info->{lbls} }),"\n";
+
+ my @s = @{ $info->{spcs} };
+ foreach my $i ( 0 .. $#{ $s[1] } ) {
+ $s[1]->[$i] .= ' ' . $info->{adrslbl}->[$i];
+ }
+ $s[1] = join(',', @{ $s[1] });
+
+ print join($sep, @s),"\n";
+
+ exit 0;
+
+} elsif ( exists $info->{errLog} ) {
+ print join($sep, 'IP', @{ $info->{lHdr} }),"\n";
+ foreach my $error ( @{ $info->{errLog} } ) {
+ 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;
+}
+