qpsmtpd/lib/Qpsmtpd/Transaction.pm

56 lines
831 B
Perl
Raw Normal View History

package Qpsmtpd::Transaction;
use strict;
sub new { start(@_) }
sub start {
my $proto = shift;
my $class = ref($proto) || $proto;
my %args = @_;
my $self = { _rcpt => [], started => time };
bless ($self, $class);
}
sub add_recipient {
my $self = shift;
@_ and push @{$self->{_recipients}}, shift;
}
sub recipients {
my $self = shift;
($self->{_recipients} ? @{$self->{_recipients}} : ());
}
sub sender {
my $self = shift;
@_ and $self->{_sender} = shift;
$self->{_sender};
}
sub header {
my $self = shift;
@_ and $self->{_header} = shift;
$self->{_header};
}
sub body {
my $self = shift;
@_ and $self->{_body} = shift;
$self->{_body};
}
sub blocked {
my $self = shift;
@_ and $self->{_blocked} = shift;
$self->{_blocked};
}
#sub add_header_line {
#}
#sub add_body_line {
#}
1;