Unbenannt

Parse error: parse error, unexpected '=' in /is/htdocs/14298/www.info-w2k.de/2send.php on line 12 datei 2send.php 1 3 4 5 6 7 8 16 17 18 19 20 21 22 25 26 27


	E-Mail:
	Briefkopf
	Anrede:
	Wer:
	Nachricht:	23 <?php echo$comment ?> 24

28 29 30 ohne fehler meldung aber dafür , im Bezug auf Ihr schreiben ......................................... ist das der inhalt datei 1send.php 1 3 4 5 6 7 8 13 14 15 16 17 18 19 26 27 28


	E-Mail:
	Briefkopf
	Anrede:
	Wer:
	Nachricht:	20 <?php echo($was) ?> 21 22 <?php echo($an) ?> <?php echo($wer) ?>, 23 24 im Bezug auf Ihr schreiben ......................................... 25

29 30 31 so klappt es auf jedenfall mail.html Unbenannt #!/usr/bin/perl ############################################################ # MODIFIKATION WIE IN DER LIESMICH.TXT BESCHRIEBEN ############################################################ $formmail = "http://www.it-bewerb.de/cgi-bin/mail.cgi"; @refer = ('it-bewerb.de'); $mailprog = "/usr/sbin/sendmail"; $database = ""; ############################################################ # AB HIER KEINE ÄNDERUNGEN MEHR VORNEHMEN! ############################################################ if ($ENV{'QUERY_STRING'}=~ /^htmltag$/i){&Tag;} read (STDIN, $input, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $input); foreach $pair (@pairs) { ($variable, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/<([^>]|\n)*>//g; $value =~ s/\//g; $value =~ s/\|//g; $value =~ s/\*/\\\*/g; $value =~ s/\?/\\\?/g; $value =~ s/\+/\\\+/g; $FORM{$variable} = $value; if ($variable ne "recipient" && $variable ne "redirect" && $variable ne "subject" && $variable ne "required" && $variable ne "title") { push (@form,$variable); } } if ($ENV{'QUERY_STRING'}=~ /^tagedit$/i){&HTML;} @months = ('Januar','Februar','März','April','Mai','Juni','July','August','September','Oktober','November','Dezember'); @days = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mday < 10) { $mday = "0$mday"; } if ($year >= 100 && $year <= 1000 ) { $year = 2 . $year; $year -= 100; } $date = "am $days[$wday], $mday $months[$mon] $year um $hour:$min:$sec"; local($check_referer) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $refer (@refer) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$refer|i) { $check_refer = 1; last; } } } if ($check_refer != 1) { print "Content-type: text/html\n\n"; print "Zugriff Nicht Erlaubt!"; print "

"; print "Zugriff Nicht Erlaubt!

[zurück]"; print "

[Formmail von info-w2k]<\/em><\/font>"; exit; } if ($FORM{'email'} eq "" || $FORM{'email'} !~ /^[\w\d][\w\d\,\.\-]*\@([\w\d\-]+\.)+([a-zA-Z]{3}|[a-zA-Z]{2})$/) { print "Content-type: text/html\n\n"; print "Sie haben eine ungültige Email Adresse angegeben!\n"; print "
\n"; print "Sie haben eine ungültige Email Adresse angegeben!

\n"; print "Versuchen Sie es nocheinmal.

[zurück]"; print "

[Formmail von info-w2k]<\/em><\/font><\/center>"; exit; } if ($FORM{'required'} ne "") { @required = split (/\,/,$FORM{'required'}); foreach $variable (@required) { if ($FORM{$variable} eq "") { print "Content-type: text/html\n\n"; print "Verzeihung\, diese Felder sind Pflichtangaben"; print "

"; print "Verzeihung, diese Felder sind Pflichtangaben\:<\/center>

"; foreach $variable (@required) { if ($variable eq "email") { print "Email
\n"; } else { print "$variable
\n"; } } print "<\/blockquote>
Versuchen Sie es nocheinmal.

[zurück]"; print "

