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;
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';
unshift @headers, 'IP';