Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

problem with mime::lite

by anshu143payel (Initiate)
on Dec 17, 2012 at 09:09 UTC ( #1009131=perlquestion: print w/ replies, xml ) Need Help??
anshu143payel has asked for the wisdom of the Perl Monks concerning the following question:

my code is

#!/usr/bin/perl -w # Noida sendmail.pl # -------------------------------------------------------------------- +-- # # File: sendmail.pl # # Autor: Ansuman Manna / 14.12.2012 # # Purpose: Email attachments in Perl # # Location: /var/lib/asterisk/agi-bin # # Certified: Perl 5.6.1, MIME-Lite-2.117 on Cygwin / Windows 2000 # -------------------------------------------------------------------- +-- use MIME::Lite; use Net::SMTP; ### Adjust sender, recipient and your SMTP mailhost my $from_address = 'ansuman@cloudinfotech.co.in'; my $to_address = 'keshav@cloudinfotech.co.in'; my $mail_host = 'mail.cloudinfotech.co.in'; ### Adjust subject and body message my $subject = 'A message with attachment ...'; my $message_body = "Here's the attachment file(s) you wanted"; ### Adjust the filenames my $my_file_wav = '/usr/src/Propmpts'; my $your_file_wav = 'Koi.mp3'; #my $my_file_zip = 'my_file.zip'; #my $your_file_zip = 'your_file.zip'; ### Create the multipart container $msg = MIME::Lite->new ( From => $from_address, To => $to_address, Subject => $subject, Type =>'multipart/mixed' ) or die "Error creating multipart container: $!\n"; ### Add the text message part $msg->attach ( Type => 'TEXT', Data => $message_body ) or die "Error adding the text message part: $!\n"; ### Add the GIF file $msg->attach ( Type => 'sound/wav', Path => $my_file_wav, Filename => $your_file_wav, Disposition => 'attachment' ) or die "Error adding $file_gif: $!\n"; ### Add the ZIP file #$msg->attach ( # Type => 'application/zip', # Path => $my_file_zip, # Filename => $your_file_zip, # Disposition => 'attachment' #) or die "Error adding $file_zip: $!\n"; ### Send the Message MIME::Lite->send('smtp', $mail_host, Timeout=>60); $msg->send;

i am attaching the mp3 file of 12 kb..but it only sending 72b of the file..kindly help me out....

Comment on problem with mime::lite
Download Code
Re: problem with mime::lite
by bimleshsharma (Beadle) on Dec 17, 2012 at 10:31 UTC

    Could you please post your question in proper format.That would be easy to any one understand your problem.

    Thanks.
Re: problem with mime::lite
by AnomalousMonk (Abbot) on Dec 17, 2012 at 16:47 UTC
      i want to send wav format sound file.how to do this in mime ::lite
Re: problem with mime::lite
by karlgoethebier (Curate) on Dec 17, 2012 at 19:02 UTC

    BTW: gif != wav

    ### Add the GIF file $msg->attach ( Type => 'sound/wav', Path => $my_file_wav, Filename => $your_file_wav, Disposition => 'attachment' ) or die "Error adding $file_gif: $!\n";

    Regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

Re: problem with mime::lite
by zentara (Archbishop) on Dec 17, 2012 at 22:07 UTC
    Check your /var/log/maillog for a message regarding your mail. And try adding Debug reporting to your script.
    MIME::Lite->send('smtp','some.host',Debug=>1);

    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2014-09-21 16:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (172 votes), past polls