Ok.....
I use this command in .shtml file because my server accept:
Nothing happens! the page is blank, look:
http://www.lokirj.com.br/powerbusca/teste.shtml
my "log.db" is create into cgi-bin and chmod 666
My uonline.cgi
#!/usr/bin/perl
use strict;
my $log = '/home/lokirj/www/powerbusca/cgi-bin';
my $ip = $ENV{REMOTE_ADDR};
my $now = time();
my %ip;
my $count = 1;
open (LOG, "$log/log.db") or die("Could not open log file for reading: $!");
open (TEMP, ">$log/temp.db") or die("Couldn't create temp log file: $!");
flock (TEMP, 2);
while (<LOG>) {
chomp;
my @data = split /\|/, $_;
(($now - $data[1] > 600) or ($ip eq $data[0]) or (exists $ip{$data[0]})) and next;
$ip{$data[0]} = 1;
$count++;
print TEMP join("|", @data), "\n";
}
print TEMP join("|", ($ip, $now)), "\n";
close (TEMP);
close (LOG);
rename ("$log/temp.db", "$log/log.db");
print "Content-type: text/html\n\n";
print $count;
Thanks for help!
Giovanni
I use this command in .shtml file because my server accept:
Nothing happens! the page is blank, look:
http://www.lokirj.com.br/powerbusca/teste.shtml
my "log.db" is create into cgi-bin and chmod 666
My uonline.cgi
#!/usr/bin/perl
use strict;
my $log = '/home/lokirj/www/powerbusca/cgi-bin';
my $ip = $ENV{REMOTE_ADDR};
my $now = time();
my %ip;
my $count = 1;
open (LOG, "$log/log.db") or die("Could not open log file for reading: $!");
open (TEMP, ">$log/temp.db") or die("Couldn't create temp log file: $!");
flock (TEMP, 2);
while (<LOG>) {
chomp;
my @data = split /\|/, $_;
(($now - $data[1] > 600) or ($ip eq $data[0]) or (exists $ip{$data[0]})) and next;
$ip{$data[0]} = 1;
$count++;
print TEMP join("|", @data), "\n";
}
print TEMP join("|", ($ip, $now)), "\n";
close (TEMP);
close (LOG);
rename ("$log/temp.db", "$log/log.db");
print "Content-type: text/html\n\n";
print $count;
Thanks for help!
Giovanni