|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Konstantin Cherednichenko 2:4643/1 01 Oct 2004 11:27:22
To : Valentin Davydov
Subject : mailbox -> smtp
--------------------------------------------------------------------------------
30 сен 04 19:45, Valentin Davydov -> Konstantin Cherednichenko:
>> как можно письма из mailbox переслать клиентам по smtp на другой
>> сервер?
VD> Сказать сендмэйлу (или кто бишь у тебя отправкой по smtp заведует),
VD> что клиенты теперь на другом сервере живут, а затем что-нибудь
VD> вроде (formail -I "From " -s sendmail -t) < mailbox, если у тебя все
VD> клиенты в одном mailboxе лежат. Сам formail идёт в довесок к
VD> procmailу.
спасибо, но я уже сам написал...
===== assign(f,'mailbox2smtp.pl') =====
#!/usr/local/bin/perl
#########################################################
# mailbox2smtp v1.0 #
# (c) 2004 Konstantin Cherednichenko <admin@host.kr.ua> #
#########################################################
print "Читаем списки пользователей...\n";
open(FR,"./virtusertable") || die "Hевозможно открыть файл virtusertable\n";
foreach (<FR>){
my($email,$login)=split(/\s+/) if(!(/\#/));
$ma{$login}=$email;
}
close(FR);
foreach $mailbox(`ls ./user`){
chomp $mailbox;
print "Обрабатываем логин $mailbox с адресом $ma{$mailbox}\n";
foreach $file(`ls ./user/$mailbox`){
chomp $file;
print "- письмо $file";
$p=0;
open(FR, "./user/$mailbox/$file") || die "невозможно прочесть $file\n";
while(<FR>){
if((/^From\:\s+/)&&($p==0)){
foreach (split(/\s+/)){
$from=$_ if(/\@/);
}
$p=1;
$from=~s/\<//; $from=~s/\>//;
print " от $from\n";
open(FW, "| /usr/local/sbin/exim -f \"$from\" \"$ma{$mailbox}\"");
}
else { print FW $_;}
}
close FW;
close FR;
}
}
===== close(f) =====
С уважением, _Konstantin_...
... Kirovograd reg. FIDO Node 2:4643/1 http://www.fido.kr.ua
--- GoldED+/BSD 1.1.5
* Origin: -* Dark BBS *- -* We connect networks! *- (2:4643/1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
mailbox -> smtp