#!/usr/bin/perl #eMailFormular.pl $Zaehler = 0; if($ENV{'REQUEST_METHOD'} eq 'GET') { $Daten = $ENV{'QUERY_STRING'}; } else { read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'}); } @Formularfelder = split(/&/, $Daten); foreach $Feld (@Formularfelder) { ($Name, $Wert) = split(/=/, $Feld); $Wert =~ tr/+/ /; $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $Wert =~ s///g; $Wert =~ s/\;/\,/g; $Wert =~ s/\n/\ /g; $Formular{$Name} = $Wert; } $JetztWert = time(); $JetztZeit = localtime($JetztWert); @Zeit = split(/ +/,$JetztZeit); @Uhrzeit = split(/:/,$Zeit[3]); $Mailprog = "/usr/lib/sendmail"; $MailSubject = "Nadelnachfrage_$Formular{'Vorname'}_$Formular{'Nachname'}"; $SenderVollname = "\"".$Formular{'SenderEmail'}." ".$Formular{'Nachname'}."\""; $SenderMail = $Formular{'SenderEmail'}; $SenderBrowser = $ENV{'HTTP_USER_AGENT'}; $SenderTrueMail2 = $ENV{'REMOTE_HOST'}; $SenderTrueMail = $ENV{'HTTP_FROM'}; $SenderTrueIP = $ENV{'REMOTE_ADDR'}; $Mailtext = $Formular{'Anfrage'}; $Mailtext =~ s/\n/\ /g; $Mailtext =~ s/\r/\ /g; $Mailtext =~ s/\"/\''/g; $Mailtext =~ s///g; # # # $Empfaenger = "Adresse\@Domain.de"; open(MAIL,"|$Mailprog -t") || die; print MAIL "To: $Empfaenger\n"; print MAIL "From: $SenderMail \n"; print MAIL "Subject: $MailSubject\n\n"; print MAIL "Von: $SenderVollname\n"; print MAIL "RIP: ($SenderTrueMail) $SenderTrueIP ($SenderTrueMail2)\n"; print MAIL "Vom: $Zeit[0], $Zeit[2]. $Zeit[1]. $Zeit[4] ( $Uhrzeit[0]:$Uhrzeit[1] )\n"; print MAIL "\n"; print MAIL "$Formular{'Anrede'} $Formular{'Vorname'} $Formular{'Nachname'}\n"; print MAIL "$Formular{'Strasse'}\n"; print MAIL "$Formular{'PLZ'} $Formular{'Ort'}\n"; print MAIL "$Formular{'Vorwahl'}/$Formular{'Telefon'}\n"; print MAIL "$Formular{'Rueckruf'} Uhrzeit $Formular{'Uhrzeit'}\n"; print MAIL "$Formular{'SenderEmail'}\n"; print MAIL "\n"; print MAIL "Art der Anfrage: $Formular{'Betreff'}\n"; print MAIL "DSGVO akzeptiert: $Formular{'Akzept'}\n"; print MAIL "Gegenstand: $Mailtext \n"; print MAIL "Attachement: $Formular{'uploadBild'}\n"; print MAIL "\n"; close(MAIL);