www.gusucode.com > ShopEx481 & PHPWind 整合版码程序 > core/lib/smtpmail/sm.php

    <?php
$ARR_CONTENT_TYPE['zh'] = "GBK";
$ARR_CONTENT_TYPE['big5'] = "big5";
$ARR_CONTENT_TYPE['en'] = "iso-8859-1";

class smtp
{
    /* Public Variables */
    var $smtp_port;
    var $time_out;
    var $host_name;
    var $log_file;
    var $relay_host;
    var $debug;
    var $auth;
    var $user;
    var $pass;
	var $times;
	var $encode = "utf8";
	var $lang = "zh";
	var $sendway ="SMTP";
	var $uencodingtable = array();

	var $boundary = array();
	var $LE = "\n";
	var $Encoding = "base64";
	var $CharSet = "UTF-8";

    /* Private Variables */
    var $sock;
	//var $attfile;

    /* Constractor */
    function smtp($user,$pass,$relay_host = "", $smtp_port = 25,$auth = false)
    {
        $this->debug      = FALSE;
        $this->smtp_port  = $smtp_port;
        $this->relay_host = $relay_host;
        $this->time_out   = 30; //is used in fsockopen()
        #
        $this->auth = $auth;//auth
        $this->user = $user;
        $this->pass = $pass;
        #
        $this->host_name  = "localhost"; //is used in HELO command
        $this->log_file   = "";
        $this->sock       = FALSE;
    }

