1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

PERL: Kontaktformular Spamsicher?

Discussion in 'Programmieren' started by Stefanluna, Jun 2, 2010.

Thread Status:
Not open for further replies.
  1. Hallo,
    ich habe ein kleines Kontaktformular in PERL gemacht. Die Funktionsweise ist relativ einfach.

    Der Benutzer füllt Eingabefelder in einer HTML-Seite aus, diese Eingaben werden mir dann mittel der .pl Datei per Mail geschickt.

    Es erfolgt keine Speicherung in einer Datenbank o.ä.

    Ich hab nun immer wieder gehört, dass solche Kontaktformulare sehr oft als Spamschleudern verwendet werden. Das möchte ich natürlich vermeiden. Könnt ihr mir Tipps geben, was ich ggf. noch ändern bzw. verbessern könnte? Ist in der aktuellen Version ein Spam-Missbrauch des Formulars möglich?
    Ich hänge mal den Code in verkürzter Form an, in der Original-Version sinds noch 3-4 Eingabefelder mehr, die aber genau gleich aufgerufen werden.

    Hier mal der HTML-Teil
    Code:
    <form method="POST" action="script.pl">
    <table border="0" cellpadding="2" cellspacing="0" width="100%" >
     <tr>
    <td width="20%" valign=top>
    	Name 
    </td>
        
    <td width="80%" valign=top><input type="text" name="nachname" size="70">
    </td>
    </tr>
     
    <tr>
        <td width="20%" valign=top>
    	Vorname</td>
        <td width="80%" valign=top><input type="text" name="vorname" size="50"></td>
      </tr>
    <input type="submit" value="abschicken"></form>
    
    Und hier der .pl Teil
    Code:
    #!/usr/bin/perl
    use CGI;
    
    my $query    = new CGI;
    my $sendmail = "/usr/sbin/sendmail -t";
    
    open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
    print SENDMAIL "To: ich\@meinedomain.de\n";
    print SENDMAIL "Reply-to: ich\@meinedomain.de\n";
    print SENDMAIL "From: formular\@meinedomain.de\n";
    print SENDMAIL "Subject: Formular\n\n";
    print SENDMAIL "Nachname: ".$query->param('nachname')."\n";
    print SENDMAIL "Vorname: ".$query->param('vorname')."\n";
    
    close(SENDMAIL);
    
    print $query->header;
    print "Formular wurde verschickt.\n";
    
    
     
Thread Status:
Not open for further replies.

Share This Page