Forum Webscript.Ru

Программирование => Perl => Тема начата: Croaker от 19 Сентября 2002, 12:38:01

Название: порча файла при отсылке (MIME::Lite)
Отправлено: Croaker от 19 Сентября 2002, 12:38:01

Пытаюсь отослать файл (докуменn .doc) аттачем.

1) делаю upload
2) MIME::Lite`ом отсылаю.

Стоит Russian apache, но в httpd.conf - CharsetDisable on прописано.
В каталоге со скриптом (/cgi-bin/) лежит

При uload`e файлы не портятся.  При пересылке весят на 10 byte больше и не открываются. Help!

вот код:

[PHP]
        $email = $cgi->param(\'email\');
        $message = $cgi->param(\'message\');
        $attach = $cgi->param(\'attach\');
       

        open(FILE, \'>tmp/attach.doc\') ;
        binmode FILE;                                      
        print FILE while (<$attach>);          
        close FILE;

        $msg = MIME::Lite->new(
                From         => \'billing@azz.ru\',
                To        => $email,
                Subject => \'Subject\',
                Data        => $message,
        );
        $msg->attach(
                Path         => \'tmp/attach.doc\',
                Filename => \'attachment.doc\',
                Disposition => \'attachment\',
        );
        $msg->send();

Название: порча файла при отсылке (MIME::Lite)
Отправлено: Croaker от 19 Сентября 2002, 15:15:16

Есть подозрение, что надо добавить

Type => "...."

но вот какой тип писать - зх (не text/plain же)

Название: порча файла при отсылке (MIME::Lite)
Отправлено: Croaker от 19 Сентября 2002, 15:17:50

все, image/gif помогло.
Мне спасибо.