send_mail类的实现

　　现在开始介绍我所编写的发送邮件类。有了上面的准备知识了，下面就是实现了。

类的成员变量

　　其中，$lastmessage和$lastact用于记录最后一次响应信息及执行的命令，当出错时，用户可以使用它们。为了测试需要，我还定义了$debug变量，当其值为true时，会在运行过程中显示一些执行信息，否则无任何输出。$fp用于保存打开后的socket句柄。

类的构造

---

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/"; }

---

　　这个构造函数主要完成一些初始值的判断及设置。$welcome用于HELO指令中，告诉服务器用户的名字。HELO指令要求为机器名，但是不用也可以。假如用户没有给出$welcome，则自动查找本地的机器名。

显示调试信息

---

1 function show_debug($message, $inout)2 {3 if ($this->debug)4 {5 if($inout==/"in/") //响应信息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 }

---

　　这个函数用来显示调试信息。可以在$inout中指定是上传的指令还是返回的响应，假如为上传指令，则使用/"out/"；假如为返回的响应则使用/"in/"。

第3行，判定是否要输出调试信息。
第5行，判定是否为响应信息，假如是，则在第7行将信息的前面加上/"<< /"来区别信息；否则在第10行加上/">> /"来区别上传指令。
第11-12行，判定信息串最后是否为换行符，如不是则加上HTML换行标记。第13行将所以的换行符转成HTML的换行标记。
第14行，输出整条信息，同时将信息颜色置为灰色以示区别。执行一个命令

---

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 }

---

　　在编写socket处理部分发现，一些命令的处理很相似，如HELO，MAIL FROM，RCPT TO，QUIT，DATA命令，都要求根据是否显示调试信息将相关内容显示出来，同时对于返回的响应码，假如是期望的，则应继承处理，假如不是期望的，则应中断出理。所以为了清楚与简化，专门对这些命令的处理编写了一个通用处理函数。函数的参数中$code为期望的响应码，假如响应码与之一样则表示处理成功，否则出错。

第3行，记录最后执行命令。
第4行，将上传命令显示出来。
第5行，则使用fputs真正向服务器传换指令。
第6行，从服务器接收响应信息将放在最后响应消息变量中。
第7行，将响应信息显示出来。
第8行，判定响应信息是否期待的，假如是则第13行返回成功(true)，否则在第10行返回失败(false)。

　　这样，这个函数一方面完成指令及信息的发送显示功能，别一方面对返回的响应判定是否成功。