Home | News
| Facts | Biography
| Credits | Photos
| More
Design ©1997-1998 Tony Tang Productions.
webmaster@tonytang.com
#!/usr/bin/perl5
push(@INC,".");
require "cgi-lib.cgi";
require "file-lib.pl";
@counter = &readfile($ENV{QUERY_STRING});
$numlines = @counter;
print &PrintHeader;
if (($numlines > 2) || ($ENV{REMOTE_ADDR} eq $counter[1])) {
print $counter[0];
} else {
print $counter[0]++;
$counter[1] = "\n$ENV{REMOTE_ADDR}";
&writefile($ENV{QUERY_STRING}, counter);
}
return 1;
visits.
This site Netscape
Navigator 4.04 friendly.
Best viewed at 16-bit color resolution or greater.