Besucher #!/usr/bin/perl # Start Setup $padding = 2; $log_dat = "counter.txt"; $lock = 1; $lock_ip =1; $ip_lock_timeout =30; $fpt_ip = "ip.txt"; # Ende Setup print "Content-Type: text/html\n\n"; sub checkIP { open (FILE,"$fpt_ip"); @ip_array = ; close (FILE); open (TABLE,">$fpt_ip") || &error(" Error Scriptfehler.\n"); $this_time = time(); foreach $visitor (@ip_array) { ($ip_addr,$time_stamp) = split(/\|/,$visitor); if ($this_time < $time_stamp+(60*$ip_lock_timeout)) { if ($ip_addr eq $ENV{'REMOTE_ADDR'}) { $found=1; } else { print TABLE "$ip_addr|$time_stamp"; } } } print TABLE "$ENV{'REMOTE_ADDR'}|$this_time\n"; close(TABLE); return ($found==1) ? 1 : 0; } sub error { print "$_[0]"; exit (0); } $flag = ($lock_ip==1) ? &checkIP : 0; if (!(-e "$log_dat")) { open (FILE,">$log_dat") || &error("Error Scriptfehler.\n"); $count = 1; print FILE "$count"; close (FILE); } else { open (FILE,"+<$log_dat"); $count = ; if ($lock_ip==0 || ($lock_ip==1 && $flag!=1)) { flock(FILE,2) if ($lock == 1); $count++; seek(FILE,0,0); print FILE "$count"; } close (FILE); } $count = sprintf("%0"."$padding"."d", $count); print "$count"; exit(0); © by http://www.leondesign.de V 2.0