From: John Peacock <jpeacock@rowman.com>

To: qpsmtpd@perl.org
Subject: [PATCH] Another helper function to Qsmtpd::Transaction
Message-ID: <20040714143407.32740.qmail@onion.perl.org>
Date: Wed, 14 Jul 2004 10:34:25 -0400

The AV scanner plugin I am currently using (uvscan) requires the
attached patch so that it can scan the existing temp file, rather than
making a copy just for the scan.


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@267 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-07-16 05:04:25 +00:00
parent 658d3bb555
commit bd8cfde4c1

View File

@ -66,6 +66,11 @@ sub notes {
$self->{_notes}->{$key}; $self->{_notes}->{$key};
} }
sub body_filename {
my $self = shift;
return unless $self->{_body_file};
return $self->{_filename};
}
sub body_write { sub body_write {
my $self = shift; my $self = shift;
@ -201,6 +206,11 @@ Note though that these notes will be lost when a transaction ends, for
example on a C<RSET> or after C<DATA> completes, so you might want to example on a C<RSET> or after C<DATA> completes, so you might want to
use the notes field in the C<Qpsmtpd::Connection> object instead. use the notes field in the C<Qpsmtpd::Connection> object instead.
=head2 body_filename ( )
Returns the temporary filename used to store the message contents; useful for
virus scanners so that an additional copy doesn't need to be made.
=head2 body_write( $data ) =head2 body_write( $data )
Write data to the end of the email. Write data to the end of the email.