请教高手 关于使用 Socket 发信.

梦恋情人

使用 雷傲论坛.的ESMTP发信功能,一直没有成功过.  想请教一下高手们? 错在什么地方?

是使用 Socket

论坛程序中有关发信的SUB

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. sub smtpmail
   
7. {
   
8.         eval("use Socket;");
   
9.         my ($address, $from, $replyaddr, $subject, $body, $extra) = @_;
   
10. 
    
11.         my ($a, $i, $name, $aliases, $proto, $type, $len, $thataddr);
    
12.         my @to = split(/, /, $address);
    
13.         foreach $i (@to)
    
14.         {
    
15.                 #对地址进行解码
    
16.                 my $AF_INET = 2;
    
17.                 my $SOCK_STREAM = 1;
    
18.                 my $SOCKADDR = 'S n a4 x8';
    
19. 
    
20.                 ($name, $aliases, $proto) = getprotobyname('tcp');
    
21.                 ($name, $aliases, $SMTP_PORT) = getservbyname($SMTP_PORT, 'tcp') unless ($SMTP_PORT =~ /^\d+$/);
    
22.                 ($name, $aliases, $type, $len, $thataddr) = gethostbyname($SMTP_SERVER);
    
23.                 my $this = pack($SOCKADDR, $AF_INET, 0, $thisaddr);
    
24.                 my $that = pack($SOCKADDR, $AF_INET, $SMTP_PORT, $thataddr);
    
25. 
    
26.                 #打开SMTP的socket端口
    
27.                 socket(S, $AF_INET, $SOCK_STREAM, $proto);
    
28.                 bind(S, $this);
    
29.                 connect(S, $that);
    
30. 
    
31.                 select(S);
    
32.                 $| = 1;
    
33.                 select(STDOUT);
    
34.                 $a = "";
    
35.                 $a = <S>;;
    
36.                 if ($a !~ /^2/)
    
37.                 {
    
38.                         close(S);
    
39.                         undef $|;
    
40.                         return 0;
    
41.                 }
    
42. 
    
43.                 if ($extra eq "no")
    
44.                 {#与普通SMTP服务器握手连接
    
45.                         print S "HELO localhost\n";
    
46.                         $a = <S>;;
    
47.                 }
    
48.                 else
    
49.                 {#进行ESMTP身份验证
    
50.                         print S "EHLO localhost\n";
    
51.                         $a = <S>;;
    
52.                         print S "AUTH LOGIN\n";
    
53.                         $a = <S>;;
    
54.                         my $encode_smtpuser = &Base64encode($SMTPUSER);    #用来验证的用户名必须经过Base64编码后发往服务器
    
55.                         print S "$encode_smtpuser\n";
    
56.                         $a = <S>;;
    
57.                         my $encode_smtppass = &Base64encode($SMTPPASS);    #用来验证的密码必须经过Base64编码后发往服务器
    
58.                         print S "$encode_smtppass\n";
    
59.                         $a = <S>;;
    
60.                         return 0 if ($a =~ /fail/i);
    
61.                 }
    
62. 
    
63.                 #发送邮件头部信息
    
64.                 print S "MAIL FROM: <$from>;\n";
    
65.                 $a = <S>;;
    
66.                 print S "RCPT TO: <$i>;\n";
    
67.                 $a = <S>;;
    
68. 
    
69.                 #发送邮件正文
    
70.                 print S "DATA\n";
    
71.                 print S "From: $from\n";
    
72.                 print S "To: $i\n";
    
73.                 print S "Subject: $subject\n";
    
74.                 print S "Reply-To: $replyaddr\n" if ($replyaddr);
    
75.                 print S "X-Mailer: LeoBoard eSmtp Mail Sender\n";
    
76.                 print S "Content-Type: text/html; charset=gb2312\n\n";
    
77.                 print S $body;
    
78.                 print S "\n";
    
79.                 print S "\n\n";
    
80.                 print S ".\n";
    
81.                 $a = <S>;;
    
82. 
    
83.                 print S "QUIT\n";
    
84.                 $a = <S>;;
    
85.                 close(S);
    
86.                 undef $|;
    
87.         }
    
88.         return 1;
    
89. }
    
90. 
    
91. sub Base64encode
    
92. #Base64编码函数
    
93. {
    
94.     my $res = pack("u", $_[0]);
    
95.     $res =~ s/^.//mg;
    
96.     $res =~ s/\n//g;
    
97.     $res =~ tr|` -_|AA-Za-z0-9+/|;
    
98.     my $padding = (3 - length($_[0]) % 3) % 3;
    
99.     $res =~ s/.{$padding}$/'=' x $padding/e if $padding;
    
100.     return $res;
     
101. }
     
102. 1;
     
103. 
     
104. 
     
105. 
     

复制代码

注: 空间不支持Sendmail 发信.[code][/code]

apile

You can use the modules that provided on CPAN...
like Mail::Sender, Mail::Sendmail,.....

deathcult

我再来补充 ：）
还有Mail::Mailer, Net::SMTP,
还有以Email打头的一系列模块，比如Email::Simple。。。。。。

梦恋情人

是否支持认证??

那位大哥使用过? 好用吗? 如果有应用代码就太好了

apile

http://www.chinaunix.net/forum/viewtopic.php?t=142253&start=0
這是我寫的..但是不經過Authorization的程式碼..
其實他是支援authorization的...
請自己研究
http://search.cpan.org/author/JENDA/Mail-Sender-0.8.08/Sender.pm
這個URL
或看一下最上面module使用說明...

梦恋情人

感谢这里的热朋友.这个论坛太...............巴适了. 安逸

梦恋情人

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. 再次请教.
    
12. 按你们说的使用NET::SMTP 已成功了.
    
13. 
    
14. 
    
15. 
    
16. 我对照了一个已前失败的记录,和现在成功的记录.发现已前的因为主要是在下面代码中:
    
17. 
    
18. Net::SMTP=GLOB(0x1842f44)<<< 334 VXNlcm5hbWU6
    
19. Net::SMTP=GLOB(0x1842f44)>;>;>; YmVsbEB6d2JzLm5ldA==
    
20. 
    
21. Net::SMTP=GLOB(0x1842f44)<<< 334 UGFzc3dvcmQ6
    
22. Net::SMTP=GLOB(0x1842f44)>;>;>; YmVsbDExMzMyMjg4OA==
    
23. 
    
24. Net::SMTP=GLOB(0x1842f44)<<< 235 2.0.0 OK Authenticated
    
25. 
    
26. 
    
27. 
    
28. 在提交用户名和密码后 SMTP服务器返回  334 VXNlcm5hbWU6 , 已前失败是因为没有再处理这个东东.
    
29. 
    
30. 请问 上面记录向服务器发送的代码  YmVsbEB6d2JzLm5ldA==  是怎么得到的??
    
31. 
    
32. 
    

复制代码

apile

密碼crypt. 後得到的string... 跟/etc/shadow裡面看到的類似..