From 22bd1bafa3b3001e06c3f28c0d275e162f945218 Mon Sep 17 00:00:00 2001
From: ebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Wed, 11 Jun 2003 18:04:35 +0000
Subject: [PATCH] bring up changes from stable

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@5000 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 class/deliver/Deliver_SMTP.class.php | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/class/deliver/Deliver_SMTP.class.php b/class/deliver/Deliver_SMTP.class.php
index 546d612c..482847fa 100644
--- a/class/deliver/Deliver_SMTP.class.php
+++ b/class/deliver/Deliver_SMTP.class.php
@@ -50,9 +50,15 @@ class Deliver_SMTP extends Deliver {
     	    return(0);
 	}
 
-	/* If $_SERVER['HTTP_HOST'] is set, use that in our HELO to the SMTP
-	   server.  This should fix the DNS issues some people have had */
+	/* 
+     * If $_SERVER['HTTP_HOST'] is set, use that in our HELO to the SMTP
+	 * server.  This should fix the DNS issues some people have had 
+     */
 	if (sqgetGlobalVar('HTTP_HOST', $HTTP_HOST, SQ_SERVER)) { // HTTP_HOST is set
+        // optionally trim off port number
+        if($p = strrpos($HTTP_HOST, ':')) {
+            $HTTP_HOST = substr($HTTP_HOST, 0, $p);
+        }
 		$helohost = $HTTP_HOST;
 	} else { // For some reason, HTTP_HOST is not set - revert to old behavior
 		$helohost = $domain;
@@ -71,6 +77,7 @@ class Deliver_SMTP extends Deliver {
 	  } elseif ($smtp_auth_mech == 'digest-md5') {
 	    fputs($stream, "AUTH DIGEST-MD5\r\n");
 	  }
+
 	  $tmp = fgets($stream,1024);
 	   
 	  if ($this->errorCheck($tmp,$stream)) {
@@ -174,6 +181,7 @@ class Deliver_SMTP extends Deliver {
 		}
 	    }
 	}
+
 	for ($i = 0, $cnt = count($bcc); $i < $cnt; $i++) {
 	    if (!$bcc[$i]->host) $bcc[$i]->host = $domain;
 	    if ($bcc[$i]->mailbox) {
@@ -286,17 +294,17 @@ class Deliver_SMTP extends Deliver {
                   . " $err_no : $err_str");
         } else {
             $tmp = fgets($popConnection, 1024); /* banner */
-            if (!eregi("^\+OK", $tmp, $regs)) {
+            if (substr($tmp, 0, 3) != '+OK') {
                 return(0);
             }
             fputs($popConnection, "USER $user\r\n");
             $tmp = fgets($popConnection, 1024);
-            if (!eregi("^\+OK", $tmp, $regs)) {
+            if (substr($tmp, 0, 3) != '+OK') {
                 return(0);
             }
             fputs($popConnection, 'PASS ' . $pass . "\r\n");
             $tmp = fgets($popConnection, 1024);
-            if (!eregi("^\+OK", $tmp, $regs)) {
+            if (substr($tmp, 0, 3) != '+OK') {
                 return(0);
             }
             fputs($popConnection, "QUIT\r\n"); /* log off */
-- 
2.25.1