[Formmail von info-w2k]<\/em><\/font><\/center>"; exit; } } } &Email; if ($database ne "") { open (DATABASE,">>$database"); print DATABASE "$date|"; foreach $variable (@form) { print DATABASE "$FORM{$variable}|"; } print DATABASE "\n"; close(DATABASE); } if ($FORM{'redirect'} ne "" && $FORM{'redirect'} =~ /^http\:\/\//i) { print "Pragma: no-cache\n"; print "Location: $FORM{'redirect'}\n\n"; } else { print "Content-type: text/html\n\n"; print "Vielen Dank für Ihre Nachricht"; print "

"; if ($FORM{'title'} ne "") { print "$FORM{'title'}
"; } else { print "Vielen Dank für Ihre Nachricht<\/font>
"; } print "

\n"; print "Diese Daten wurden uns mitgeteilt:

"; foreach $variable (@form) { if ($variable eq "email") { print "Email = $FORM{$variable}
\n"; } else { print "$variable = $FORM{$variable}
\n"; } } print "

[back]"; print "

[Formmail von info-w2k]<\/em><\/font><\/center>"; exit; } sub Tag { print "Content-type: text/html\n\n"; print "Requested info processed"; print "

"; print "Der HTML Tag Für info-w2k Formmail\!<\/center>

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
mehrere Einträge mit Kommas trennen!

Sender Email Adresse: email \(ist bereits ein Pflicht Feld)
weitere Formular Felder:
davon Pflicht Felder:
Ihre Email Address:
Email Betreff Zeile:
Titel Bestätigungs Seite:
anstelle Bestätigungs Seite, Redirect:

\n"; print "
<\/center>\n\n"; print "
<\/form>\n"; print "

[Formmail von info-w2k]<\/em><\/font><\/center>"; exit; } sub Email { open(MAIL,"|$mailprog -t"); print MAIL "To: $FORM{'recipient'}\n"; print MAIL "From: $FORM{'email'}\n"; print MAIL "Subject: $FORM{'subject'}\n\n"; print MAIL " \n"; print MAIL "$FORM{'was'}\n"; print MAIL " \n"; print MAIL "$FORM{'an'} $FORM{'wer'},\n"; print MAIL " \n"; print MAIL "im Bezug auf Ihr schreiben .........................................\n"; print MAIL " \n"; print MAIL " \n\n\n"; print MAIL " \n"; close (MAIL); } sub HTML { @tag_fields = split(/\,/,$FORM{tag_fields}); print "Content-type: text/html\n\n"; print "Ihr HTML Tag für info-w2k Formmail\!"; print "

"; print "Ihr HTML Tag für info-w2k Formmail\!<\/font><\/center>

"; print "\<\;form method=\"POST\" action\=\"$formmail\"\>\; \n"; print "\<\;input type=\"hidden\" name\=\"recipient\" value\=\"$FORM{tag_email}\"\>\; \n"; print "\<\;input type=\"hidden\" name\=\"subject\" value\=\"$FORM{tag_subject}\"\>\; \n"; if ($FORM{tag_title} ne "") { print "\<\;input type=\"hidden\" name\=\"title\" value\=\"$FORM{tag_title}\"\>\; \n"; } else { print "\<\;input type=\"hidden\" name\=\"redirect\" value\=\"$FORM{tag_redirect}\"\>\; \n"; } if ($FORM{tag_required} ne "") { print "\<\;input type=\"hidden\" name\=\"required\" value\=\"$FORM{tag_required}\"\>\; \n"; } print "\<\;input type=\"text\" size=\"55\" name\=\"email\"\>\; Email\<\;br\>\; \n"; foreach (@tag_fields) { if ($_ ne "email" && $_ ne "Email") { print "\<\;input type=\"text\" size=\"55\" name\=\"$_\"\>\; $_\<\;br\>\; \n"; } } print "\<\;br\>\;\<\;input type=\"submit\" value=\"Senden\"\>\;\<\;\/form\>\;<\/tt> \n\n"; print " [Formmail von info-w2k]<\/em><\/font>"; exit; }


	mehrere Einträge mit Kommas trennen!

Sender Email Adresse:	email \(ist bereits ein Pflicht Feld)
weitere Formular Felder:
davon Pflicht Felder:
Ihre Email Address:
Email Betreff Zeile:
Titel Bestätigungs Seite:
anstelle Bestätigungs Seite, Redirect: