[svn:qpsmtpd] rev 511 - trunk/lib/Qpsmtpd
[email protected] 18 Jul 2005 00:36:49 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: jpeacock
Date: Sun Jul 17 17:36:49 2005
New Revision: 511
Modified:
trunk/lib/Qpsmtpd/SMTP.pm
Log:
Correctly handle the case where smtpgreeting exists (append ESMTP) as well as
the case where it doesn't (display original Qpsmtpd greeting).
Modified: trunk/lib/Qpsmtpd/SMTP.pm
==============================================================================
--- trunk/lib/Qpsmtpd/SMTP.pm (original)
+++ trunk/lib/Qpsmtpd/SMTP.pm Sun Jul 17 17:36:49 2005
@@ -114,9 +114,18 @@ sub connect_respond {
return $rc;
}
elsif ($rc != DONE) {
- $self->respond(220, $self->config('smtpgreeting') ." ESMTP" ||
- ($self->config('me') ." ESMTP qpsmtpd " . $self->version .
- " ready; send us your mail, but not your spam."));
+ my $greets = $self->config('smtpgreeting');
+ if ( $greets ) {
+ $greets .= " ESMTP";
+ }
+ else {
+ $greets = $self->config('me')
+ . " ESMTP qpsmtpd "
+ . $self->version
+ . " ready; send us your mail, but not your spam.";
+ }
+
+ $self->respond(220, $greets);
return DONE;
}
}