package Echolot::Report; # (c) 2002 Peter Palfrader # $Id: Report.pm,v 1.2 2003/04/29 16:31:21 weasel Exp $ # =pod =head1 Name Echolot::Report - Summarize status of remailers =head1 DESCRIPTION This package prints the summary of remailers/addresses. =cut use strict; use English; use Echolot::Log; sub print_summary(;$) { my ($manual) = @_; my @addresses = sort { $a->{'address'} cmp $b->{'address'} } Echolot::Globals::get()->{'storage'}->get_addresses(); my $report = "*** Status summary ***\n"; for my $remailer (@addresses) { my $addr = $remailer->{'address'}; $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')); for my $type (Echolot::Globals::get()->{'storage'}->get_types($addr)) { $report .= " Type: $type: ".join(', ', Echolot::Globals::get()->{'storage'}->get_keys($addr, $type))."\n"; }; }; if (defined $manual) { Echolot::Log::notice($report); } else { Echolot::Log::info($report); } return 1; }; 1; # vim: set ts=4 shiftwidth=4: