Du bist nicht angemeldet.
![]() |
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
#!/usr/bin/perl -w use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; print $cgi->header(-type =>'text/html', -expires =>'+1h'), $cgi->start_html(-title =>'Formularverarbeitung', -author =>'e-mail adresse', -base =>'true', -target =>'_blank', -BGCOLOR=>'#FFFFCC', -TEXT =>'#000000', -LINK =>'red', -VLINK =>'blue', -ALINK =>'black'), $cgi->end_html(); |
![]() |
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
<p style="width: 489px;"><span style="font-weight: bold;" class="style4"> Kontaktformular</span><br> </p> <span style="font-weight: bold;"><br> </span> <form action=""> <table border="0" cellpadding="3" cellspacing="0"> <tbody> <tr> <td style="color: rgb(192, 192, 192); font-weight: normal;" align="right">Name:</td> <td><input name="Vorname" class="Feld" size="30" maxlength="30" type="text"></td> </tr> <tr> <td style="color: rgb(192, 192, 192); font-weight: normal;" align="right">eMail:</td> <td><input name="eMail" class="Feld" size="30" maxlength="30" type="text"></td> </tr> <tr> <td style="color: rgb(192, 192, 192); font-weight: normal;" align="right">Website:</td> <td><input name="Website" class="Feld" size="30" maxlength="30" type="text"></td> </tr> <tr> <td style="color: rgb(192, 192, 192); font-weight: normal;" align="right" valign="top">Mitteilung:</td> <td><textarea name="Text" class="Bereich" rows="10" cols="50"></textarea></td> </tr> <tr> <td style="color: rgb(192, 192, 192); font-weight: normal;" align="right">Formular:</td> <td> <input class="Button" value="Absenden" type="submit"><input class="Button" value="Abbrechen" type="reset"></td> </tr> </tbody> </table> </form> |
giantnine
Junior Member
![]() |
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
my $sendmail = "/usr/lib/sendmail -t"; my $subject = "Betreff"; my $content = "Text"; my $send_to = "mail\@domain.de"; my $from = "from\@domain.de"; open(MAIL, "|$sendmail") or die "Cannot open $sendmail: $!"; print MAIL "To: $send_to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$content\n"; close(MAIL); |
![]() |
Quellcode |
1 |
<form action="script.cgi" method="post"> |
![]() |
Quellcode |
1 2 3 4 5 6 7 |
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'}); my @Formularfelder = split(/&/, $Daten); my %Formular; foreach $Feld (@Formularfelder) { (my $Name, my $Wert) = split(/=/, $Feld); $Formular{$Name} = $Wert; } |
![]() |
Quellcode |
1 |
$Formular{Vorname} |
Jeder Browser stellt es anders da![]()
Zitat
<?php // wenn das Formular übermittelt wurde
if(isset($_POST['abschicken'])){
while(list($feld,$wert)=each($HTTP_POST_VARS)){
// übermittelte Inhalte "entschärfen"
$wert=preg_replace("/(content-typebcc
cc
to
from
/im", "",$wert);
$$feld=$wert;
// die übermittelten Variablen werden zum "Text der Email" zusammengefasst
if($feld!="abschicken"){
$mailnachricht.=ucfirst($feld).": $wert\n";
}
}
$mailnachricht.="\nDatum/Zeit: ". date("d.m.Y H:i:s");
// Überprüfen ob alle Pflichtfelder gefüllt sind
empty($nachname) ? $err[] = "<p>- Bitte den Nachnamen angeben.</p>" : false;
empty($vorname) ? $err[] = "<p>- Bitte den Vornamen angeben.</p>" : false; empty($email) ? $err[] = "<p>- Bitte die Email-Adresse angeben.</p>" : false; empty($text) ? $err[] = "<p>- Welchen Wunsch haben Sie? Bitte den Text eingeben.</p>" : false; // wenn nicht, werden die Fehlermeldungen ausgegeben und das "halbgefüllte" Formular angezeigt
if(!empty($err)) {
echo "<p>Bitte korrigieren Sie folgende Fehler:</p>";
foreach($err as $fehler){
echo $fehler;
} ?>
giantnine
Junior Member
giantnine
Junior Member
Das würde ich aus der Schilderung heraus auch mal vermuten. Guck mal in deinen Vertrag, was genau du abgeschlossen hast. Es gibt auch Hoster, die Programmcode-Ausführung nur erlauben, wenn die Code-Dateien in speziellen Ordnern liegen.Dein Webspace hat scheinbar keine PHP-Unterstützung.
Zitat
Mit welcher Technik sind Ihre Server ausgestattet?
Unsere Server sind Dual Pentium III 500 -Systeme mit Linux-Betriebssystem und Apache-Server. Alle Rechner besitzen zum Schutz Ihrer Daten RAID5-Systeme.
giantnine
Junior Member
![]() |
Quellcode |
1 |
body, table, tr, td, li, a {color:#5B8FBE;font-family:Arial,Helvetica,sans-serif;font-size:12px;} |
-