summaryrefslogtreecommitdiff
path: root/Echolot/Storage/File.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-20 19:39:04 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-20 19:39:04 +0000
commite59d79e546de5a91accbe0924b56220969a489fb (patch)
tree00d7f52b85c60a9737db33ced56252b076a27dea /Echolot/Storage/File.pm
parent18a1444d32eb29599865fdb651cc73ab846300e7 (diff)
Print status summary to log dailysnapshot/2003-02-20
Diffstat (limited to 'Echolot/Storage/File.pm')
-rw-r--r--Echolot/Storage/File.pm12
1 files changed, 9 insertions, 3 deletions
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 <peter@palfrader.org>
-# $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