[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;
     }
 }