#!/usr/bin/perl
use lib '.';
require "pagelib.pl";

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

sub body {
    print "<br>\n";
    print "<table width=100\%>\n";
    print "<tr><td colspan=2 align=center><img src=\"/\~dave/images/creations3.gif\"></td></tr>\n";
    foreach('atat','parv','snowspeeder','xwing','echobase','village','viking','reddragon','motopod','motopod2','golems','trogdor','atatmini','icc','dodec') {
	print "<tr><td width=150><a href=\"$pages{$_}{url}\">";

	my($width,$height) = (128,96);
	if($_ eq "golems") { ($width,$height) = (113,120); }
	print "<img src=\"$pages{$_}{img}\" width=$width height=$height border=0>";

	print "</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\" border=0 width=490 height=1></td></tr>\n";
    }
    print "</table>\n";
}