#!/usr/bin/perl

use lib '.';
require "pagelib.pl";

header();
head();
body();
foot();

sub body {
	print "<br>\n";
	print "<table width=100\% border=0 cellspacing=1 cellpadding=1>\n";
	print "<tr><td colspan=2 align=\"center\">";
	print "<img src=\"/~dave/images/daves_lego_site.gif\" border=0>";
	print "</td></tr>\n";
	print "<tr><td colspan=2>\n";
	print "<br>Hi, I'm Dave Eaton (AKA DaveE). And I'm a Lego nut. Over the past few years I've built all sorts of things out of and relating to Lego. This site is dedicated to showing off whatever I can of my efforts in the hopes that someone out there will find them useful or just plain neat.<br><br>\n";
	print "</td></tr>\n";

	foreach('creations','events','tools','tidbits','links','contact') {
		print "<tr><td width=150 valign=top><a href=\"$pages{$_}{url}\"><img src=\"$pages{$_}{img}\" border=0 width=150 height=25></a></td>\n";
		print "<td width=490>$pages{$_}{desc}</td></tr>\n";
		print "<tr><td width=150><br></td><td width=490><img src=\"/~dave/images/spacer.gif\" width=490 height=1></td></tr>\n";
	}
	print "</table>\n";
}