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

Be grateful for luck. Pay the thunder no mind. Listen to the birds. And don't hate nobody. - Eubie Blake
[ What's Matt Up To Now? ]
Matt's Place... (last modified 11042006)

About Mairs.Net (last modified 11222004)
Links
Kartoo is my (meta) search engine of choice:
Search :
english web    
worldwide web



[ Yellow Dog ]
Get a Mac. Get Yellow Dog. Be happy!

This is a 6500.
RISC performance at a dumpster price!

Net Assure
was the best 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 since the last time I bothered to fix the damn counter.
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); }