Error logs

japhy — Wed, 29 Nov 2000 16:32:36 +0000

I'm sorry, there were syntax errors is the code I provided. I should have tried running it before pawning it off as working code.

use Fcntl qw( O_RDWR O_CREAT LOCK_EX );

$counter = "counter.txt";

sysopen COUNTER, $counter, O_RDWR|O_CREAT or die "can't read/write $counter: $!$
flock COUNTER, LOCK_EX or die "can't flock: $!";
chomp (my $n = <COUNTER> || 0);
seek COUNTER, 0, 0 or die "can't rewind: $!";
print COUNTER ++$n or die "can't print: $!";
truncate COUNTER, tell COUNTER or die "can't truncate: $!";
close COUNTER or die "can't close: $!";

This code works for me. And you might want to include the CGI::Carp module in your program, so that if this die()s, you'll be alerted:

use CGI::Carp 'fatalsToBrowser';

Nico — Wed, 29 Nov 2000 16:20:05 +0000

Tks japhy
but I just added that code to the script and an error ocurred.

This is the script I am using

http://www.cgi.tj/scripts/alienform/af.txt

Thanks again,

Form fields are overrated

japhy — Wed, 29 Nov 2000 14:56:29 +0000

There's no need to use the form to do it, just modify the program to increment a counter file every time the program is accessed (successfully, mind you -- do this after any error checking you need done).

use POSIX qw( O_RDWR O_CREAT LOCK_EX );

$counter = "/path/to/counter.txt";

sysopen COUNTER, $counter, O_RDWR|O_CREAT or die "can't read/write $counter: $!";
flock COUNTER, LOCK_EX or die "can't flock: $!";
chomp (my $n = <COUNTER> || 0);
seek COUNTER, 0, 0 or die "can't rewind: $!";
print COUNTER ++$n or die "can't print: $!";
truncate COUNTER or die "can't truncate: $!";
close COUNTER or die "can't close: $!"