lösung?

[Alain]

hallo, ich wollte nun mal meine lösung zeigen,es geht so aber wer weiss,ob der code so sauber ist:

$logfile ="stat.log";

$date = "$hour:$min:$sec $mday/$month";

$username = $ENV{'REMOTE_USER'} || 'anyuser';

$ip_now         = $ENV{'REMOTE_ADDR'};

$agent =  $ENV{'HTTP_USER_AGENT'};

$ref =  $ENV{'HTTP_REFERER'} || 'none';

$ips = "$username,$ip_now,$date,$agent,$ref";

Now that we know what the time/date is.. let's have fun

open(FILE,"<$logfile"); $Zugriffe = 0;

while (<FILE>){      /$username,$ip_now/ ? $Zugriffe = $Zugriffe + 1 : $Zugriffe = $Zugriffe;{      print "Content-type: text/html\n\n";      print "sorry\n";      } }

if ($Zugriffe < 1)   {  &log; }

close (FILE);

&redir;

sub log {

if (! open(LOG,">>$logfile")) {

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

print "Cannot open file\n";

exit;                         }

{

print LOG "$ips\n"; print LOG "------- \n"; close (LOG); }}

sub redir {

print "Location: $HomeDirURL\n\n";                                      exit;

} exit;

wäre froh wenn ein profie dieses sript mal in augenschein nehmen würde und mir die fehler zeigt falls vorhanden :) Grüsse vom Alain