显示调试信息
1 function show_debug($message, $inout)
2 {
3 if ($this-$#@62;debug)
4 {
5 if($inout=="in") file://响应信息
6 {
7 $m="$#@60;$#@60;,;
8 }
9 else
10 $m="$#@62;$#@62; ,;
11 if(!ereg("\n$", $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)。
这样，这个函数一方面完成指令及信息的发送显示功能，别一方面对返回的响应判断是否成功。
b>邮件发送处理
下面是真正的秘密了，可要看仔细了。:)
1 function send( $to,$from,$subject,$message)
2 {
3 file://连接服务器
4 $this-$#@62;lastact="connect";
5 $this-$#@62;show_debug("Connect to SMTP server : ".$this-$#@62;smtp, "out");
6 $this-$#@62;fp = fsockopen ( $this-$#@62;smtp, $this-$#@62;port );
7 if ( $this-$#@62;fp )
8 {
9 set_socket_blocking( $this-$#@62;fp, true );
10 $this-$#@62;lastmessage=fgets($this-$#@62;fp,512);
11 $this-$#@62;show_debug($this-$#@62;lastmessage, "in");
12 if (! ereg ( "^220", $this-$#@62;lastmessage ) )
13 {
14 return false;
15 }
16 else
17 {
18 $this-$#@62;lastact="HELO " . $this-$#@62;welcome . "\n";
19 if(!$this-$#@62;do_command($this-$#@62;lastact, "250"))
20 {
21 fclose($this-$#@62;fp);
22 return false;
23 }
24 $this-$#@62;lastact="MAIL FROM: $from" . "\n";
25 if(!$this-$#@62;do_command($this-$#@62;lastact, "250"))
26 {
27 fclose($this-$#@62;fp);
28 return false;
29 }
30 $this-$#@62;lastact="RCPT TO: $to" . "\n";
31 if(!$this-$#@62;do_command($this-$#@62;lastact, "250"))
32 {
33 fclose($this-$#@62;fp);
34 return false;
35 }
36 file://发送正文
37 $this-$#@62;lastact="DATA\n";
38 if(!$this-$#@62;do_command($this-$#@62;lastact, "354"))
39 {
40 fclose($this-$#@62;fp);
41 return false;
42 }
43 file://处理Subject头
44 $head="Subject: $subject\n";
45 if(!empty($subject) && !ereg($head, $message))
46 {
47 $message = $head.$message;
48 }
49 file://处理From头
50 $head="From: $from\n";
51 if(!empty($from) && !ereg($head, $message))
52 {
53 $message = $head.$message;
54 }
55 file://处理To头
56 $head="To: $to\n";
57 if(!empty($to) && !ereg($head, $message))
58 {
59 $message = $head.$message;
60 } <
61 file://加上结束串
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 }
有些意思很清楚的我就不说了。
