send_mail類的實現(xiàn)

　　現(xiàn)在開始介紹我所編寫的發(fā)送郵件類。有了上面的預(yù)備知識了，下面就是實現(xiàn)了。 類的成員變量     var $lastmessage;    //記錄最后返回的響應(yīng)信息    var $lastact;        //最后的動作，字符串形式    var $welcome;        //用在HELO后面，歡迎用戶    var $debug;          //是否顯示調(diào)試信息    var $smtp;           //smtp服務(wù)器    var $port;           //smtp端口號    var $fp;             //socket句柄　　其中，$lastmessage和$lastact用于記錄最后一次響應(yīng)信息及執(zhí)行的命令，當(dāng)出錯時，用戶可以使用它們。為了測試需要，我還定義了$debug變量，當(dāng)其值為true時，會在運行過程中顯示一些執(zhí)行信息，否則無任何輸出。$fp用于保存打開后的socket句柄。 類的構(gòu)造

---

   function send_mail($smtp, $welcome="", $debug=false)    {        if(empty($smtp)) die("SMTP cannt be NULL!");        $this->smtp=$smtp;        if(empty($welcome))        {            $this->welcome=gethostbyaddr("localhost");        }        else            $this->welcome=$welcome;        $this->debug=$debug;        $this->lastmessage="";        $this->lastact="";        $this->port="25";    }

---

---

1    function show_debug($message, $inout)2    {3        if ($this->debug)4        {5            if($inout=="in")    //響應(yīng)信息6            {7                $m='<< ';8            }9            else10                $m='>> ';11            if(!ereg("/n$", $message))12                $message .= "<br>";13            $message=nl2br($message);14            echo "<font color=#999999>${m}${message}</font>";15        }16    }

---

---

1    function do_command($command, $code)2    {3        $this->lastact=$command;4        $this->show_debug($this->lastact, "out");5        fputs ( $this->fp, $this->lastact );6        $this->lastmessage = fgets ( $this->fp, 512 );7        $this->show_debug($this->lastmessage, "in");8        if(!ereg("^$code", $this->lastmessage))9        {10            return false;11        }12        else13            return true;14    }

---