nicht angemeldet
Hi Leute,
da noch recht unerfahren in sachen perl bin,
hoffe ich koennt mir einen Tip geben.
Habe ein Perlscript welches offline wunderbar funktioniert
wenn ich es jedoch ins netz stelle geht nichts mehr :-(
hier ein auszug und die stelle im Script die er anmeckert
syntax error at cntfunc.pm line 88, near "e"thostname($ENV{'REMOTE_ADDR'}), '|', $referer, '|', $ENV{'HTTP_USER_AGENT'}, ""
-->
sub UpdateStats {
my $referer = $CNT::ref || '';
$iplog{$ENV{'REMOTE_ADDR'}} = $time;
my $file = &Untaint("$DEF::datadir/$CNT::id.stat");
open(ST,">>$file");
flock(ST,2);
print ST $time, '|', e"thostname($ENV{'REMOTE_ADDR'}), '|', $referer, '|', $ENV{'HTTP_USER_AGENT'}, "\n";
my $size = tell(ST);
close(ST);
return $size;
} # End sub UpdateStats
wo liegt der fehler ist es e"thostname ?
------------------- Und 2. ter Fehler
syntax error at cntfunc.pm line 100, near "my $file = &Untaint(""
-->
my $file = &Untaint("$DEF::datadir/$CNT::id.reload");
liegt es vielleicht an der my anweisung?
Danke