    /* Main Function ($attachment=>附件的编码,$hasfile=>是否含有附件,$file_name=>附件的名称,$content_type=>附件的类型)*/
    function sendmail($to, $from, $subject = "", $body = "", $mailtype, $mailmaster="Webmaster", $cc = "", $bcc = "", $additional_headers = "",$tmpfile="",$iffile=false,$tmpname="",$tmptype="")		
    {
		global $SITE_EODING,$ARR_CONTENT_TYPE,$MAIL_SEND_METHOD;

		if(isset($MAIL_SEND_METHOD)){
			if($MAIL_SEND_METHOD!=""){
				$this->sendway = $MAIL_SEND_METHOD;
			}
		}
		
		if(!isset($SITE_EODING)){
			$charset = "gbk";
		}else{
			if($SITE_EODING=="UTF-8")
			{
				if($this->encode=="utf8")
				{
					$charset = "UTF-8";
					$subject = "=?".$charset."?B?".base64_encode($subject)."?=";
					$mailmaster = "=?".$charset."?B?".base64_encode($mailmaster)."?=";
				}else{
					//使用本地编码发送MAIL
					$charset = $ARR_CONTENT_TYPE[$this->lang];
					if($charset !='iso-8859-1')
					{
						$subject = utf2local($subject,$this->lang);
						$mailmaster = utf2local($mailmaster,$this->lang);
						$body = utf2local($body,$this->lang);
					}
				}
			}
			else
			{
				$charset = $ARR_CONTENT_TYPE[$this->lang];
			}
		}

        $mail_from = $this->get_address($this->strip_comment($from));
        $body = ereg_replace("(^|(\r\n))(\\.)", "\\1.\\3", $body);

		if($this->sendway=="SMTP")   //SMTP方式发送MAIL
		{
			if (trim($this->smtp_port) == "" || trim($this->relay_host) == "" ||trim($to) == "" ||trim($from) == "")
			return ;
		}
		else
		{
			if (trim($to) == "" ||trim($from) == "")
			return ;
		}


		$header .= "From: $mailmaster<$from>\r\n";
		$header .= "Reply-To: $mailmaster<$from>\r\n";
		if($this->sendway=="SMTP")   //SMTP方式发送MAIL
		{
				$header .= "To: ".$to."\r\n";
				if ($cc != "") {
							$header .= "Cc: ".$cc."\r\n";
				}
				$header .= "Subject: ".$subject."\r\n";
		}
		$header .= $additional_headers;
		$header .= "MIME-Version:1.0\r\n";
		if($iffile){
				$header.= "Content-Type: multipart/mixed; boundary=\"----=_Part_12038_5896801.1067927729644\"\r\n";
				$header .= "Content-Transfer-Encoding: 8bit\r\n"; 
		}
		else
		{
				$header .= "Content-Type: multipart/alternative; boundary=\"----=_Part_12038_5896801.1067927729644\"\r\n";
		}
		if($this->sendway=="SMTP")   //SMTP方式发送MAIL
		{
			$header .= "Date: ".date("r")."\r\n";
		}
		else
		{
			$header .= "Date: ".date("r");
		}

			list($msec, $sec) = explode(" ", microtime());
			$TO = explode(",", $this->strip_comment($to));

			if ($cc != "") {
						$TO = array_merge($TO, explode(",", $this->strip_comment($cc)));
			}

			if ($bcc != "") {
						$TO = array_merge($TO, explode(",", $this->strip_comment($bcc)));
			}

			$sent = TRUE;
				
			if($iffile){
				$body="------=_Part_12038_5896801.1067927729644\r\nContent-Type: text/html; charset=\"$charset\"\r\nContent-Transfer-Encoding: quoted-printable\r\n\r\n".$body;
				$body.="\r\n------=_Part_12038_5896801.1067927729644\r\nContent-Type: ".$tmptype."; name=".$tmpname."\r\nContent-Transfer-Encoding: base64\r\nContent-Disposition: attachment; filename=".$tmpname."\r\n\r\n".$tmpfile;
				$body.="------=_Part_12038_5896801.1067927729644--";
			}
			else
			{
				$bodytxt = str_replace("\r","",$body);
				$bodytxt = str_replace("\n","",$bodytxt);
				$bodytxt = 	strip_tags(preg_replace("/<br>/i","\r\n",$bodytxt));
				$bodytxt = str_replace("&nbsp;"," ",$bodytxt);
				$bodyhtml = $body;
				$body="------=_Part_12038_5896801.1067927729644\r\nContent-Type: text/plain; charset=\"$charset\"\r\nContent-Transfer-Encoding: 8bit\r\n\r\n".$bodytxt."\r\n------=_Part_12038_5896801.1067927729644\r\nContent-Type:text/html;charset=\"$charset\"\r\nContent-Transfer-Encoding: 8bit\r\n\r\n".$bodyhtml;
				$body.="\r\n------=_Part_12038_5896801.1067927729644--";

			}
			/****************************/

		if($this->sendway=="SMTP")   //SMTP方式发送MAIL
		{

			//$body.=$tmpfile.$tmpname.$tmptype;
            foreach ($TO as $rcpt_to) {
                    $rcpt_to = $this->get_address($rcpt_to);
                    if (!$this->smtp_sockopen($rcpt_to)) {
                            $this->log_write("Error: Cannot send email to ".$rcpt_to."\n");
                            $sent = FALSE;
                            continue;
                    }
                    if ($this->smtp_send($this->host_name, $mail_from, $rcpt_to, $header, $body)) {
                            $this->log_write("E-mail has been sent to <".$rcpt_to.">\n");
							//echo("发送成功!");
							$sent = true;
                    } else {
                            $this->log_write("Error: Cannot send email to <".$rcpt_to.">\n");
                            $sent = FALSE;
                    }
                    fclose($this->sock);
                    $this->log_write("Disconnected from remote host\n");
            }
			return $sent;
		}	
		elseif($this->sendway=="MAIL")
		{
			$body = str_replace("\r","",$body);
			$header = str_replace("\r","",$header);

			foreach ($TO as $rcpt_to) {
                    $sent = mail($rcpt_to, $subject, $body,$header);
			}
			return $sent;
		}elseif($this->sendway=="JMAIL")
		{
            $jmail = new COM("JMail.Message");
			com_set ( $jmail, "MailServerUserName", $this->user);
			com_set ( $jmail, "MailServerUserName", $this->user);
			com_set ( $jmail, "ContentTransferEncoding","base64");
			com_set ( $jmail, "EnableCharsetTranslation",false);
			foreach ($TO as $rcpt_to) {
				com_invoke ( $jmail, "AddRecipient", $rcpt_to);
			}
			com_set ( $jmail, "Charset", $charset);
			com_set ( $jmail, "From", $from);
			com_set ( $jmail, "FromName",$mailmaster);
			com_set ( $jmail, "Subject", $subject);
			com_set ( $jmail, "Priority", 1);
			com_set ( $jmail, "Silent", true);
			com_set ( $jmail, "HTMLBody", $bodyhtml);
			com_set ( $jmail, "Body", $bodytxt);
			com_invoke ( $jmail, "Send", $this->relay_host.":".$this->smtp_port);
			com_invoke ( $jmail, "Close");
			$sent =true;
			return $sent;

		}
		
    }

