#!/usr/local/bin/perl

use MIME::Lite;
use CGI qw/:standard/;

print "Content-type: text/html\n\n";

# Verzeichnis, in dem die Datei zwischengespeichert wird
my $uploaddir = '/home/b/public_html/upload';

$CGI::POST_MAX=1024 * 1000;

my ($filename) = param('datafile') || "";

my $serverFile = $uploaddir . "/" . (split(/[\\\/]/, param('datafile')))[-1];

print ("Filename: $filename<BR><HR>\n");

if (-e $serverFile){
    print ("File $serverFile is already existing\n");
}
else {
    print ("Writing to file $serverFile<BR>\n");
    my $buffer;
    open (FILE,">$serverFile") or die $!;

    while (my $bytesread=read($filename,$buffer,1024)) {
        print FILE $buffer;
    }
    close (FILE);
}

chmod (0666, "$serverFile");

$email=param('email');
#special character conversion
$email =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

$message = MIME::Lite->new(
    From => $email,
    To => 'me@my.de',
    Subject => 'Beratung',
    Type    =>'multipart/mixed'
);

$message->attach(Type     =>'TEXT',   
                 Data     =>$email
);  

$message->attach(   Type     =>'AUTO',
                Path     =>$serverFile,
                Disposition => 'attachment'
);

$message->send(); # UNIX-sendmail

print "Ihre Daten wurden übermittelt. <BR>\n";

# delete message from server
unlink($serverFile);