Re: Send mail with attachment using only SMTP

[Mad Ant]

Found the problems.

Replace lines :
$smtp->datasend("--frontier\n");
with
$smtp->datasend("\n--frontier\n");

Swap the 2 following lines :
$smtp->datasend("Content-Disposition: attachment; filename=\"$csvfile\"\n");
$smtp->datasend("Content-Type: application/text; name= $csvfile ");

And finally, replace
$smtp->datasend("Content-Type: application/text; name= $csvfile ");
with
$smtp->datasend("Content-Type: application/text; name=\"$csvfile\"\n");

Hope this helps anyone elso who may encounter the problem.

[Mad Ant]

@ almut : the line you mentionned appeared on 2 lines when copy/pasting, it normally appears on one line. And I formot to close the <code> tags at the end. I'll get them right next time :)

@ tachyon-II : I'm still not 100% comfortable with all the ins and outs of Perl, coming from a ASM/C/C++/Java background. So I'll have to look into the HERECDOC stuff soon. thanks for the heads-up.

[GrandFather]

You can edit your node and have it right this time. When you do you ought add: "Update: fixed code tags" to your node so later visitors are not confused by almut's reply.

[Argel]

I think I made the corrections correctly. Going to give this a try in one of my programs so I thoguht I would pass it along to anyone else who stumbles across it. Thanks for the update Mad Ant!

#!/usr/bin/perl

use strict;
use DBI;
use Net::SMTP;
use utf8;

my @addr_to_send = qw/[e-mail]/;
my $from_addr = '[e-mail]';
my $smtp_addr = 'smtp.skynet.be';
my $csvfile = "appelerr.csv";

... # gets info from a database, creates a CSV file

foreach my $to_send (@addr_to_send) {
print "Sending mail to $to_send\n";
my $smtp = Net::SMTP->new($smtp_addr);
$smtp->mail($from_addr);
$smtp->to($to_send);
$smtp->data();
$smtp->datasend("Subject: Appels S+ erronés");
$smtp->datasend("\n");
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-type: multipart/mixed;
boundary=\"frontier\"\n");
$smtp->datasend("\n--frontier\n");
$smtp->datasend("Content-type: text/plain\n");
$smtp->datasend("Explication sur cet e-mail :\n");
$smtp->datasend("Cet e-mail contient la liste des appels effectués par
+ les pensionnaires et qui ne se sont pas terminés normalement.\n");
$smtp->datasend("Il peut s'agir d'un moment où l'infirmière a pu résou
+dre les raisons de l'appel sans devoir appeler la chambre,\n");
$smtp->datasend("puis effectue un reset, ou que le pensionnaire, impat
+ient, sonne de manière répétitive,\n");
$smtp->datasend("mais cela peut également etre un temps de réponse bea
+ucoup trop long.\n\n");
if ($#badcalls < 0) {
$smtp->datasend("Aucun appel erroné n'a été détecté.\n");
} else {
for (sort @badcalls) {
print "Bad call in line : $_ : $dbtime$_ - $dbroomid$_ - $dbevent$_\n"
+;
$smtp->datasend("$dbtime$_ - numèro de local : $rooms{$dbroomid$_}\n")
+;
}

# THIS IS WHERE THE ATTACHMENT IS DONE
$smtp->datasend("--frontier\n");
$smtp->datasend("Content-Type: application/text; name=\"$csvfile\"\n")
+; 
$smtp->datasend("Content-Disposition: attachment; filename=\"$csvfile\
+"\n");
$smtp->datasend("\n");
open CSVFH, "< $csvfile";
while (<CSVFH>) { chomp; $smtp->datasend("$_\n"); }
close CSVFH;
}
$smtp->datasend("--frontier--\n");
$smtp->dataend();
$smtp->quit;
}