#!/usr/local/bin/perl -w print "Content-Type: text/html\n\n"; undef $/; open(FILE, "<../sidebar.incl") or die "Couldn't open sidebar!"; $SidebarText = ; close FILE; print <MagicStats: News
MagicStats Home MagicStats 2.0 News
$SidebarText EOQ GetUpdates(); ($t,$t,$t,$t,$t,$t,$t,$t,$t,$mtime,$t,$t,$t) = stat "."; $ModDate = localtime $mtime; print <
Copyright © 2000 Chris Lattner
Last modified: $ModDate
EOQ sub GetUpdates { opendir DH, "." or die "Where'd . go?"; @UpdateFiles = reverse sort grep /[0-9]/, readdir DH; closedir DH; undef $/; foreach $UpdateFilename (@UpdateFiles) { ($Yr,$Mo,$Dy) = split /-0?/, $UpdateFilename; $UpdateDate = "$Mo/$Dy/$Yr"; open(FILE, "<$UpdateFilename") or die "Couldn't open file that you said was there!"; $UpdateText = ; close FILE; print <$UpdateDate Update:
    $UpdateText
EOQ } $/ = "\n"; }