Upload-Formular: file to mail

[Jan Bischoff]

Ich habe letztens verzweifelt ein Script gesucht, um Dateien per Email zu verschicken, und bei perlscripts.de bin ich fündig geworden. Zumindestens kann ich jetzt ZIP-Archive via sendmail verschicken, die ich vorher auf den Server geladen habe. Der Codeschnipsel für sendmail (perl):

open (MAILPIPE,"$sendmailpath");
[...]
open(FILE, "uuencode $filename $filename") or die;
while( <FILE>) {print MAILPIPE;};
close(FILE);
[...]
close MAILPIPE;