Hi MoD,
folgendes würde ich ergänzen bzw. anders machen:
#!/usr/bin/perl
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use HTML::Entities;
sub readin()
Hier empfiehlt sich imho die Verwendung des CGI-Moduls:
http://selfhtml.teamone.de/cgiperl/module/cgi.htm#formularverarbeitung
Weiterhin wäre hier auch möglicherweise die Verwendung von HTML::Entities denkbar:
http://www.perldoc.com/perl5.8.0/lib/HTML/Entities.html
#$Daten{Remote IP} = $ENV{'REMOTE_ADDR'};
$Daten{Domain IP} = $ENV{'REMOTE_HOST'}; -> Zeile 48 siehe erste
Diese Zeilen waren vermutlich ursprünglich nicht auskommentiert. Das Problem hier sollte sein, dass du als Namen "Remote IP" verwendest, besser wäre "Remote_IP".
Aufruf derSubtoutinen
&readin;
&send;
&thanks;
Imho wäre es hier besser, diese Aufrufe zu machen, bevor du die einzelnen Subroutinen definierst. Darüber hinaus wäre es imho besser, die Subroutinen so aufzurufen:
readin();
Viele Grüße
Torsten
Feed your ears: http://www.siechfreds-welt.de/alchemist.html