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

Support smtpgreeting file from qmail/control

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@508 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-07-15 10:35:23 +00:00
parent 2ca6e9d192
commit 3096164159
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Qpsmtpd/SMTP.pm
View File

@ -114,8 +114,9 @@ sub connect_respond {
return $rc;
}
elsif ($rc != DONE) {
$self->respond(220, $self->config('me') ." ESMTP qpsmtpd "
. $self->version ." ready; send us your mail, but not your spam.");
$self->respond(220, $self->config('smtpgreeting') ." ESMTP" ||
($self->config('me') ." ESMTP qpsmtpd " . $self->version .
" ready; send us your mail, but not your spam."));
return DONE;
}
}
@ -382,7 +383,8 @@ sub rcpt_respond {
sub help {
my $self = shift;
$self->respond(214,
"This is qpsmtpd " . $self->version,
"This is qpsmtpd " .
$self->config('smtpgreeting') ? '' : $self->version,
"See http://smtpd.develooper.com/",
'To report bugs or send comments, mail to <ask@develooper.com>.');
}