From 907ddb9e2e0123980f27ee77d25598abf9d46c44 Mon Sep 17 00:00:00 2001 From: short <> Date: Sun, 26 Dec 2004 21:36:51 +0000 Subject: [PATCH] +&lmtp_deliver for cyrus-imapd side delivery. +=bashbug --- PerlMail/Config.pm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm index 9ca80cb..1b442c7 100644 --- a/PerlMail/Config.pm +++ b/PerlMail/Config.pm @@ -43,7 +43,7 @@ require Mail::Alias; BEGIN { for (qw(headerhas store headeris did dnsbl store_muttrc_alternates Received_for parts_linear mime_type - body_first mimehead spamassassin header_remap)) { + body_first mimehead spamassassin header_remap lmtp_deliver)) { eval 'sub '.$_.' { return ::'.$_.'(@_); }'; } } @@ -69,6 +69,17 @@ our $MaxBodySMS=0x1000; our @SMSwebRcpt=qw(420 602 431329); # Some WWW::SMS modules require username: our $SMSwebRcpt_username="lace2"; +our $lmtp_admin="cyrus"; +our $lmtp_pwd; +{ + local *F; + open F,"$HOME/priv/lmtp.${lmtp_admin}.pwd" or die; + $lmtp_pwd=; + chomp $lmtp_pwd; + close F or die; + } +our $lmtp_user_from="lace"; +our $lmtp_user_to="lacemail"; # perlmail-submit @@ -435,6 +446,7 @@ sub audit store "=glibc","silent" if headeris "Mailing-List",qr/\b\Qlibc-alpha-help\E@\Qsources.redhat.com\E\b/; store "=fedann","bell" if headeris "List-Id" ,''; store "=fedtools","log" if headeris "List-Id" ,''; + store "=bashbug","log" if headeris "List-Id" ,''; # own webs store "=energie","bell" if headeris "From" ,qr/^EnergieWeb/; store "=ats","log" if headeris("From" ,'') @@ -450,6 +462,10 @@ sub audit store "=koutecky","log" if headeris "Return-Path",''; store "=koutecky","log" if headeris "Return-Path",''; + if (($isFROM_MAILER && !did) || !did) { + lmtp_deliver $lmtp_admin,$lmtp_pwd,$lmtp_user_from,$lmtp_user_to; + } + store "=errm","bell" if $isFROM_MAILER && !did(); if (!did) { -- 1.8.3.1