Perl-Script geht nicht, ein anderes. 2.Teil (zwei in eins) von Thomas N, 24.07.2002 23:55

Perl-Script geht nicht, ein anderes. 2.Teil (zwei in eins)

Thomas N 24.07.2002 23:55

Hallo,

mein Problem ist, die Ausgabe der Formular-Eingabe-Daten als HTML, die ich inzwischen erfolgreich per sendmail verschicke.

DAU-Überlegung, war einfach folgendes Feld: <input type="hidden" name="return" value="http://www.ihreadresse.de/danke.html"> dafür zweckzuentfremden. Also "danke.pl" anstatt "danke.html". http://aktuell.de.selfhtml.org/artikel/cgiperl/form-mail/index.htm#a3

Das geht woh leider nicht. :-)

Überlegung, alles (Ausgabe der Formular-Eingabe-Daten als HTML + Sendmail-Verschickung) in ein Script packen, und wie es sich gehört per action abschicken.

Die Daten werden zwar per Sendmail verschickt, aber meine (Ausgabe der Formular-Eingabe-Daten als HTML) funkt nicht! :-(

Hier das Formular, das das Script aufruft: http://www.ablage.com/test/cgi-to/agentm/docs/kontakt.htm

Es erscheint bei mir, wenn das Script aufgerufen werden soll:

Found The document has moved here.(http://www.ablage.com/cgi-bin/test/selfmail_extern_b.pl) Apache/1.3.12 Server at www.ablage.com Port 80

Was ist los?

Viele Grüsse Thomas N == Neu-User

########### Quelltext ####################

#!/usr/bin/perl

-------> SMTP-Programm zum Versenden der Mail: all-inkl.com = /usr/sbin/sendmail

$Sendmail_Prog = "/usr/sbin/sendmail";

-------> Modul für CGI-Scripts einbinden:

use CGI;

-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:

$query = new CGI; @names = $query->param;

########################################################################################## my $cgi = new CGI; # für daten-ausgabe als html-antwort

@Feldnamen = $cgi->param();

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

-------> interne Daten aus den erwarteten hidden-Feldern auslesen:

$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value $mailto = 'mediamerge.lb15@ablage.com'; # ---> Empfängeradresse $query->param('mailto'); $returnhtml = $query->param('return'); # ---> URL für Dankeseite $subject = $query->param('subject'); # ---> E-Mail-Subject

-------> Text der E-Mail aus den Formulardaten ermitteln:

$mailtext = ""; foreach(@names) { $name = $_; @values = ""; @values = $query->param($name); if($name ne "mailto" && $name ne "return" && $name ne "subject" && $name ne "delimiter") { foreach $value (@values) { $mailtext = $mailtext.$name; $mailtext = $mailtext.$delimiter; $mailtext = $mailtext.$value."\n"; } } }

-------> E-Mail versenden:

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n"; print MAIL "To: $mailto\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$mailtext\n"; close(MAIL);

-------> Dankeseite an Browser senden:

print "Location: $returnhtml\n\n";

########################################################################################## ################################ daten-ausgabe als html-antwort ########################## ########################################################################################## print "Content-type: text/html\n\n"; print <<'ANFANG'; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>mediamerge: Agentur für Webdesign [Kontakt] Fehler!</title> <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"> <link rel="stylesheet" type="text/css" href="../../test/cgi-to/agentm/formate.css"> </head> <body bgcolor="#A1B3D3" text="#FFFFFF">

<table border="0" cellspacing="0" cellpadding="1">  <tr> <td> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5" height="100%"> </td> <td bgcolor="#8DA0C5" height="100%"> <font size="+2">[Kontakt]</font><br><br>

<font size="-1">Telefon:<br> +49 40 000000<br> Telefax:<br> +49 40 000000<br><br> E-Mail: lb15@ablage.com<br></font>

</td> <td bgcolor="#8DA0C5" height="100%"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>

</td> </tr> <tr> <td> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5"> </td> <td bgcolor="#8DA0C5"> <font size="+1">Adressen:</font><br><br>

<b>•</b> Postanschrift:<br><font size="-1"> mediamerge<br> Postbox 750283<br> 70602 Stuttgart</font><br><br> <b>•</b> Hausanschrift:<br> <font size="-1"> mediamerge<br> Musterstraße 1<br> 70609 Stuttgart<br><br></font></td> <td bgcolor="#8DA0C5"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5" width="720"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>

</td> </tr> </table>

</td>

<td width="410" valign="top">  <table border="0" cellspacing="0" cellpadding="0" width="470"> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_O_R.gif" width="25" height="25" border="0" alt=""></td> </tr> <tr> <td bgcolor="#8DA0C5"> </td> <td bgcolor="#8DA0C5"> ANFANG

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

print <<'DANKE'; <table border="0" cellspacing="0" cellpadding="3"> <tr> <th><font size="+1">Vielen Dank!</font></th> <th><font size="+1">Ihre Daten:</font></th> </tr> <tr> <td colspan="2"> <hr noshade size="2" color="FFFFFF"></td> </tr> <tr> <td colspan="2"> </td> </tr> DANKE

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

foreach $Feld (@Feldnamen) { print "<tr><td><b>",$Feld,"</b></td>", #$cgi->b(', Inhalt: '), "<td width=250>",$cgi->param($Feld), "</td></tr>\n"; }

print "</table>\n";

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

print <<'ENDEE';

</td> <td bgcolor="#8DA0C5"> </td> </tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#8DA0C5" width="470"> </td> <td><img src="../../test/cgi-to/agentm/pics/formen/dark-hell/dark-hell_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>

</td> </tr> </table>

</td> <td bgcolor="#627BAC"> </td> </tr> <tr><td colspan="3" bgcolor="#627BAC"> </td></tr> <tr> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_U_L.gif" width="25" height="25" border="0" alt=""></td> <td bgcolor="#627BAC" width="700" align="center"><font size="-1">[<a href="../../test/cgi-to/agentm/docs/startseite.htm">Startseite</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Arbeitsfelder</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Referenzen</a>] [<a href="../../test/cgi-to/agentm/docs/preise.htm">Preise</a>] [<a href="../../test/cgi-to/agentm/docs/kontakt.htm">Kontakt</a>] [<a href="../../test/cgi-to/agentm/docs/impressum.htm">Impressum</a>] [<a href="../../test/cgi-to/agentm/docs/html-dummy.htm">Site-Info</a>]</font></td> <td><img src="../../test/cgi-to/agentm/pics/formen/627bac_3/627BAC_3_U_R.gif" width="25" height="25" border="0" alt=""></td> </tr> </table>

</div> </body> </html>

ENDEE #ende

Beitrag melden

– Informationen zu den Bewertungsregeln

SELFHTML Forum - Ergänzung zur Dokumentation Übersicht

Thomas N: Perl-Script geht nicht, ein anderes. 2.Teil (zwei in eins)

Beitrag lesen