sendmail的aliases能做到mysql数据库里吗？

sunrocs

请教一个问题：
     现在邮件服务器的用户都用mysql数据库管理，用的sendmail＋mimedefang，现在想把邮件群组也放到mysql数据库中管理，google了一下，没找到什么答案，不知道CUer做过此类配置或者有什么关于这个问题的线索，指点一下，多谢！

abel

這東西你用 mimedefang 解即可

只是個範例,隨手寫而以, 你自己參考看看

1. 
   
2. foreach my $recip (@Recipients) {
   
3.    $recip=~/<(\S)@(\S)>$/;
   
4.    my ($localpart,$domainpart)=($1,$2);
   
5.    next if (! ismydomain($domainpart));   # 不是自己的域名不做 expand 解釋
   
6.    next if ( !ismyaliases($localpart));        # 不在 mysql aliases 中
   
7.    delete_recipient($recip) if (is_local_user($localpart) && ismyaliases($localpart) ); # 如果 aliases 同 user 帳號,則 user 帳號會不在收件人之列
   
8.    foreach my $element (expand($localpart)) {
   
9.           add_recipient($element);
   
10.    }
    
11. }
    
12. 
    
13. 
    
14. sub ismydomain($)
    
15. {
    
16. my $domain;
    
17. # 讀取 local-host-names 判斷,或以 $local-host-names 變數判斷
    
18. open(LHN,"< /etc/mail/local-host-names");
    
19. $lhn=<LHN>;
    
20. $local_host_names=join('',@lhn);
    
21. if ($domain=~/$local_host_names/i) {    # 本機的 user/aliases
    
22.     return 1;
    
23. } else {
    
24.     return 0;
    
25. }
    
26. }
    
27. 
    
28. $alasies="all rd fae services "  #aliases 列表,可程式自動生成,這裏只是舉例故用變數代表
    
29. sub ismyaliases($)
    
30. {
    
31. my $user;
    
32. ($user=~/$aliases/i)  ? return 1:return 0;
    
33. }
    
34. 
    
35. sub expand($)
    
36. {
    
37. my $exp;
    
38. # DBI select DB ...
    
39. $sth = $dbh->prepare("select user from aliases where aliases_name='$exp'");
    
40. $sth->execute;
    
41. $rows = $sth->rows;
    
42. return $exp if ($rows==0);
    
43. return (@expand_list); # 自己處理一下 mysql select 結果
    
44. }
    
45. 
    

复制代码

sunrocs

自己顶一下:wink: :wink:

xmbbx

原帖由 abel 于 2008-12-3 10:47 发表
這東西你用 mimedefang 解即可

只是個範例,隨手寫而以, 你自己參考看看


foreach my $recip (@Recipients) {
   $recip=~/$/;
   my ($localpart,$domainpart)=($1,$2);
   next if (! ismydomain($ ...

abel对sendmail研究很深呀，踩个脚印，或许以后用的着

sunrocs

原帖由 abel 于 2008-12-1 20:28 发表
這東西你用 mimedefang 解即可

只是個範例,隨手寫而以, 你自己參考看看


foreach my $recip (@Recipients) {
   $recip=~/$/;
   my ($localpart,$domainpart)=($1,$2);
   next if (! ismydomain($ ...

abel兄，一语惊醒梦中人啊，太感谢了，我怎么就没有想到用mimedefang呢？太妙了！

再次感谢，我好好研究一下~