byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

blocked() is no longer supported in Qpsmtpd.pm; we can put it back

Browse Source 
when qpsmtpd supports plugins accessing the message line by line as we
receive the data.


git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@51 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-08 10:05:36 +00:00
parent 859a3589aa
commit a1d52491bf
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/Qpsmtpd/Transaction.pm
View File

@ -1,5 +1,6 @@
package Qpsmtpd::Transaction; package Qpsmtpd::Transaction;
use strict; use strict;
#use Carp qw(carp);
use IO::File qw(O_RDWR O_CREAT); use IO::File qw(O_RDWR O_CREAT);
# For unique filenames. We write to a local tmp dir so we don't need # For unique filenames. We write to a local tmp dir so we don't need
@ -38,18 +39,15 @@ sub header {
$self->{_header}; $self->{_header};
} }
#sub body { # blocked() will return when we actually can do something useful with it...
#sub blocked {
# my $self = shift; # my $self = shift;
# @_ and $self->{_body} = shift; # carp 'Use of transaction->blocked is deprecated;'
# $self->{_body}; # . 'tell ask@develooper.com if you have a reason to use it';
# @_ and $self->{_blocked} = shift;
# $self->{_blocked};
#} #}
sub blocked {
my $self = shift;
@_ and $self->{_blocked} = shift;
$self->{_blocked};
}
sub notes { sub notes {
my $self = shift; my $self = shift;
my $key = shift; my $key = shift;