diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-03 00:56:02 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-03 00:56:02 +0000 |
| commit | 5f7f3b35267319db3d9fb1b9ee918d1d38689c11 (patch) | |
| tree | 1068e9343049bbb214affb0d26e10a26e6ccc583 | |
| parent | 8e615cad321491bade30622b120a4a6fbeff02b3 (diff) | |
some verbose output
| -rw-r--r-- | Echolot/Storage/File.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index cca5015..c0f050b 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.20 2002/07/03 00:54:40 weasel Exp $ +# $Id: File.pm,v 1.21 2002/07/03 00:56:02 weasel Exp $ # =pod @@ -918,6 +918,9 @@ sub expire($) { sub delete_remailer($$) { my ($self, $address) = @_; + print "Deleting remailer $address\n" + if Echolot::Config::get()->{'verbose'}; + unless (defined $self->{'METADATA'}->{'addresses'}->{$address}) { delete $self->{'METADATA'}->{'addresses'}->{$address} } else { |