From e59d79e546de5a91accbe0924b56220969a489fb Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Thu, 20 Feb 2003 19:39:04 +0000 Subject: Print status summary to log daily --- Echolot/Storage/File.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'Echolot/Storage/File.pm') diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index aea5574..7bd668b 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader -# $Id: File.pm,v 1.54 2003/02/20 14:05:38 weasel Exp $ +# $Id: File.pm,v 1.55 2003/02/20 19:39:03 weasel Exp $ # =pod @@ -952,7 +952,11 @@ The hash has the following keys: =item fetch -=item shoit +=item showit + +=item pingit + +=item ttl =item resurrection_ttl @@ -974,6 +978,8 @@ sub get_address($$) { address => $_, fetch => $self->{'METADATA'}->{'addresses'}->{$addr}->{'fetch'}, showit => $self->{'METADATA'}->{'addresses'}->{$addr}->{'showit'}, + pingit => $self->{'METADATA'}->{'addresses'}->{$addr}->{'pingit'}, + ttl => $self->{'METADATA'}->{'addresses'}->{$addr}->{'ttl'}, resurrection_ttl => $self->{'METADATA'}->{'addresses'}->{$addr}->{'resurrection_ttl'}, }; @@ -1443,7 +1449,7 @@ I<$remailer>. Returns undef on errors. =cut -sub get_keys($$) { +sub get_keys($$$) { my ($self, $remailer, $type) = @_; defined ($self->{'METADATA'}->{'remailers'}->{$remailer}) or -- cgit v1.2.3