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

make noop, rset and vrfy work

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@24 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-07-03 13:27:04 +00:00
parent 6df92cd56e
commit c0b2ccd590
2 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lib/Qpsmtpd.pm
View File

@ -98,7 +98,7 @@ sub start_conversation {
sub transaction {
my $self = shift;
use Data::Dumper;
warn Data::Dumper->Dump([\$self], [qw(self)]);
#warn Data::Dumper->Dump([\$self], [qw(self)]);
return $self->{_transaction} || ($self->{_transaction} = Qpsmtpd::Transaction->new());
}
@ -240,6 +240,24 @@ sub version {
$Qpsmtpd::VERSION;
}
sub noop {
my $self = shift;
warn Data::Dumper->Dump([\$self], [qw(self)]);
$self->respond(250, "OK");
}
sub vrfy {
shift->respond(252, "Just try sending a mail and we'll see how it turns out ...");
}
sub rset {
my $self = shift;
$self->{_transaction} = undef;
$self->transaction->start();
$self->respond(250, "OK");
}
sub quit {
my $self = shift;
$self->respond(221, $self->config('me') . " closing connection. Have a wonderful day");

17
qpsmtpd
View File

@ -18,9 +18,6 @@ $| = 1;
delete $ENV{ENV};
$ENV{PATH} = '/var/qmail/bin';
use vars qw($TRACE);
$TRACE = 5;
# should this be ->new ?
my $qpsmtpd = Qpsmtpd::TcpServer->new();
$qpsmtpd->start_connection();
@ -141,20 +138,6 @@ sub data {
return 1;
}
sub rset {
$state{transaction} = {};
respond(250, "OK");
}
sub noop {
respond(250, "OK");
}
sub vrfy {
respond(252, "Just try sending a mail and we'll see how it turns out ...");
}
sub check_rhsbl {
my ($rhsbl, $host) = @_;
return 0 unless $host;