#!/usr/bin/perl $data = '/var/log/httpd/counter.mn.data'; $lockfile = '/tmp/counter.mn.LOCK'; &increment; print << "STOP" Content-Type: text/html Welcome to Mairs.Net!
heartbomb


Panic now, avoid the rush!


[ What's Matt Up To Now? ]
Matt's Place...
[ Poweredby Apache ]
Get Apache or be sad.
[ Yellow Dog ]
Get a Mac. Get Yellow Dog. Be happy!
This is an iMac.
RISC performance at a PC price!
Kartoo Is The Coolest (Meta) Search Engine:
Search :
english web     worldwide web

Net Assure
is the coolest ISP!

This counter has biffed it approximately 20 times because we weren't paying attention and the disk filled up or for other very peculiar reasons I'd tell you about if you cared.
This page has been accessed approximately $accesses times \n
Want email? Need a website? Talk to me.
STOP ; sub increment { # read the data open(DATA,$data) || die "Can't open data file.\n"; $accesses = ; $accesses++; close(DATA); # check for lock file while (-e $lockfile) { sleep 2; # wait 2 seconds } # create lockfile open(LOCK,">$lockfile") || die "Can't create lockfile.\n"; close(LOCK); # write new value open(DATA,">$data") || die "Can't create lockfile.\n"; print DATA "$accesses"; close(DATA); # delete lockfile unlink($lockfile); }