#!/usr/bin/perl -w


use CGI; 
use CGI::Carp qw(fatalsToBrowser);
use Email::Valid; 
#use CGI (':dienice');

my $query = new CGI; 
#my $subject =~ s/\s/ /g;


$Titel = $formdata{'element_2'};
$Vorname = $formdata{'element_1_1'};
$Nachname = $formdata{'element_1_2'};
$Strasse = $formdata{'element_3_1'};
$PLZ = $formdata{'element_3_5'};
$Ort = $formdata{'element_3_3'};
$Land = $formdata{'element_3_6'};
$Email = $formdata{'element_4'};
$Jahresmitgliedschaft = $formdata{'element_9_1'};
$Beruf = $formdata{'element_5'};
$Matrikelnummer = $formdata{'element_7'};
$Studienabschluss = $formdata{'element_6'};
$Doktorrat = $formdata{'element_8'};


unless (Email::Valid->address($query->param('element_4'))) 
{ print $query->header; 
	print "You supplied an invalid email address.<br> Please press the return button."; exit; } 
	
my $sendmail = "/bin/mail/sendmail"; 
my $reply_to = "Reply-to: alexander.bernegger@sbg.ac.at\n"; 
my $subject = "Subject: Bestätigung der Anmeldung zum AlumniClub\n"; 
my $content = "Danke für die Anmeldung!"; 
my $to = $query->param('element_4; alexander.bernegger@sbg.ac.at')."\n"; 
my $send_to = "alexander.bernegger@sbg.ac.at";


unless ($to) { 
	print $query->header; 
	print "Please fill in your email and try again"; } 
	
#open (FILE, ">>$file") or die "Cannot open $file: $!"; 
#print $to,"\n"; 
#close(FILE); 

my $send_to = "To: ".$query->param('send_to'); 
open(SENDMAIL, "|$sendmail -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
#or dienice "Cannot open $sendmail: $!"; 

print SENDMAIL $reply_to;
print SENDMAIL $subject; 
print SENDMAIL $send_to; 
print SENDMAIL "Content-type: text/plain\n\n"; 
print SENDMAIL $content; close(SENDMAIL); 
print $query->header; 

print "Anmeldeinformationen wurden versendet:<br>";
print " - Titel: $Titel <br>";
print " - Vorname: $Vorname<br> - Nachname: $Nachname<br>";
print " - Strasse: $Strasse <br>";
print " - Plz: $PLZ <br>";
print " - Ort: $Ort <br>";
print " - Land: $Land <br>";
print " - Email: $Email <br>";
print " - Jahresmitgliedschaft: $Jahresmitgliedschaft <br>";
print " - Beruf: $Beruf <br>";
print " - Matrikelnummer: $Matrikelnummer <br>";
print " - Studienabschluss: $Studienabschluss <br>";
print " - Doktrorrat: $Doktrorrat <br>";





#sub dienice {
#    ($errmsg) = @_;
#    print "<h2>Error</h2>\n";
#    print "$errmsg<p>\n";
#    print "</body></html>\n";
#    exit;
#}