用Socket发送电子邮件3

下面给出一个简单的命令头(这是在打开socket之后做的)，是我向stmp.263.net发邮件的测试结果： 

HELO limodou 
250 smtp.263.net 
MAIL FROM:  chatme@263.net  
250 Ok 
RCPT TO:  chatme@263.net  
250 Ok 
DATA 
354 End data with . 
To:  chatme@263.net  
From:  chatme@263.net  
Subject: test 
From:  chatme@263.net  
test 
. 
QUIT 
250 Ok: queued as C46411C5097E0 

　　这就是一些SMTP的简单知识。相关内容可以查阅RFC。 

RFC 821定义了收/发电子邮件的相关指令。 
RFC 822则制定了邮件？容的格式。 
RFC 2045-2048制定了多媒体邮件？容的格式， 
RFC 1113, 1422-1424则是讨论如何增进电子邮件的保密性。

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-$#@62;smtp=$smtp; 
if(empty($welcome)) 
{ 
$this-$#@62;welcome=gethostbyaddr("localhost"); 
} 
else 
$this-$#@62;welcome=$welcome; 
$this-$#@62;debug=$debug; 
$this-$#@62;lastmessage=""; 
$this-$#@62;lastact=""; 
$this-$#@62;port="25"; 
} 

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

显示调试信息

1 function show_debug($message, $inout) 
2 { 
3 if ($this-$#@62;debug) 
4 { 
5 if($inout=="in") //响应信息 
6 { 
7 $m="$#@60;$#@60;,; 
8 } 
9 else 
10 $m="$#@62;$#@62; ,; 
11 if(!ereg("\n<# WebPartBody #>quot;, $message)) 
12 $message .= "$#@60;br$#@62;"; 
13 $message=nl2br($message); 
14 echo "$#@60;font color=#999999$#@62;${m}${message}$#@60;/font$#@62;"; 
15 } 
16 } 
　　这个函数用来显示调试信息。可以在$inout中指定是上传的指令还是返回的响应，如果为上传指令，则使用"out"；如果为返回的响应则使用"in"。 

第3行，判断是否要输出调试信息。 

第5行，判断是否为响应信息，如果是，则在第7行将信息的前面加上"$#@60;$#@60; "来区别信息；否则在第10行加上 "$#@62;$#@62; "来区别上传指令。 

第11-12行，判断信息串最后是否为换行符，如不是则加上HTML换行标记。第13行将所以的换行符转成HTML的换行标记。 

第14行，输出整条信息，同时将信息颜色置为灰色以示区别。

执行一个命令 

1 function do_command($command, $code) 
2 { 
3 $this-$#@62;lastact=$command; 
4 $this-$#@62;show_debug($this-$#@62;lastact, "out"); 
5 fputs ( $this-$#@62;fp, $this-$#@62;lastact ); 
6 $this-$#@62;lastmessage = fgets ( $this-$#@62;fp, 512 ); 
7 $this-$#@62;show_debug($this-$#@62;lastmessage, "in"); 
8 if(!ereg("^$code", $this-$#@62;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)。 

　　这样，这个函数一方面完成指令及信息的发送显示功能，别一方面对返回的响应判断是否成功。
61 //加上结束串 
62 if(!ereg("\n\.\n", $message)) 
63 $message .= "\n.\n"; 
64 $this-$#@62;show_debug($message, "out"); 
65 fputs($this-$#@62;fp, $message); 
66 
67 $this-$#@62;lastact="QUIT\n"; 
68 if(!$this-$#@62;do_command($this-$#@62;lastact, "250")) 
69 { 
70 fclose($this-$#@62;fp); 
71 return false; 
72 } 
73 } 
74 return true; 
75 } 
76 else 
77 { 
78 $this-$#@62;show_debug("Connect failed!", "in"); 
79 return false; 
80 } 
81 }