Cheatah: Abfragen einfügen

Beitrag lesen

Hi,

  1. eine sicherheit, dass user eine "gültige" emailadresse eingeben.

perldoc perlfaq9
"How do I check a valid mail address?
You can't, at least, not in real time. Bummer, eh? [...]"
(plus Hinweise auf mögliche Prüfungen)

  1. eine sicherheit, dass user keine daten eingeben können, welche mir schaden können (z.b. eingaben wie - []><, usw.).

Definiere nicht, was Dir schaden kann, sondern vielmehr, was Dir _nicht_ schaden kann. Prüfe im Script, ob etwas anderes vorliegt.

mit welchen angaben kann ich dies bewerkstelligen bzw. wo sind diese angaben einzufügen?

perldoc perlre
perldoc perlop (tr///)

sowie diverse Stringfunktionen.

#!/usr/bin/perl

#!/usr/bin/perl -w
use strict;

Anschließend korrigiere die Fehler, die Dir genannt werden. Siehe auch

perldoc -f my

print "Content-type: text/html\n\n";

perldoc CGI

Eingaben lesen

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

NEIN. perldoc CGI

$email = "email1@web.de";

Wenn Du Singlequotes dort verwendest, wo für Doublequotes keine Notwendigkeit besteht, sparst Du nicht nur Rechenzeit, sondern auch den Backslash vor dem '@'.

open(MAIL,"|/usr/sbin/sendmail -t") || die "Error! Can't open SendMail!";     # Entsprechend anpassen: "/usr/sbin/sendmail"

perldoc Net::SMTP, ggf. von http://www.cpan.org/ installieren (libnet-Bibliothek)

Cheatah