請教高手 關(guān)于使用 Socket 發(fā)信.

夢戀情人

使用 雷傲論壇.的ESMTP發(fā)信功能,一直沒有成功過.  想請教一下高手們? 錯(cuò)在什么地方?

是使用 Socket

論壇程序中有關(guān)發(fā)信的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.                 #對地址進(jìn)行解碼
    
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服務(wù)器握手連接
    
45.                         print S "HELO localhost\n";
    
46.                         $a = <S>;;
    
47.                 }
    
48.                 else
    
49.                 {#進(jìn)行ESMTP身份驗(yàn)證
    
50.                         print S "EHLO localhost\n";
    
51.                         $a = <S>;;
    
52.                         print S "AUTH LOGIN\n";
    
53.                         $a = <S>;;
    
54.                         my $encode_smtpuser = &Base64encode($SMTPUSER);    #用來驗(yàn)證的用戶名必須經(jīng)過Base64編碼后發(fā)往服務(wù)器
    
55.                         print S "$encode_smtpuser\n";
    
56.                         $a = <S>;;
    
57.                         my $encode_smtppass = &Base64encode($SMTPPASS);    #用來驗(yàn)證的密碼必須經(jīng)過Base64編碼后發(fā)往服務(wù)器
    
58.                         print S "$encode_smtppass\n";
    
59.                         $a = <S>;;
    
60.                         return 0 if ($a =~ /fail/i);
    
61.                 }
    
62. 
    
63.                 #發(fā)送郵件頭部信息
    
64.                 print S "MAIL FROM: <$from>;\n";
    
65.                 $a = <S>;;
    
66.                 print S "RCPT TO: <$i>;\n";
    
67.                 $a = <S>;;
    
68. 
    
69.                 #發(fā)送郵件正文
    
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編碼函數(shù)
    
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. 
     

復(fù)制代碼

注: 空間不支持Sendmail 發(fā)信.[code][/code]

apile

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

deathcult

我再來補(bǔ)充 ：）
還有Mail::Mailer, Net::SMTP,
還有以Email打頭的一系列模塊，比如Email::Simple。。。。。。

夢戀情人

是否支持認(rèn)證??

那位大哥使用過? 好用嗎? 如果有應(yīng)用代碼就太好了

apile

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

夢戀情人

感謝這里的熱朋友.這個(gè)論壇太...............巴適了. 安逸

夢戀情人

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. 再次請教.
    
12. 按你們說的使用NET::SMTP 已成功了.
    
13. 
    
14. 
    
15. 
    
16. 我對照了一個(gè)已前失敗的記錄,和現(xiàn)在成功的記錄.發(fā)現(xiàn)已前的因?yàn)橹饕�是在下面代碼中:
    
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服務(wù)器返回  334 VXNlcm5hbWU6 , 已前失敗是因?yàn)闆]有再處理這個(gè)東東.
    
29. 
    
30. 請問 上面記錄向服務(wù)器發(fā)送的代碼  YmVsbEB6d2JzLm5ldA==  是怎么得到的??
    
31. 
    
32. 
    

復(fù)制代碼

apile

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