    /* Private Functions */
    function smtp_send($helo, $from, $to, $header, $body = "")
    {
        if($this->auth){
            if (!$this->smtp_putcmd("EHLO", $helo)) {
                    return $this->smtp_error("sending HELO command");
            }
            if (!$this->smtp_putcmd("AUTH LOGIN")) {
                    return $this->smtp_error("sending HELO command");
            }
            if (!$this->smtp_putcmd("",base64_encode($this->user))) {
                    return $this->smtp_error("sending HELO command");
            }

            if (!$this->smtp_putcmd("", base64_encode($this->pass))) {
                    return $this->smtp_error("sending HELO command");
            }
		}else{
            if (!$this->smtp_putcmd("HELO", $helo)) {
                    return $this->smtp_error("sending HELO command");
            }
        }
        if (!$this->smtp_putcmd("MAIL", "FROM:<".$from.">")) {
            return $this->smtp_error("sending MAIL FROM command");
        }

        if (!$this->smtp_putcmd("RCPT", "TO:<".$to.">")) {
            return $this->smtp_error("sending RCPT TO command");
        }

        if (!$this->smtp_putcmd("DATA")) {
            return $this->smtp_error("sending DATA command");
        }

        if (!$this->smtp_message($header, $body)) {
            return $this->smtp_error("sending message");
        }

        if (!$this->smtp_eom()) {
            return $this->smtp_error("sending <CR><LF>.<CR><LF> [EOM]");
        }

        if (!$this->smtp_putcmd("QUIT")) {
            return $this->smtp_error("sending QUIT command");
        }

        return TRUE;
    }

    function smtp_sockopen($address)
    {
        if ($this->relay_host == "") {
            return $this->smtp_sockopen_mx($address);
        } else {
            return $this->smtp_sockopen_relay();
        }
    }

    function smtp_sockopen_relay()
    {
        $this->log_write("Trying to ".$this->relay_host.":".$this->smtp_port."\n");
        $this->sock = @fsockopen($this->relay_host, $this->smtp_port, $errno, $errstr, $this->time_out);
        if (!($this->sock && $this->smtp_ok())) {
            $this->log_write("Error: Cannot connenct to relay host ".$this->relay_host."\n");
            $this->log_write("Error: ".$errstr." (".$errno.")\n");
            return FALSE;
        }
        $this->log_write("Connected to relay host ".$this->relay_host."\n");
        return TRUE;
    }

    function smtp_sockopen_mx($address)
    {
        $domain = ereg_replace("^.+@([^@]+)$", "\\1", $address);
        if (!@getmxrr($domain, $MXHOSTS)) {
            $this->log_write("Error: Cannot resolve MX \"".$domain."\"\n");
            return FALSE;
        }
        foreach ($MXHOSTS as $host) {
            $this->log_write("Trying to ".$host.":".$this->smtp_port."\n");
            $this->sock = @fsockopen($host, $this->smtp_port, $errno, $errstr, $this->time_out);
            if (!($this->sock && $this->smtp_ok())) {
                $this->log_write("Warning: Cannot connect to mx host ".$host."\n");
                $this->log_write("Error: ".$errstr." (".$errno.")\n");
                continue;
            }
            $this->log_write("Connected to mx host ".$host."\n");
            return TRUE;
        }
        $this->log_write("Error: Cannot connect to any mx hosts (".implode(", ", $MXHOSTS).")\n");
        return FALSE;
    }

