onlyfree.de Hilfen Bei Fragen und Problemen mit den onlyfree.de Homepage Tools helfen wir dir hier gerne weiter.

Antwort
 
LinkBack Themen-Optionen Thema durchsuchen
Alt 28.09.2006, 15:40:17   #1 (permalink)
Neuling
 
Registriert seit: 28.09.2006
Beiträge: 2
Maurinio hat die Renommee-Anzeige deaktiviert

Standard Problem mit Kontaktformular !

Hallo,

erstmal wollte ich ein Lob aussprechen und zwar für die Tools die man hier erhält. So nun zu meinem Problem und zwar wenn man beim Kontaktformular die Felder ausfülle und die Mail versende, bekomme dann nur eine Mail mit folgendem Text in meinem POP Postfach an: Gesendet am: Donnerstag, 28. September 2006 um 15:36:10 Uhr ansonsten fehlen alle ausgefüllten Pflichtfelder und der Text, wie kommts?

Brauche HILFE ?

Gruss


Hier der Quellcode des Kontaktformulars, hoffe Ihr könnt mir weiterhelfen !


Quellcode:

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
require "mailsetup.pl";
&formparser;

foreach ("/usr/sbin/sendmail","/usr/lib/sendmail","/usr/bin/sendmail","/usr/share/sendmail","/var/qmail/bin/sendmail","/usr/bin/sendmail.restart","/etc/sendmail.cf","/etc/sendmail.cw","/usr/man/man8/sendmail.8","/var/qmail/bin/qmail-inject"){
if(-e $_ && -X _){
$mailprogamm = $_;
last;
}
}
################################################## #
# alle Formfelder
$Name = &maildatensaver($FORM{'Name'});
$Vorname = &maildatensaver($FORM{'Vorname'});
$StraeundNr = &maildatensaver($FORM{'StraeundNr'});
$Postleitzahl = &maildatensaver($FORM{'Postleitzahl'});
$Ort = &maildatensaver($FORM{'Ort'});
$Land = &maildatensaver($FORM{'Land'});
$Telefonnummer = &maildatensaver($FORM{'Telefonnummer'});
$Email = &maildatensaver($FORM{'Email'});
$Anfrage = &maildatensaver($FORM{'Anfrage'});

################################################## #

# Fehlerbehandlung Anfang
$fehlermeldung = "" ;
$fehler_gefunden = "" ;

