Script zum E-Mail Formular verschicken (gelöst) (Perl/CGI)

[thread]15340[/thread]

Script zum E-Mail Formular verschicken [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+8 replies

Gast peterpan

2010-08-03 10:52

Hallo,

ich habe folgendes Perl-Script mit der Dateiendung ".cgi" auf meinen Webserver hochgeladen und executable gemacht ("chmod u+x"). Der Pfad "/usr/local/bin/perl" ist nach Rücksprache mit dem Provider korrekt.

Code (perl): (dl )

#!/usr/local/bin/perl

# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
# --> Ziel-Mailadresse, an die gesendet werden soll:
$mailto = 'adresse@provider.de';

# -------> Modul für CGI-Scripts einbinden:
use CGI;

# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;

# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return');    # ---> URL für Dankeseite
$subject = $query->param('subject');      # ---> E-Mail-Subject

# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($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";

Bei dem folgenden HTML-Code handelt es sich um ein Formular, das durch Click auf "Senden" das oben gepostete Script (verschicken.cgi) ausführt.

Code: (dl )

<html>
    <head>
	<title>Titeltext</title>
    </head>
    <body>
	<form action="http://www.adresse.de/verschicken.cgi" method="post" name="Formular" enctype="text/plain">
	<input type="hidden" name="return" value="http://www.adresse.de/seite.html">
	<input type="hidden" name="delimiter" value=": ">
	<input type="hidden" name="subject" value="betreffwort">

	Abesender:* <input type="text" name="absender" size=15><br>
	Nachricht:* <textarea name="nachricht" rows="3" cols="25"></textarea><br>
	<p><input type="submit" value="Abschicken">
    </body>
</html>

Das Verschicken funktioniert insoweit, dass bei mir eine E-Mail mit folgendem Inhalt ankommt:

Quote
POSTDATAreturn=http://www.adresse.de/seite.html
delimiter=:
subject=betreffwort
absender=test
nachricht=testen

Nachdem der Benutzer in dem HTML-Formular auf "Senden" klickt, wird nicht etwa die URL http://www.adresse.de/seite.html aufgerufen, sondern die URL http://www.adresse.de/verschicken.cgi, wobei der Inhalt im Browser der folgende ist:

Quote
Found

The document has moved here.
Apache/2.2.9 (Debian) DAV/2 SVN/1.5.1 PHP/5.2.13 mod_ssl/2.2.9 OpenSSL/0.9.8g Server at xa123.123.provider.de Port 80

Es wäre super, wenn mir jemand einen Hinweis geben kann, wieso nach Click auf "Senden" die falsche URL aufgerufen wird, bzw. wieso der Inhalt der E-Mail nicht so strukturiert ist, wie im Perl-Script spezifiziert.

Danke!!

PS: Meine richtige URL und E-Mail-Adresse wurde mit www.adresse.de bzw. mit adresse@provider.de ersetzt.
Last edited: 2010-08-03 11:02:11 +0200 (CEST)

+3 replies
GwenDragon

2010-08-03 11:14
User since
2005-01-17
14748 Artikel
Admin1
Ersetze mal
Code (perl): (dl )

print "Location: $returnhtml\n\n";
durch
Code (perl): (dl )

print $query->redirect($returnhtml);
Vielleicht hilft das.

Hat der Benutzer vielleicht die Weiterleitung im Browser deaktiviert?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Gast peterpan
  
  2010-08-03 11:27
  
  Danke für die schnelle Antwort!
  
  Wenn ich dies ändere, kommt Error 302:
  
  Quote
  Found
  
  The server encountered an internal error or misconfiguration and was unable to complete your request.
  
  Last edited: 2010-08-03 11:28:22 +0200 (CEST)
  - GwenDragon
    
    2010-08-03 14:49
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Dann leitet der Server nicht korrekt weiter!
    Ein Senden eines Redirect sollte keinen Fehler verusachen.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+4 replies

frankes

2010-08-03 13:03

User since
2005-04-02
140 Artikel
BenutzerIn

user image

Der eigentliche Fehler befindet sich in der HTML Seite und dem Form-Tag.

Um einen enctype="text/html" handelt es sich bei Post Daten nicht.

Code: (dl )

enctype="application/x-www-form-urlencoded"

lässt CGI->param die Daten richtig auslesen.

Bischen noch am Code herumgefeilt:

Code (perl): (dl )

#!/usr/local/bin/perl

use strict;
use warnings;

# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
my $Sendmail_Prog = '/usr/lib/sendmail';
# --> Ziel-Mailadresse, an die gesendet werden soll:
my $mailto = 'email-adresse';

# -------> Modul für CGI-Scripts einbinden:
use CGI;
use CGI::Carp qw(fatalsToBrowser);

$CGI::DISABLE_UPLOADS = 0;      # no uploads
$CGI::POST_MAX=1024*50;         # max. 50k Postings


# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
my $query = CGI->new();


my @names = $query->param();


# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
my $delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
my $returnhtml = $query->param('return');    # ---> URL für Dankeseite
my $subject = $query->param('subject');      # ---> E-Mail-Subject



# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
my $subject =~ s/\s/ /g;

# -------> Text der E-Mail aus den Formulardaten ermitteln:
my $mailtext = "";

foreach my $name (@names) {
  if ( !grep{ $_ eq $name }('return','subject','delimiter') ) {
    my @values = $query->param($name);
    foreach my $value (@values) {
      $mailtext .= $name;
      $mailtext .= $delimiter;
      $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 $query->redirect('-url' => $returnhtml);

Ansonsten sieh dir auch mal die Wiki hier zum Thema CGI an.

+2 replies
Gast peterpan

2010-08-03 14:44

Vielen Dank! Durch das Ändern des Parameters enctype funktioniert mein Code jetzt einwandfrei :-)

Der von die gepostete Code gibt allerdings die folgende Fehlermeldung aus. Ist aber auch nicht so wichtig, denn der Code aus dem ersten Post in diesem Thread läuft :-)

Quote
Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, apache@provider.de and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.
Apache/2.2.14 (Unix) DAV/2 mod_ssl/2.2.14 OpenSSL/0.9.7m PHP/5.2.6 Server at www.provider.de Port 80

Last edited: 2010-08-03 14:48:33 +0200 (CEST)
- Gast peterpan
  
  2010-08-03 15:18
  
  Quatsch, der von die veränderte Code funktioniert natürlich auch! Ich hatte ihn nicht executable gehabt...
Gast Michael

2012-12-26 21:48

@ frankes
durch Deine Hilfe (endlich nach ewigem Suchen) läuft mein Script jetzt - toll!

LG
Michael
Last edited: 2012-12-26 22:20:48 +0100 (CET)

View all threads created 2010-08-03 10:52.