diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-11-11 02:24:58 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-11-11 02:24:58 +0000 |
| commit | 247c5e9776d5ac4e98efb7f730ae1d5068c5ee3e (patch) | |
| tree | 82d87245a829ef657d42b081a472c809f5454db5 /Echolot/Storage/File.pm | |
| parent | ddd8b05613426d908617b5d73308e4f24c310c11 (diff) | |
Added more checks
Diffstat (limited to 'Echolot/Storage/File.pm')
| -rw-r--r-- | Echolot/Storage/File.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index b2b23d4..b09bd13 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.41 2002/09/21 03:24:41 weasel Exp $ +# $Id: File.pm,v 1.42 2002/11/11 02:24:58 weasel Exp $ # =pod @@ -688,6 +688,9 @@ sub restore_ttl($$) { defined ($self->{'METADATA'}->{'addresses'}->{$address}) or cluck ("$address does not exist in Metadata address list"), return 0; + defined ($self->{'METADATA'}->{'addresses'}->{$address}->{'status'}) or + cluck ("$address does exist in Metadata address list but does not have status defined"), + return 0; warn("Remailer $address is alive and active again\n") unless ($self->{'METADATA'}->{'addresses'}->{$address}->{'status'} eq 'active'); $self->{'METADATA'}->{'addresses'}->{$address}->{'ttl'} = Echolot::Config::get()->{'addresses_default_ttl'}; @@ -725,6 +728,9 @@ sub set_caps($$$$$$;$) { status => 'active' }; } else { + defined ($self->{'METADATA'}->{'remailers'}->{$address}->{'status'}) or + cluck ("$address does exist in Metadata remailer list but does not have status defined"), + return 0; $self->{'METADATA'}->{'remailers'}->{$address}->{'status'} = 'active' if ($self->{'METADATA'}->{'remailers'}->{$address}->{'status'} eq 'expired'); }; |