Hi,
- 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)
- 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