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

%links = (
	  'lugnet' => {
	      'desc' => 'LUGNET (Lego Users Group NET) - International community of Lego fans. A great place to chat about all things relating to Lego.',
	      'url' => 'http://www.lugnet.com/',
	      'img' => '/~dave/images/site/lugnetlogo.gif',
	      'title' => 'Lugnet',
	      },
	  'brickshelf' => {
	      'desc' => 'BrickShelf - Lego set instruction scans, Catalog scans, and pictures of fan creations.',
	      'url' => 'http://www.brickshelf.com/',
	      'img' => '/~dave/images/site/brickshelflogo.gif',
	      'title' => 'BrickShelf',
	  },
	  'peeron' => {
	      'desc' => 'Peeron - Lego set inventories.',
	      'url' => 'http://www.peeron.com/inv/',
	      'img' => '/~dave/images/site/peeronlogo.gif',
	      'title' => 'Peeron',
	  },
	  'bricklink' => {
	      'desc' => 'BrickLink - A Lego community buying/selling forum.',
	      'url' => 'http://www.bricklink.com/',
	      'img' => '/~dave/images/site/bricklinklogo.gif',
	      'title' => 'BrickLink',
	  },
	  'ldraw' => {
	      'desc' => 'LDraw - Utilities for building with virtual Lego bricks.',
	      'url' => 'http://www.ldraw.org/',
	      'img' => '/~dave/images/site/ldrawlogo.gif',
	      'title' => 'LDraw.org',
	  },
	  'auctionbrick' => {
	      'desc' => 'AuctionBrick - Lego auction-oriented selling forum.',
	      'url' => 'http://www.auctionbrick.com/',
	      'img' => '/~dave/images/site/auctionbricklogo.gif',
	      'title' => 'AuctionBrick',
	  },
	  'fbtb' => {
	      'desc' => 'FBTB (From Bricks To Bothans) - Everything Lego Star Wars',
	      'url' => 'http://www.fbtb.net/',
	      'img' => '/~dave/images/site/fbtblogo.gif',
	      'title' => 'FBTB.net',
	  },
	  'mocpages' => {
	      'desc' => 'MOC Pages - Where to create free Lego-related web-pages.',
	      'url' => 'http://www.mocpages.com',
	      'img' => '/~dave/images/site/mocpageslogo.gif',
	      'title' => 'MOC pages',
	  },
	  'cc' => {
	      'desc' => 'Classic-Castle - The source for all your Lego castle needs.',
	      'url' => 'http://www.classic-castle.com/',
	      'img' => '/~dave/images/site/classiccastlelogo.gif',
	      'title' => 'Classic-Castle',
	  },
	  'brickset' => {
	      'desc' => 'BrickSet - UK-based Lego set database.',
	      'url' => 'http://www.brickset.com/',
	      'img' => '/~dave/images/site/bricksetlogo.jpg',
	      'title' => 'BrickSet',
	  },
	  '' => {
	      'desc' => '',
	      'url' => '',
	      'img' => '',
	      'title' => '',
	  },
	  '' => {
	      'desc' => '',
	      'url' => '',
	      'img' => '',
	      'title' => '',
	  },
	  '' => {
	      'desc' => '',
	      'url' => '',
	      'img' => '',
	      'title' => '',
	  },
	  '' => {
	      'desc' => '',
	      'url' => '',
	      'img' => '',
	      'title' => '',
	  },
	  );

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/links.gif\"><br><br></td></tr>\n";
    foreach(
	    'lugnet',
	    'brickshelf',
	    'peeron',
	    'ldraw',
	    'fbtb',
	    'cc',
	    'bricklink',
	    'brickset',
	    'auctionbrick',
	    'mocpages',
	    ) {
	print "<tr><td width=150><a href=\"$links{$_}{url}\">";
	if($links{$_}{img}) { print "<img width=88 height=31 src=\"$links{$_}{img}\" border=0>"; }
	else { print $links{$_}{title}; }
	print "</a></td>\n";
	print "<td width=490>$links{$_}{desc}</td></tr>\n";
	print "<tr><td width=150></td><td width=490><img src=\"/~dave/images/spacer.gif\" border=0 width=490 height=1></td></tr>\n";
    }
    print "</table>\n";
}