perl and blobs

[Sokar]

Hello,

I have a perl script that needs to generate an e-mail every day. What it
does it connects to a database and reads in a stored jpg which was in a blob
field to a variable called $pic

What I need to be able to do is e-mail this variable as a jpg to a person.

Does anyone know how I can do this without actually creating a .jpg file on
the server?

Thanks and regards

 

[phaylon]

Does anyone know how I can do this without actually creating a .jpg file
on the server?

Search CPAN for MIME, the first (MIME::Tools) seems to be what you're
looking for.

 

[Brian Wakem]

Hello,

I have a perl script that needs to generate an e-mail every day. What it
does it connects to a database and reads in a stored jpg which was in a blob
field to a variable called $pic

What I need to be able to do is e-mail this variable as a jpg to a person.

Does anyone know how I can do this without actually creating a .jpg file on
the server?

Thanks and regards

use MIME::Lite;
my $msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Type =>'multipart/mixed'
);
# add text
$msg->attach(
Type =>'TEXT',
Data => 'This is text in the mail body',
);
# attach image
$msg->attach(Type => 'application/octet-stream',
Data => "$pic",
Filename =>"myfile.jpg",
);
MIME::Lite->send('smtp', 'your.mail.relay', Timeout=>60);
$msg->send;