mon Гость
|
Добавлено: Пн Окт 06 2003 15:39 Заголовок сообщения: форма загрузки файла и перл скрипт |
|
|
Хай all ! Есть проблема - при загрузке файла из формы на веб сервер и отправке его потом по мылу. Оно типа все работает и действительно отправлеет , но один только раз ! т.е. в цикле программа читает кому отправлять . Картина следующая приходит одно из писем с нормальным аттачем остальные с пустышкой ! в чем проблема ???? %) вот примерный код отправки мыла
my $msg = MIME::Lite->new (Type => 'multipart/mixed', From => $FROM, To => $TO, Subject =>SUBJECT ); $msg->attach(Type => 'TEXT', Data => "ostatok !!!"); $msg->attach ((Type => 'BINARY', Encoding => 'base64'), (FH => my $file=upload('UploadedFile') #Вот эта строчка поидее читает файл из офрмы ), (Filename => $name)); $msg->send_by_smtp('маил') # } |
|