请教：sendmail+mimedefang邮件内容过虑［已经解决］

sunrocs

系统平台：RHEL4.5
软件:sendmail8.13, mimedefang2.6.3

需求：在本服务器的用户向外发送邮件时，在邮件后面附加类似“免遭声明”之类的声明。只在本地用户发送时和本地用户第一次回复某一主题的时候附加，
         对于已要附加过声明的邮件，在后面的再回复中不再附加。

我现在的做法是：把要附加的内容存储在数据库中。在filter_end中，打开“./INPUTMSG",把经过base64加密的那部分(邮件正文部分)进行decode。
                         然后匹配正文中是否已存在特殊字段，如果有，则不再附加，反之，则附加。

现在遇到问题是：在解码./INPUTMSG时，只有在重启mimedefang服务后第一次能正确解码，后面再发送其它邮件时，解码出来的内容都是乱码了。
                        我在打开"./INPUTMSG"时，拷贝一份到其它目录下，然后利用filter_end中一样的解码过程进行解码，就能够得到正常内容，
                        但是在mimedefang过虑过程中解码得到的却是乱码。不知道是什么原因，下面把部分代码贴出来，大家帮我看一下：

1. 
   
2. sub filter_end {
   
3.     use DBI;
   
4.     use MIME::Base64;
   
5.     use Encode qw/from_to/;
   
6.     my($entity) = @_;
   
7.     my ($dsn)="DBI:mysql:database_name:localhost";
   
8.     my ($user_name)="username";
   
9.     my ($password)="userpassword";
   
10.     foreach $recip(@Recipients){
    
11.         $recip=~ /<.*@(.*)>/;
    
12.         my $domain_to =$1;
    
13.         my $localdomain="local_domain";    #定义特殊domain，对此domain发邮件时不附加
    
14.         my $sign="ANNOUNCEMENT:";    ＃定义特殊标志，后面匹配到邮件内容中有此字符串时便不在附加
    
15.         if($domain_to !~ $localdomain)
    
16.         {
    
17.             system("/bin/cp ./INPUTMSG /var/spool/MIMEtmp/INPUTMSG"); ＃拷贝./INPUTMSG到指定目录，然后可以手动解码看看实际内容
    
18.             my $file="./INPUTMSG";
    
19.             my $body;
    
20.             my $start=qr/^Content-Transfer-Encoding: base64/;
    
21.             my $end=qr/^--(?!----=_NextPart)/;                             #定义截取邮件内容的开始和结束标记，即只要$start和$end中间的内容
    
22.             open (FILE,$file) or die "Connot open $!";
    
23.             while(<FILE>){
    
24.                 if((/$start/../$end/) and !/$start/ and !/$end/){
    
25.                     $body.=$_;
    
26.                     }
    
27.                 }
    
28.             md_syslog('info',"\$body\'s value is : $body");
    
29.             close FILE;
    
30.             $de_body=decode_base64("$body");
    
31.             md_syslog('info',"\$de_body\'s value is : $de_body");
    
32.             if ($de_body !~ $sign)
    
33.                 {
    
34.                 $dbh=DBI->connect($dsn,$user_name,$password);
    
35.                 $sth=$dbh->prepare("SELECT * from  comment where active='YES'");
    
36.                 $sth->execute();
    
37.                 while(@ary=$sth->fetchrow_array()){
    
38.                     ($active,$title,$content)=@ary;
    
39.                     }
    
40.                 from_to($content,"utf8","gb2312");
    
41.                 append_text_boilerplate($entity,"$sign"."$content", 0);
    
42.                 append_html_boilerplate($entity,"<br> <hr> <br>"."$sign"."<br><br>"."$content", 0);
    
43.                 }
    
44.         }
    
45.     }
    

复制代码

另外，这样做，方法本身可能就有问题，在邮件发送量大的时候，处理延迟问题可能就会很突出，能不能在已经附加过声明的邮件中插入一个标记，这个标记可以终身跟随这一主题的邮件，以后只需要检查邮件中有没有该标记，然后就可以决定是否附加声明了？

请各位不吝赐教！谢谢！

[ 本帖最后由 sunrocs 于 2008-10-20 18:30 编辑 ]

sunrocs

咋没人帮偶看看呢

sunrocs

问题已经搞定.

想想前的打开文件，真不是个什么聪明的方法，现在通过改变邮件的header来实现想要的结果
具体方法：上一封邮件的Message-ID,会现在在回复邮件的References:中，所以我在附加声明之后，修改邮件的Message-ID，在回复时，检查References:中是否含
                有我指定的Message-ID，如果有，则说明此主题的邮件已经附加过，则不再附加,也不会再修改Message-ID，反之则附加声明
实现代码如下

1. 
   
2. sub filter_end {
   
3.     use DBI;
   
4.     use MIME::Base64;
   
5.     use Encode qw/from_to/;
   
6.     my($entity) = @_;
   
7.     my ($dsn)="DBI:mysql:database_name:localhost";
   
8.     my ($user_name)="database_user";
   
9.     my ($password)="database_passwd";
   
10.    
    
11. md_syslog('info',"\$recipient\' value is : $recipient"."@Recipients");
    
12.     foreach $recip(@Recipients){
    
13.         $recip=~ /<.*@(.*)>/;
    
14.         my $domain_to =$1;
    
15.         my $localdomain="local_domain";
    
16.         my $sign='aaaabbbbccccddddeeeeffff13456789';
    
17.         if($domain_to !~ $localdomain)
    
18.         {
    
19.             my $file="./HEADERS";
    
20.             open (FILE,$file) or die "Connot open $!";
    
21.             while(<FILE>){
    
22.                 $header.=$_;
    
23.                 $id=(split(/:/,$_))[1] if(/References:/);
    
24.                 }
    
25.             md_syslog('info',"\$id\'s value is : $id,,,,,\$sign=$sign");
    
26.             md_syslog('info',"\$header\'s value is : $header");
    
27.             close FILE;
    
28.             if($id !~ $sign)
    
29.                 {
    
30.                 action_change_header("Message-ID", "<$sign>");
    
31.                 $dbh=DBI->connect($dsn,$user_name,$password);
    
32.                 $sth=$dbh->prepare("SELECT * from  comment where active='YES'");
    
33.                 $sth->execute();
    
34.                 while(@ary=$sth->fetchrow_array()){
    
35.                     ($active,$title,$content)=@ary;
    
36.                     }
    
37.                 from_to($content,"utf8","gb2312");
    
38.                 #md_syslog('info',"\$content\' value is : $content");
    
39.                 append_text_boilerplate($entity,"$content", 0);
    
40.                 append_html_boilerplate($entity,"<br> <hr> <br>"."$content", 0);
    
41.                 }
    
42.             }
    
43.      }
    

复制代码

PS：代码里只是随便指定了一个$sign，这样每封每一次发出去的邮件都有相同的Message-ID，容易被认为是垃圾邮件，你可以采取一些简单的方法，生成不同的Message-ID，方法这里不再细说

[ 本帖最后由 sunrocs 于 2008-10-21 08:46 编辑 ]

ruochen

谢谢分享

解决问题的方法值得学习