Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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
Replies are listed 'Best First'.
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 karlgoethebier (Vicar) 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
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

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 about the Monastery: (14)
As of 2015-07-29 12:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (263 votes), past polls