#--------CHECK fuer: Name-----------------------------
$errormeldung = "[*]Das Feld \"Name\" darf nur Buchstaben von A-Z und a-z beinhalten.\n" ;
if ($Name =~ /[^a-zA-Z]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Vorname-----------------------------
$errormeldung = "[*]Das Feld \"Vorname\" darf nur Buchstaben von A-Z und a-z beinhalten.\n" ;
if ($Vorname =~ /[^a-zA-Z]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Straße und Nr.-----------------------------
$errormeldung = "[*]Das Feld \"Straße und Nr.\" wurde nicht oder nicht mit korrekten Daten ausgefüllt.\n" ;
if ($StraeundNr eq '') {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Postleitzahl-----------------------------
$errormeldung = "[*]Das Feld \"Postleitzahl\" darf nur Zahlen von 0 - 9 beinhalten.\n" ;
if ($Postleitzahl =~ /[^0-9]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Ort-----------------------------
$errormeldung = "[*]Das Feld \"Ort\" darf nur Buchstaben von A-Z und a-z beinhalten.\n" ;
if ($Ort =~ /[^a-zA-Z]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Land-----------------------------
$errormeldung = "[*]Das Feld \"Land\" darf nur Buchstaben von A-Z und a-z beinhalten.\n" ;
if ($Land =~ /[^a-zA-Z]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Telefon-----------------------------
$errormeldung = "[*]Das Feld \"Telefon\" darf nur Zahlen von 0 - 9 beinhalten.\n" ;
if ($Telefonnummer =~ /[^0-9]/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------
#--------CHECK fuer: Ihre Anfrage-----------------------------
$errormeldung = "[*]Das Feld \"Ihre Anfrage\" wurde nicht oder nicht mit korrekten Daten ausgefüllt.\n" ;
if ($Anfrage eq '') {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

#-------------------------------------


if ($fehler_gefunden) {
&fehlerausgabe;
exit;
}
# Fehlerbehandlung Ende
################################################## #
&floodcheck;
&datumsroutine;
&mailsenden;
&bestaetigung;
sub mailsenden {

# Mail senden
my $mailbodykontakt = <<MBT;

MBT

if (!$email) {
$email = $empfaengermail;
}

if (!$betreff) {
$betreff = "Mail von Ihrem Feedbackformular";
}

open (MAIL, "|$mailprogamm -t") || die $!;
print MAIL "To: $empfaengermail ($empfaenger)\n";
print MAIL "From: $email \n";
print MAIL "Subject: $betreff\n\n";
print MAIL $mailbodykontakt;
print MAIL "\n\n";
print MAIL "Gesendet am: $datumlang\n";
close(MAIL);
}


################################################## #
sub bestaetigung {
print "Content-type: text/html\n\n";

$meta = qq~<meta http-equiv="refresh" content="$forwardtime; URL=$forwardurl">~;
$titeltext = "Nachricht erfolgreich versendet";
$statustext = qq~Vielen Dank f&uuml;r Ihre Nachricht.


Sie werden in $forwardtime Sekunden zur Hauptseite weitergeleitet.
Sollte dies nicht funktionieren klicken Sie bitte untenstehen Link.



<div align="center">Zurück zur Hauptseite</div>



~;
print &tparser("header.html");
print &tparser("mailstatus.html");
print &tparser("footer.html");
exit;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Fehlerausgabe
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub fehlerausgabe {
print "Content-type: text/html\n\n";

$meta = '';
$titeltext = "Fehler festgestellt!";
$statustext = qq~Beim ausfüllen haben Sie folgendes vergessen:
  1. $fehlermeldung



<div align="center">Bitte gehen Sie « zurück</div>
~;
print &tparser("header.html");
print &tparser("mailstatus.html");
print &tparser("footer.html");
exit;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Formdatenparser
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub formparser {
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;
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Templateroutine
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub tparser {
my $templatedatei = shift;
my $OUTPUT;
local($/);

open (FILE, "<$templatedatei") or die "Kann Template $templatedatei nicht oeffnen $!\n";
$OUTPUT = <FILE>;
close(FILE);
# Skalarwerte ersetzen
$OUTPUT =~ s/<__\$([\w\-]+)__>/${$1}/g;
# Hashwerte ersetzen
$OUTPUT =~ s/<__\%([\w\-]+)\{([\w\-]+)\}__>/${$1}{$2}/g;
# Arraywerte ersetzen
$OUTPUT =~ s/<__\$([\w\-]+)\[([\w\-]+)\]__>/${$1}[$2]/g;
# Werte ersetzen in der Form $lang{user}
$OUTPUT =~ s/<__\$([\w\-]+)\{([\w\-]+)\}__>/${$1}{$2}/g;
# Werte ersetzen in der Form $input{'action'} oder $lang{'hallo du'}
$OUTPUT =~ s/<__\$([\w\-]+)\{'([\w\- ]+)\'}__>/${$1}{$2}/g;
return $OUTPUT;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Datumsroutine
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub datumsroutine {

@tagekurz = ('So','Mo','Di','Mi','Do','Fr','Sa');
@monatekurz = ('Jan.','Feb.','März','Apr.','Mai.','Jun.','Jul.', 'Aug.','Sept.','Okt.','Nov.','Dez.');
@tage = ('Sonntag','Montag','Dienstag','Mittwoch','Donners tag','Freitag','Samstag');
@monate = ('Januar','Februar','März','April','Mai','Juni','J uli','August','September','Oktober','November','De zember');
($sec, $min, $stunde, $mtag, $mon, $jahr, $tag, $nr_tag, $isdst) = localtime(time);
$monat = $mon+1;
if($monat < 10) { $monat = "0$monat"; }
if($stunde < 10) { $stunde = "0$stunde"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$jahr = 1900 + $jahr;

# Ausgabe z.B. Sonntag, 14. Juli , 2002 um 17:39:43 Uhr
$datumlang = " $tage[$tag], $mtag. $monate[$mon] $jahr um $stunde:$min:$sec Uhr";
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Floodsperre
# - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub floodcheck {
$wartezeit = "1.0";
$sperrlistenlaenge = 15;
my $IP_Nummer = $ENV{'REMOTE_ADDR'};
my $aktionszeit = time();

open(ZEITLIMIT, "floodsperre.dat");
@letzte_eintraege = <ZEITLIMIT>;
close(ZEITLIMIT);
foreach (@letzte_eintraege) {
if (/^$IP_Nummer/){
($junk,$letzte_aktionszeit) = split(/\|!\|/,$_);
chomp($letzte_aktionszeit);
last;
}
} # ende foreach
$wartezeit *= $noflood; # zeit in sek bis neu gepostet werden darf
$floodfehler = 0;
if ( int(($aktionszeit - $letzte_aktionszeit) < $wartezeit)){

$floodfehler = 1;

# Fehlerpruefung
$fehlermeldung = "" ;
$fehler_gefunden = "" ;
# -----------------------------------------------------------------------
$errormeldung = "[*]Sie müssen $wartezeit Sekunden warten bis Sie wieder eine E-Mail absenden k&ouml;nnen.\n" ;
if ($floodfehler) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
# -----------------------------------------------------------------------
if ($fehler_gefunden) {
&fehlerausgabe;}
exit;
}
else {
if (unshift(@letzte_eintraege, "$IP_Nummer|!|$aktionszeit\n") > $sperrlistenlaenge){
$#letzte_eintraege = $sperrlistenlaenge;
}

open(ZEITLIMIT, ">floodsperre.dat");
print ZEITLIMIT @letzte_eintraege;
close(ZEITLIMIT);
}
return 1;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Maildaten vorbereiten
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub maildatensaver {
$_[0] =~ s/^\s+//;
$_[0] =~ s/\s+$//;
$_[0] =~ s/`//g;
$_[0] =~ s/\r//g;
$_[0] =~ s/\|//g;
$_[0] =~ s/\n/\n/ig;
return($_[0]);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
Maurinio ist offline   Mit Zitat antworten

Alt 28.09.2006, 16:17:00   #2 (permalink)
OnlyFree Supporter
Schreibtalent
 
Registriert seit: 19.09.2005
Geschlecht: maennlich
Beiträge: 260
dwsto ist noch Schüchtern

Standard

Unterstützt dein Webspace auch Perl?
__________________
Erörterung Tipps und Tricks zu Deutsch Erörterungen.
dwsto ist offline   Mit Zitat antworten

Alt 28.09.2006, 16:23:51   #3 (permalink)
Neuling
 
Registriert seit: 28.09.2006
Beiträge: 2
Maurinio hat die Renommee-Anzeige deaktiviert

Standard

Ja mein Webspace unterstützt Perl, es läuft auch alles, bis auf das ich eine fast leere Mail immer kriege obwohl alle Felder ausgefüllt sind.
Maurinio ist offline   Mit Zitat antworten

Alt 28.09.2006, 17:22:43   #4 (permalink)
Online Junkie
 
Registriert seit: 04.07.2006
Beiträge: 1.027
Griesstätt ist noch Schüchtern

Griesstätt eine Nachricht über ICQ schicken
Standard

Benutze die Enter-Taste hier im Forum, da sonst deine Post zu sehr nach rechts gehen.
__________________
www.BERGFORUM.com <<-- Die Community für Bergsteiger, Kletterer und Wanderer

Kein Support via PN | ICQ | MSN
Griesstätt ist offline   Mit Zitat antworten

Alt 18.10.2007, 14:29:00   #5 (permalink)
Neuling
 
Registriert seit: 18.10.2007
Beiträge: 2
silvstar hat die Renommee-Anzeige deaktiviert

Standard AW: Problem mit Kontaktformular !

gab es dazu eine lösung? habe das selbe problem! es funktioniert soweit alles! ich habe als test das formular selber ausgefällt und die weiterleitung erfolge so wie ich es wollte und die mail hab ich auch bekommen! außer des datum des eintrags war die mail aber leer!!! was kann ich machen?
silvstar ist offline   Mit Zitat antworten

Alt 20.10.2007, 22:45:33   #6 (permalink)
Nix-Poster
 
Registriert seit: 10.02.2007
Ort: Frankfurt am Main
Geschlecht: maennlich
Beiträge: 0
m-h-pyro befindet sich auf einem aufstrebenden Ast

Standard AW: Problem mit Kontaktformular !

Problem ist bereits bekannt.
Schau mal hier:
http://www.2page.de/forum/showthread.php?t=16010
m-h-pyro ist offline   Mit Zitat antworten

Alt 21.10.2007, 12:21:43   #7 (permalink)
Neuling
 
Registriert seit: 18.10.2007
Beiträge: 2
silvstar hat die Renommee-Anzeige deaktiviert

Standard AW: Problem mit Kontaktformular !

ja den thread hatte ich bereits gelesen! und?! soll ich daraus schlau werden? ich erkenne da keine lösung für mein problem! ich will nur, dass die mail nicht leer ankommt!
silvstar ist offline   Mit Zitat antworten

Alt 21.10.2007, 19:36:40   #8 (permalink)
Nix-Poster
 
Registriert seit: 10.02.2007
Ort: Frankfurt am Main
Geschlecht: maennlich
Beiträge: 0
m-h-pyro befindet sich auf einem aufstrebenden Ast

Standard AW: Problem mit Kontaktformular !

Zitat:
Zitat von silvstar Beitrag anzeigen
ich erkenne da keine lösung für mein problem!

Dann schau genauer hin!
Es wäre zu aufwendig dieses Kontaktformular zu reparieren.
m-h-pyro ist offline   Mit Zitat antworten

Antwort

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche

Forumregeln
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are aus
Pingbacks are aus
Refbacks are an

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Problem mit Kontaktformular NinaK onlyfree.de Hilfen 3 17.05.2007 12:38:54


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08:03 Uhr.


Powered by vBulletin® Version 3.7.4 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0
Daniel Minini NewYouth GmbH

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