Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

question bad encoding data to MIME::Lite

by swilting (Beadle)
on Oct 11, 2010 at 07:16 UTC ( [id://864543]=perlquestion: print w/replies, xml ) Need Help??

swilting has asked for the wisdom of the Perl Monks concerning the following question:

I post my patch to MIME:: Lite

http://fakessh.eu/mimelite.diff

http://fakessh.eu/?page_id=21

This page is on my blog and I describe errors .

I think that MIME:: Lite does not encode the data well

perl gurus have certainly already found the bug . you would be very nice if you help me find the bug .

help me This is the challenge

  • Comment on question bad encoding data to MIME::Lite

Replies are listed 'Best First'.
Re: question bad encoding data to MIME::Lite
by moritz (Cardinal) on Oct 11, 2010 at 07:40 UTC
    I don't quite understand what you want.

    Does the error occur without the patch? Does your patch solve it? If yes, what is it you are asking us? If not, what's the new problem?

    The correct way to submit patches is the bug tracker, so if you think your patch is good, add test cases to the test suite, update the documentation if anything needs documenting, and submit your code+docs+tests patch to RT.

    Perl 6 - links to (nearly) everything that is Perl 6.
Re: question bad encoding data to MIME::Lite
by Corion (Patriarch) on Oct 11, 2010 at 07:18 UTC

    Please don't post off-site links that contain relevant content here. Please post the relevant discussion and code here, so that the discussion here stays within context. Thanks.

      with the minimal exemple

      #!/usr/bin/perl -w use MIME::Lite; use strict; use warnings; my$msg = MIME::Lite->new ( From => 'fakessh@fakessh.eu', To => 'john.swilting@wanadoo.fr', Subject => 'test' ); $msg->send('tls','domaine.tld',Hello => 'domaine.tld', Port => "587", +User => "john" , Password => "azerty" , Debug => 4 );

      attempting to issue an email fails . I quote the response of perl -d

      ~]# perl -d mailtomail3.pl Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(mailtomail3.pl:8): my$msg = MIME::Lite->new ( main::(mailtomail3.pl:9): From => 'fakessh@fakessh.eu', main::(mailtomail3.pl:10): To => 'john.swilting@wanado +o.fr', main::(mailtomail3.pl:11): Subject => 'test' main::(mailtomail3.pl:12): ); DB<1> c SMTP mail() command failed: MIME::Lite::SMTP::TLS=HASH(0x875a62c) at /usr/lib/perl5/vendor_perl/5.8.8/MIME/Lite.pm line 2941 MIME::Lite::send_by_tls('MIME::Lite=HASH(0x845e204)', 'mail.fa +kessh.eu', 'Hello', 'fakessh.eu', 'Port', 587, 'User', 'fakessh', 'Pa +ssword', ...) called at /usr/lib/perl5/vendor_perl/5.8.8/MIME/Lite.pm + line 2581 MIME::Lite::send('MIME::Lite=HASH(0x845e204)', 'tls', 'mail.fa +kessh.eu', 'Hello', 'fakessh.eu', 'Port', 587, 'User', 'fakessh', ... +) called at mailtomail3.pl line 13 Debugged program terminated. Use q to quit or R to restart, use o inhibit_exit to avoid stopping after program termination, h q, h R or h o to get additional info. DB<1> q

      is the mail command that happens with errors

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://864543]
Approved by moritz
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-04-25 21:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found