Программирование > Perl

Нуждаюсь в Вашей помощи

(1/1)

shaman:
Помогите пожалуйста, никак не получается отослать письмо с вложеной картинкой, для этого я использую модуль MIME::Lite, вайл, максимум что получается, так это отслать файл размером 0 байт.
Вот код:
----------------------------------------------
#!/usr/bin/perl -w

########################################
# **************************************
#         VARIABLES
# **************************************
 my($path);
 $path="../cgi-bin";    
########################################

use strict;                                  
use CGI::Carp qw (fatalsToBrowser);
use CGI qw/:standard/;
require "$path/Lite.pm";
$CGI::POST_MAX=131072;
###################
       
       
my($subject,$from,$to,$upfile1,$message);
           if (param())
           {
           $subject=param(\'subject\');
           $subject=~s/

Light Elf:
А получается принимаемы файл сохранить на диске?
Получается вообще отправить письмо с текстом без вложения?

shaman:

--- Цитировать ---Light Elf (18-03-2001 20:38):
А получается принимаемы файл сохранить на диске?
Получается вообще отправить письмо с текстом без вложения?
--- Конец цитаты ---

И сохранять получается, и письмо без вложения отправляется???
Может кто другим путем это делает, так подскажите.

Сенкс

:

--- Цитировать ---shaman (18-03-2001 22:14):

--- Цитировать ---Light Elf (18-03-2001 20:38):
А получается принимаемы файл сохранить на диске?
Получается вообще отправить письмо с текстом без вложения?
--- Конец цитаты ---

И сохранять получается, и письмо без вложения отправляется???
Может кто другим путем это делает, так подскажите.

Сенкс
--- Конец цитаты ---


Я делаю так:

use CGI;
use MIME::Base64 qw(encode_base64);

$cgi = new CGI;

# attachment: file body
if ( defined $cgi->param(\'file\') && $cgi->param(\'file\') ne \'\') {
    # flag
    $attachment = 1;

    # get and decode file content
    $attFName = $cgi->param(\'file\');
    $tmpFName = $cgi->tmpFileName($attFName);
    ($shortFName) = ($attFName =~ /.*[\\/\\\\](.*?)$/);
    unless ( open FILE, "

Навигация

[0] Главная страница сообщений