Matt Mairs's Songs

#!/usr/bin/perl #count $data = '/var/log/httpd/counter.si.data'; $lockfile = '/var/log/httpd/counter.si.LOCK'; # main routine &increment; print << "END" Content-Type: text/html \n \n Matt Mairs's Songs

Wonder why songs are still appearing on pages for long dead bands? It has to do with Matt's faulty memory and his insistence on documenting every little thing that flashes back across it. It is therefore necessary to institute "last updated" labels for each damned lyrics page; never mind that new material appears on "Other" from time to time. So here ya go:

Downer (last updated 1/26/00) (Downer personnel and bio)
HayWire (last updated 1/26/00) (HayWire personnel and bio)
Mannwitch (last updated 10/11/99) (Mannwitch personnel and bio)
hubris (last updated 8/25/99) (hubris personnel and bio)
Head Cheese(last updated 04/11/99) (mockbrawn lives on!)
Black Sun Ensemble (last updated 01/30/99)
Sloth (last updated 01/26/01) (Sloth personnel and bio)
Nine (last updated 02/27/99) (Nine personnel and bio)
What Went Wrong (last updated 04/14/99) (What Went Wrong personnel and bio)
Other (last update 11/19/01)

Ever hear of Morass? Wondering at all why they're not represented here? It's 'cuz that stuff's so hot you can bloody well pay for it ya cheapskates!
Or just check out the MP3s

\n END ; 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); }