Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Разрезать файл формата mailbox и отправить как набор писем.  (Прочитано 8953 раз)
0 Пользователей и 1 Гость смотрят эту тему.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« : 01-06-2010 17:12 » new

На сервере почта для локальных пользователей собиралась в стандартные файл mailbox (в директории /var/mail). Понадобилось перенаправить это по почте в виде набора писем.
Написал скрипт - привожу его ниже - может кому пригодится.
Но вопрос по прежнему открытый: существует ли какая-то штатная программа?

Код:
#!/usr/bin/perl -W

use strict;

sub save_mail();

my $send_to = 'mail@example.com';
my @lines;
my $to;

while (my $line = <>)
{
    chomp;

    if ($line =~ m/^From /)
    {
        if (@lines > 0)
        {
            pop @lines;
            save_mail();
        }

        @lines = ();
        $to = undef;
    }
    else
    {
        if (!defined $to and $line =~ m/^To:\s*(.*?)\s*$/)
        {
            $to = $1;
            push @lines, "To: $send_to";
        }
        else
        {
            $line =~ s/^>From /From /;
            push @lines, $line;
        }
    }
}

if (@lines > 0)
{
    pop @lines;
    save_mail();
}

sub save_mail()
{
    my $fd;

    open $fd, "|sendmail $send_to";
    print $fd join("\n", @lines), ".\n";
    close $fd;
}
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 05-06-2010 09:17 » 

RXL, дык... mail

Он с ключом -f открывает указанный файл типа mailbox и с помощью посылаемых ему в стандартный поток команд им можно управлять.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines