Heiteres Sourcecoderaten.

[Chris]

Hi Andreas,

sorry hatte ich vergessen :)

Code:

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

Content-Header

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

Eingaben lesen

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
     @pairs = split(/&/, $input);
     foreach $pair (@pairs) {
            ($name, $value) = split(/=/, $pair);
            $name =~ tr/+/ /;
            $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            $value =~ tr/+/ /;
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
     }

@vars = split(/&/, $ENV{QUERY_STRING});
     foreach $var (@vars) {
            ($v,$i) = split(/=/, $var);
            $v =~ tr/+/ /;
            $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            $i =~ tr/+/ /;
            $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            $i =~ s/<!--(.|\n)*-->//g;

$INFO{$v} = $i;
     }

if($INFO{'action'} ne "") {
   $action = $INFO{'action'};
   }
else {
      $action = $FORM{'action'};
      }

Eingaben verwerten

if($FORM{'anrede'} eq "Herr") { $anrede = "Herr"; }
if($FORM{'anrede'} eq "Frau") { $anrede = "Frau"; }
if($FORM{'anrede'} eq "Firma") { $anrede = "Frau"; }

$name = $FORM{'name'};
$vorname = $FORM{'vorname'};
$strasse = $FORM{'strasse'};
$hausnummer = $FORM{'hausnummer'};
$plz = $FORM{'plz'};
$wohnort = $FORM{'wohnort'};
$nachricht = $FORM{'text'};

if($FORM{'1'} eq "on") { $interesse = "Erstberatung"; }
if($FORM{'2'} eq "on") { $interesse = "Konzeptentwicklung"; }
if($FORM{'3'} eq "on") { $interesse = "Angebot"; }
if($FORM{'4'} eq "on") { $interesse = "Bannergestaltung"; }

if($FORM{'5'} eq "on") { $bewertung = "Sehr gut"; }
if($FORM{'6'} eq "on") { $bewertung = "Gut"; }
if($FORM{'7'} eq "on") { $bewertung = "Befriedigend"; }

E-Mail Programm starten

&send_mail;

E-Mail Programm

sub send_mail {

$from = $FORM{'emailadresse'};
$email = "[e-mail]";
$subject = "Kontaktformular";

open(MAIL,"|/usr/sbin/sendmail -t") || die "Error! Can't open SendMail!";     # Entsprechend anpassen: "/usr/sbin/sendmail"
print MAIL "From:$from\n";
print MAIL "To:$email\n";
print MAIL "Subject:$subject\n\n";

print MAIL <<prmail;

Absender: $from

Eingegebene Daten:

Anrede: $anrede
Name: $name
Vorname: $vorname
Strasse: $strasse
Hausnummer: $hausnummer
PLZ: $plz
Wohnort: $wohnort
Nachricht:
-----------------------------------------------
$nachricht
-----------------------------------------------
Interesse: $interesse
Bewertung: $bewertung

prmail
close (MAIL);

&danke;

}

Gibt Dankseite aus. Erstellung der Seite erfolgt in der Datei "danke.html".

sub danke {

open(DATA, "../danke.html") || die "Fehlermeldung: $!";             # Pfad zu "danke.html"
                foreach (<DATA>) {
                          $dank_seite .= $_;
                }
        close(DATA);

print $dank_seite;

exit;

}

Gruss Chris