summaryrefslogtreecommitdiff
path: root/Echolot/Report.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-04-29 16:31:21 +0000
committerPeter Palfrader <peter@palfrader.org>2003-04-29 16:31:21 +0000
commit9f1f5d7f65c189ed6c226246fc5d3d594b2415d7 (patch)
tree58fb32590cc6ae427ae4f45756870b76bf63d2b2 /Echolot/Report.pm
parentd747fd2d57a2f6000b441e6575181470a05086bb (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.pm9
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";