diff options
Diffstat (limited to 'Echolot/Storage/File.pm')
| -rw-r--r-- | Echolot/Storage/File.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index c65d306..3c78ae5 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.34 2002/07/11 23:39:13 weasel Exp $ +# $Id: File.pm,v 1.35 2002/07/13 20:35:50 weasel Exp $ # =pod @@ -661,6 +661,17 @@ sub restore_ttl($$) { return 1; }; +sub not_a_remailer($$) { + my ($self, $id) = @_; + + my $address = $self->get_address_by_id($id); + cluck("No remailer found for id '$id'"), return 0 unless defined $address; + + delete $self->{'METADATA'}->{'addresses'}->{$address}->{'disabled by user reply: is not a remailer'}; + $self->commit(); + return 1; +}; + sub set_caps($$$$$$;$) { my ($self, $type, $caps, $nick, $address, $timestamp, $dont_expire) = @_; if (! defined $self->{'METADATA'}->{'remailers'}->{$address}) { |