#!C:/Program Files/Perl/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
use MIME::Lite;
print CGI::header();
my $Label;
my $TmpAdressTo;
my $TmpEmailAddressTo;
my $allow_html = 0;
my %FORM = CGI::Vars();
my $firstname = $FORM{firstname};
my $lastname = $FORM{lastname};
my $email = $FORM{email};
my $ValA = $FORM{valA};
unless( $firstname and $lastname and $FORM{valA} and $email ){
print "Blabla!
\n\nBlabla!";
stop();
}
my $filename = "exercises/".$firstname."_".$lastname."_".time().".txt";
my $htmlfile = $filename . '.html';
open my $fh_file, '>', $filename or die "$filename: $!";
open my $fh_html, '>', $htmlfile or die "$htmlfile: $!";
print $fh_html qq~~;
if( $allow_html != 1 ){
for my $key ( keys %FORM ){
$FORM{$key} =~ s/<([^>]|\n)*>//g;
}
}
while( my ($key,$value) = each %FORM ){
next if( $key eq 'Submit' );
print $fh_file $key, "=", $value, "\n";
print $fh_html"\n| $key | \n$value | \n
\n";
}
print "
\nBlablabla\n";
my $mail_server = "xxx";
my $from_address = "xxx";
my $to_address = $TmpEmailAddressto;
my $subject = $lastname." ".$firstname." xxx";
my $body = "body";
my $mimeType = "text/html";
my $message_body = "Absender: ".$lastname." ".$firstname." ".$ValA."
";
MIME::Lite->send("smtp", $mail_server);
# Create the initial text of the message
my $mime_msg = MIME::Lite->new(
From => $from_address,
To => $to_address,
Cc => $email,
Subject => $subject,
Type => $mimeType,
Data => $message_body
) or die "Error creating MIME body: $!\n";
$mime_msg->attach(
Type => "text/html",
Disposition => "attachment",
Path => $htmlfile,
Filename => $htmlfile,
);
$mime_msg->send();
sub stop{
# mach was
}