diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-13 20:35:50 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-13 20:35:50 +0000 |
| commit | 10fa6d047c7bbe2a78659a45a338093b0748276d (patch) | |
| tree | e055898c3c89359ebf2a25e5f710499bf007e762 /Echolot/Storage/File.pm | |
| parent | ccdb1185e1c5bbf7dc54e08c8af9a9866a05d24d (diff) | |
Support �not a remailer� reply to remailer-xxx
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}) { |