diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-04-29 16:31:21 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-04-29 16:31:21 +0000 |
| commit | 9f1f5d7f65c189ed6c226246fc5d3d594b2415d7 (patch) | |
| tree | 58fb32590cc6ae427ae4f45756870b76bf63d2b2 /Echolot/Report.pm | |
| parent | d747fd2d57a2f6000b441e6575181470a05086bb (diff) | |
Copy over changes that got commited to the 2.1 branch in error:
- Fix 0/false in Fetch/Ping/Show in summary report.
- TODO updates
Diffstat (limited to 'Echolot/Report.pm')
| -rw-r--r-- | Echolot/Report.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Echolot/Report.pm b/Echolot/Report.pm index 8df112a..db32687 100644 --- a/Echolot/Report.pm +++ b/Echolot/Report.pm @@ -1,7 +1,7 @@ package Echolot::Report; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Report.pm,v 1.1 2003/02/20 19:39:03 weasel Exp $ +# $Id: Report.pm,v 1.2 2003/04/29 16:31:21 weasel Exp $ # =pod @@ -28,7 +28,12 @@ sub print_summary() { for my $remailer (@addresses) { my $addr = $remailer->{'address'}; - $report .= "$addr (ID: $remailer->{'id'}): ".uc($remailer->{'status'})."; Fetch/Ping/Show: $remailer->{'fetch'}$remailer->{'pingit'}$remailer->{'showit'}; TTL: $remailer->{'ttl'}\n"; + $report .= "$addr (ID: $remailer->{'id'}): ".uc($remailer->{'status'})."; ". + "Fetch/Ping/Show: ". + ($remailer->{'fetch'} ? '1' : '0') . + ($remailer->{'pingit'} ? '1' : '0') . + ($remailer->{'showit'} ? '1' : '0') . + "; TTL: $remailer->{'ttl'}\n"; $report .= " Resurection TTL: $remailer->{'resurrection_ttl'}\n" if (defined $remailer->{'resurrection_ttl'} && ($remailer->{'status'} eq 'ttl timeout')); if (defined $remailers{$addr}) { $report .= " $remailers{$addr}->{'status'}\n"; |