IMHO.WS - Send Mail , perl

IMHO.WS (https://www.imho.ws/index.php)

- Веб-программирование (https://www.imho.ws/forumdisplay.php?f=29)

- - Send Mail , perl (https://www.imho.ws/showthread.php?t=68277)

Send Mail , perl

Помогите плз.
надо послать письмо с аттачментом прямо на почту (без посредников)
Скачал код скрипта , подставил свои данные а он , №@%& , не работает и ошибки не выдает
типа все ок но письмо не приходит.
:(

Код:



#!/usr/bin/perl

#

#

use MIME::Lite;

use Net::SMTP;





my $from_address = '299792458@po4ta.xx';

my $to_address = '299792458@inbox.ru.ru';

my $subject = 'MIME Net::SMTP test';

my $mime_type = 'TEXT';

my $message = "Hello world!\n";



# Create the initial text of the message

my $mime_msg = MIME::Lite->new(

   From => $from_address,

      To   => $to_address,

         Subject => $subject,

            Type => $mime_type,

               Data => $message

                  )

                    or die "Error creating MIME body: $!\n";

                    

                    my $filename = 'a.txt';

                    my $recommended_filename = 'a.txt';

                    

                    # Attach the test file

                    $mime_msg->attach(

                       Type => 'application/zip',

                          Path => $filename,

                             Filename => $recommended_filename

                                )

                                  or die "Error attaching test file: $!\n";







my $message_body = $mime_msg->body_as_string();





my $ServerName = "smtp.inbox.ru";





$smtp = Net::SMTP->new($ServerName) or 

   die "Couldn't connect to server"; 

   

   $smtp->mail( $from_address ); 

   $smtp->to( $to_address ); 

   

   $smtp->data(); 

   $smtp->datasend($message_body); 

   $smtp->dataend(); 

   

 

   $smtp->quit();

А маил вообще есть на этом компе? Или пытаешся из перла без майлсервера отправить? :cool:

пытаюсь из перла без майлсервера отправить

Майлсервер должен быть инсталирован в системе и вебсервер должен быть настроен на работу с ним.
Если я это правильно понял :cool:

немного разобрался
теперь проблемы с аттачментом
письмо доходит , но в таком виде (a.txt сменил на 1.jpg)

Код:



This is a multi-part message in MIME format.



--_----------=_1096361458173200

Content-Disposition: inline

Content-Length: 13

Content-Transfer-Encoding: binary

Content-Type: text/plain



Hello world!



--_----------=_1096361458173200

Content-Disposition: inline; filename="1.jpg"

Content-Transfer-Encoding: base64

Content-Type: image/jpg; name="1.jpg"



/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAKAAA/+4ADkFk

b2JlAGTAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBcS

FBQUFBIXFxscHhwbFyQkJyckJDUzMzM1Ozs7Ozs7Ozs7OwENCwsNDg0QDg4Q

FA4PDhQUEBEREBQdFBQVFBQdJRoXFxcXGiUgIx4eHiMgKCglJSgoMjIwMjI7

..........

..........

..........

dVPtsM2MSWIJDRHVH9I01FYXLTmcTkKjqz4twZQZ3rYgwlp7+d66uo5AnGPc

LAgAAwbmxGnYjWjQeJsbTqFNg1zcV1dQpEC7EZJFnVTYQZCkGCsz0qd6QTlU

KrEiYHU+n1RG0m1dXVaAH+l/y026dP8AzV1dXUwP/9k=



--_----------=_1096361458173200--