From 10fa6d047c7bbe2a78659a45a338093b0748276d Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Sat, 13 Jul 2002 20:35:50 +0000 Subject: =?UTF-8?q?Support=20=EF=BF=BDnot=20a=20remailer=EF=BF=BD=20reply?= =?UTF-8?q?=20to=20remailer-xxx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Echolot/Storage/File.pm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'Echolot/Storage') 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 -# $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}) { -- cgit v1.2.3