summaryrefslogtreecommitdiff
path: root/Echolot/Storage/File.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-20 14:05:38 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-20 14:05:38 +0000
commita77ae906609459dfbea8362f2bde833b2765997d (patch)
treedda5715655daaba6e910ad460c42995a008035a3 /Echolot/Storage/File.pm
parent8d5364886bae43c119039be3fb8a0467650fbe3b (diff)
Store bottom/top footer
Diffstat (limited to 'Echolot/Storage/File.pm')
-rw-r--r--Echolot/Storage/File.pm23
1 files changed, 15 insertions, 8 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index 25d6406..aea5574 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.53 2003/02/18 06:38:10 weasel Exp $
+# $Id: File.pm,v 1.54 2003/02/20 14:05:38 weasel Exp $
#
=pod
@@ -1739,18 +1739,21 @@ sub delete_remailercaps($$) {
};
-=item $storage->B<register_fromline>( I<$address>, I<$with_from>, I<$from> )
+=item $storage->B<register_fromline>( I<$address>, I<$with_from>, I<$from>, $I<disclaimer_top>, $I<disclaimer_bot> )
Register that the remailer I<$address> returned the From header
line I<$from>. If I<$with_from> is 1 we had tried to supply our own
From, otherwise not.
+$I<disclaimer_top> and $I<disclaimer_bot> are boolean variables indicating
+presence or absense of any disclaimer.
+
Returns 1, undef on error.
=cut
-sub register_fromline($$$$) {
- my ($self, $address, $type, $with_from, $from) = @_;
+sub register_fromline($$$$$$$) {
+ my ($self, $address, $type, $with_from, $from, $top, $bot) = @_;
defined ($self->{'METADATA'}->{'addresses'}->{$address}) or
Echolot::Log::cluck ("$address does not exist in Metadata address list."),
@@ -1765,11 +1768,13 @@ sub register_fromline($$$$) {
Echolot::Log::cluck ("with_from has evil value $with_from in register_fromline."),
return undef;
- Echolot::Log::debug("registering fromline $address, $type, $with_from, $from.");
+ Echolot::Log::debug("registering fromline $address, $type, $with_from, $from, $top, $bot.");
$self->{'METADATA'}->{'fromlines'}->{$address}->{$type}->{$with_from} = {
last_update => time(),
- from => $from
+ from => $from,
+ disclaim_top => $top,
+ disclaim_bot => $bot,
};
$self->commit();
@@ -1806,8 +1811,10 @@ sub get_fromline($$$$) {
Echolot::Log::cluck ("from is undefined with $addr $type $user_supplied."),
return undef;
- return { last_update => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'last_update'},
- from => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'from'} };
+ return { last_update => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'last_update'},
+ from => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'from'},
+ disclaim_top => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'disclaim_top'},
+ disclaim_bot => $self->{'METADATA'}->{'fromlines'}->{$addr}->{$type}->{$user_supplied}->{'disclaim_bot'} };
}