syntax error in perl modul

[Christian Kruse]

Hallo Chris,

sub UpdateStats {
  my $referer = $CNT::ref || '';
  $iplog{$ENV{'REMOTE_ADDR'}} = $time;
  my $file = &Untaint("$DEF::datadir/$CNT::id.stat");

mach hierraus zur Vorsicht mal

my $file = Untaint($DEF::datadir.'/'.$CNT::id.'.stat');

(das &-Zeichen fuer Prozeduren ist eine veraltete
Schreibweise, die man besser nicht mehr benutzen sollte)

open(ST,">>$file");

Hier fehlt ne Fehlerabfrage:

open ST,'>>'.$file or die $!;

flock(ST,2);
  print ST $time, '|', e"thostname($ENV{'REMOTE_ADDR'}),

Was ist das denn?

liegt es vielleicht an der my anweisung?

Noe.

Gruesse,
 CK