    function smtp_message($header, $body)
    {
       	# the server is ready to accept data!
        # according to rfc 821 we should not send more than 1000
        # including the CRLF
        # characters on a single line so we will break the data up
        # into lines by \r and/or \n then if needed we will break
        # each of those into smaller lines to fit within the limit.
        # in addition we will be looking for lines that start with
        # a period '.' and append and additional period '.' to that
        # line. NOTE: this does not count towards are limit.

        # normalize the line breaks so we know the explode works
        $msg_data = $header.$body;
        $msg_data = str_replace("\r\n","\n",$msg_data);
        $msg_data = str_replace("\r","\n",$msg_data);
        $lines = explode("\n",$msg_data);	
        # we need to find a good way to determine is headers are
        # in the msg_data or if it is a straight msg body
        # currently I'm assuming rfc 822 definitions of msg headers
        # and if the first field of the first line (':' sperated)
        # does not contain a space then it _should_ be a header
        # and we can process all lines before a blank "" line as
        # headers.
        $field = substr($lines[0],0,strpos($lines[0],":"));
        $in_headers = false;
        if(!empty($field) && !strstr($field," ")) {
            $in_headers = true;
        }

        $max_line_length = 998; # used below; set here for ease in change

        while(list(,$line) = @each($lines)) {
            $lines_out = null;
            if($line == "" && $in_headers) {
                $in_headers = false;
            }
            # ok we need to break this line up into several
            # smaller lines
            while(strlen($line) > $max_line_length) {
                $pos = strrpos(substr($line,0,$max_line_length)," ");

                # Patch to fix DOS attack
                if(!$pos) {
                    $pos = $max_line_length - 1;
                }

                $lines_out[] = substr($line,0,$pos);
                $line = substr($line,$pos + 1);
                # if we are processing headers we need to
                # add a LWSP-char to the front of the new line
                # rfc 822 on long msg headers
                if($in_headers) {
                    $line = "\t" . $line;
                }
            }
            $lines_out[] = $line;

            # now send the lines to the server
            while(list(,$line_out) = @each($lines_out)) {
                if(strlen($line_out) > 0)
                {
                    if(substr($line_out, 0, 1) == ".") {
                        $line_out = "." . $line_out;
                    }
                }
                fputs($this->sock,$line_out . "\r\n");
            }
        }

        # ok all the message data has been sent so lets get this
        # over with aleady
        $this->smtp_debug("> ".str_replace("\r\n", "\n"."> ", $header."\n> ".$body."\n> "));
        return TRUE;
    }

    function smtp_eom()
    {
        fputs($this->sock, "\r\n.\r\n");
        $this->smtp_debug(". [EOM]\n");

        return $this->smtp_ok();
    }

    function smtp_ok()
    {
            $response = str_replace("\r\n", "", fgets($this->sock, 512));
            $this->smtp_debug($response."\n");

            if (!ereg("^[23]", $response)) {
                    fputs($this->sock, "QUIT\r\n");
                    fgets($this->sock, 512);
                    $this->log_write("Error: Remote host returned \"".$response."\"\n");
                    return FALSE;
            }
            return TRUE;
    }

    function smtp_putcmd($cmd, $arg = "")
    {
            if ($arg != "") {
                    if($cmd=="") $cmd = $arg;
                    else $cmd = $cmd." ".$arg;
            }

            fputs($this->sock, $cmd."\r\n");
            $this->smtp_debug("> ".$cmd."\n");

            return $this->smtp_ok();
    }

    function smtp_error($string)
    {
            $this->log_write("Error: Error occurred while ".$string.".\n");
            return FALSE;
    }

    function log_write($message)
    {
            $this->smtp_debug($message);

            if ($this->log_file == "") {
                    return TRUE;
            }

            $message = date("M d H:i:s ").get_current_user()."[".getmypid()."]: ".$message;
            if (!@file_exists($this->log_file) || !($fp = @fopen($this->log_file, "a"))) {
                    $this->smtp_debug("Warning: Cannot open log file \"".$this->log_file."\"\n");
                    return FALSE;
            }
            flock($fp, LOCK_EX);
            fputs($fp, $message);
            fclose($fp);

            return TRUE;
    }

    function strip_comment($address)
    {
        $comment = "\\([^()]*\\)";
        while (ereg($comment, $address)) {
            $address = ereg_replace($comment, "", $address);
        }

        return $address;
    }

    function get_address($address)
    {
        $address = ereg_replace("([ \t\r\n])+", "", $address);
        $address = ereg_replace("^.*<(.+)>.*$", "\\1", $address);

        return $address;
    }

    function smtp_debug($message)
    {
        if ($this->debug) {
            echo $message;
        }
    }
}
?>