Помогите настроить автоответчик

[tux2002]

Нужно сделать простой автоответчик чтобы при приёме сообщения на определённый адрес отправителю высылался zip архив.
Пока пошёл таким путём:
autoreply_request:
driver = accept
local_parts = request
retry_use_local_part
transport = autoreply_request





autoreply_request:
driver = autoreply
file = /Test/Request.zip
file_optional
headers_remove = bcc
from = some@domain
group = mail
headers = "MIME-Version: 1.0\nContent-type: application/zip"
reply_to = some@domain
subject = "$h_subject"
to = $sender_address
user = mail



Файл приходит, но только первые 99.954 байта. Что делать?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[tux2002]

Сделал через транспорт pipe и перловый скрипт.

[dikens3]

вот и поделился бы с народом.

[tux2002]

Извините без форматирования (exim):

Код: Выделить всё

routers:

request:
  driver = accept
  local_parts = request
  domains = +local_domains
  transport = request



transports:

request:
  driver = pipe
  command = /root/bin/request.pl ${local_part:$sender_address} ${domain:$sender_address} $h_subject
  log_output
  user = exim
  group = mail

########################

Скрипт request.pl:

Код: Выделить всё

#!/usr/bin/perl -w

use MIME::Lite;

my $msg = MIME::Lite->new(From => "request\@domain",
                          To => "$ARGV[0]\@$ARGV[1]",
                          Subject => "$ARGV[2]",
                          Type => "multipart/mixed");

open (TAB, "ls /sambadata/Request/ |");
while (<TAB>)
{
    $_ =~ /^(.*)$/;
    my $filename = $1;
    $msg->attach(Type => "application/octet-stream",
                 Path => "/sambadata/Request/$filename",
                 Filename => "$filename");

}
$msg->send('smtp', '127.0.0.1');

########################

Пользователь через самбу кладёт файлы в /sambadata/Request
Потом пишет письмо на request@domain и получает ответ с той же темой и файлами во вложении.