#!/usr/bin/perl
use verenigingen;
use lees_Inhoud;
print "Content-type: text/html\n\n";
$type = $ENV{'HTTP_USER_AGENT'};
if ($type =~ /Mozilla/i && $type !~ /MSIE/i){
	$browser="netscape";
}
if ($browser eq 'netscape'){
	lees_Inhoud::begin("Sitemap&&inhoudnetscape");
}
else{
	lees_Inhoud::begin("Sitemap&&inhoud");
}
print <<END;
<script>
	 function help(){
		mywin=open('../help.html#sitemap', 'help', 'width=350,height=500,status=no,toolbar=no,menubar=no,scrollbars=yes');
	}
	window.DefaultStatus="Verenigingsleven - een goed overzicht van verenigingen op internet";
	window.status=window.DefaultStatus;
	function wstatus(deTekst){
		window.status=deTekst;
	}
	function stdStatus(){
		window.status=window.DefaultStatus;
	}
	 </script>
END


print "<h1>Sitemap</h1><table cellspacing=\"2\" cellpadding=\"2\" border=\"1\" width=\"500\">";
print "<tr><td width=\"250\" valign=\"top\" class=\"1\"><strong>Noord Holland</strong><br>";
	drukaf("Noord_Holland.txt");
print "</td><td width=\"250\" valign=\"top\" class=\"1\"><strong>Friesland</strong><br>";
	drukaf("Friesland.txt");
print "</td></tr>";
print "<tr><td valign=\"top\" class=\"1\"><strong>Groningen</strong><br>";
	drukaf("Groningen.txt");
print "</td><td valign=\"top\" class=\"1\"><strong>Drente</strong><br>";
	drukaf("Drente.txt");
print "</td></tr>";
print "<tr><td valign=\"top\" class=\"1\"><strong>Overijssel</strong><br>";
	drukaf("Overijssel.txt");
print "</td><td valign=\"top\" class=\"1\"><strong>Flevoland</strong><br>";
	drukaf("Flevoland.txt");
print "</td></tr>";
print "<tr><td valign=\"top\" class=\"1\"><strong>Utrecht</strong><br>";
	drukaf("Utrecht.txt");
print "</td><td valign=\"top\" class=\"1\"><strong>Zuid Holland</strong><br>";
	drukaf("Zuid_Holland.txt");
print "</td></tr>";
print "<tr><td valign=\"top\" class=\"1\"><strong>Zeeland</strong><br>";
	drukaf("Zeeland.txt");
print "</td><td valign=\"top\" class=\"1\"><strong>Noord Brabant</strong><br>";
	drukaf("Noord_Brabant.txt");
print "</td></tr>";
print "<tr><td valign=\"top\" class=\"1\"><strong>Gelderland</strong><br>";
	drukaf("Gelderland.txt");
print "</td><td valign=\"top\" class=\"1\"><strong>Limburg</strong><br>";
	drukaf("Limburg.txt");
print "</td></tr>";
print "</table>";
if ($browser eq 'netscape'){
	lees_Inhoud::einde("inhoudnetscape");
}
else{
	lees_Inhoud::einde("inhoud");
}


sub drukaf{
	$file=shift @_;
	@verenigingen = verenigingen::lees_verenigingen($file);
	$gevonden = 0;

	while ($#verenigingen >= 0){
		$vereniging =shift @verenigingen;
		if ($vereniging ne ""){
			($naam, $omschrijving, $email, $http, $plaats, $provincie, $soort) =
				split /:/, $vereniging;
			print "<a href=\"http://$http\" target=\"_parent\">$naam</a>";
			print ",  $plaats<br>";
		
			$gevonden +=1;
		}
	}
	
}