#!/usr/local/bin/perl

$mappings =
{
	"\~chucky" =>	'Home',
	'cinema' =>	'Movies & Cinema',
	'graphics' =>	'Graphics & Traditional Media Art'
};

sub parse_uri
{
	my $fh = shift;
	my $uri = shift;

	my $parsed_uri = "";

	my $cumul = "/";
	my $e;
	my $first = 1;

	if ($uri =~ m:^/(.*)/[^/]+\.shtml$:)
	{
		$parsed_uri = $1;
	}

	print <<"EOF";
<table cellspacing="0" cellpadding="0">
<tr>
EOF

	print <<"EOF";
	<td bgcolor="#666699"><img src="/~chucky/images/n_left.gif" width="15" height="20" alt="("></td>
EOF

	foreach $e (split("/", $parsed_uri))
	{
		if (not $first)
		{
			print <<"EOF";
	<td bgcolor="#666699"><img src="/~chucky/images/n_middle.gif" width="30" height="20" alt="|"></td>
EOF
		}
		$cumul .= "$e/";
		print <<"EOF";
	<td bgcolor="#666699">
	  <a href="$cumul" style="{ text-decoration: none; }">
	    <font face="Arial, Helvetica" size="-1">
	      <b>$mappings->{$e}</b>
	    </font>
	  </a>
	</td>
EOF
		$first = 0;
	}

	print <<"EOF";
	<td bgcolor="#666699"><img src="/~chucky/images/n_right.gif" width="15" height="20" alt=")"></td>
EOF

	print <<"EOF";
</tr>
</table>
EOF
}

print "Content-type: text/html\n\n";

parse_uri(STDOUT, $ENV{DOCUMENT_URI});