dateien versenden

[Philipp Hasenfratz]

Halihallo (und jetzt noch fertig)

use CGI;
use MIME::Entity;

my $cgi = new CGI;
my @message = $cgi->param('message');
my $to = $cgi->param('to');
my $from = '[e-mail]';
my $file = './jpeg-files/' . (pop split ///, $cgi->param('jpeg'));
my $sendmail = "/usr/sbin/sendmail -t";

$top = MIME::Entity->build(From    => $from,
                               To      => $to,
                               Subject => $subj,
                               Data    => @message);

### Attach stuff to it:
    $top->attach(Path     => $file,
                 Type     => "image/jpeg",
                 Encoding => "base64");

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $top->as_string;
close(SENDMAIL);

dann kannst du das Script so aufrufen:

http://www.you.com/cgi-bin/postcard.pl?message=hello%20world&to=[e-mail]&jpeg=a001.jpeg

und [e-mail] sollte jetzt die Karte bekommen...

Viele Grüsse

Philipp