From 9f1f5d7f65c189ed6c226246fc5d3d594b2415d7 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 29 Apr 2003 16:31:21 +0000 Subject: 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 --- Echolot/Report.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Echolot') 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 -# $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"; -- cgit v1.2.3