send_mail类的实现
现在开始介绍我所编写的发送邮件类。有了上面的预备知识了，下面就是实现了。
类的成员变量
var $lastmessage; //记录最后返回的响应信息
var $lastact; //最后的动作，字符串形式
var $welcome; //用在HELO后面，欢迎用户
var $debug; //是否显示调试信息
var $smtp; //smtp服务器
var $port; //smtp端口号
var $fp; //socket句柄
其中，$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，则自动查找本地的机器名。
立即学习“PHP免费学习笔记（深入）”；
显示调试信息
基于Intranet/Internet 的Web下的办公自动化系统，采用了当今最先进的PHP技术，是综合大量用户的需求,经过充分的用户论证的基础上开发出来的，独特的即时信息、短信、电子邮件系统、完善的工作流、数据库安全备份等功能使得信息在企业内部传递效率极大提高，信息传递过程中耗费降到最低。办公人员得以从繁杂的日常办公事务处理中解放出来，参与更多的富于思考性和创造性的工作。系统力求突出体系结构简明
--------------------------------------------------------------------------------
1 function show_debug($message, $inout)
2 {
3 if ($this->debug)
4 {
5 if($inout==\"in\") //响应信息
6 {
7 $m=\'8 }
9 else
10 $m=\'>> \';
11 if(!ereg(\"\n$\", $message))
12 $message .= \"
\";
13 $message=nl2br($message);
14 echo \"${m}${message}\";
15 }
16 }
-------------------------------------------------------------------------------- 这个函数用来显示调试信息。可以在$inout中指定是上传的指令还是返回的响应，如果为上传指令，则使用\"out\"；如果为返回的响应则使用\"in\"。
第3行，判断是否要输出调试信息。
第5行，判断是否为响应信息，如果是，则在第7行将信息的前面加上\"> \"来区别上传指令。
第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 else
13 return true;
14 }
-------------------------------------------------------------------------------- 在编写socket处理部分发现，一些命令的处理很相似，如HELO，MAIL FROM，RCPT TO，QUIT，DATA命令，都要求根据是否显示调试信息将相关内容显示出来，同时对于返回的响应码，如果是期望的，则应继续处理，如果不是期望的，则应中断出理。所以为了清晰与简化，专门对这些命令的处理编写了一个通用处理函数。函数的参数中$code为期望的响应码，如果响应码与之相同则表示处理成功，否则出错。
第3行，记录最后执行命令。
第4行，将上传命令显示出来。
第5行，则使用fputs真正向服务器传换指令。
第6行，从服务器接收响应信息将放在最后响应消息变量中。
第7行，将响应信息显示出来。
第8行，判断响应信息是否期待的，如果是则第13行返回成功(true)，否则在第10行返回失败(false)。
这样，这个函数一方面完成指令及信息的发送显示功能，别一方面对返回的响应判断是否成功。
