#!/usr/bin/perl
#
# Use server side includes
# <!--#include virtual="/cgi-bin/linksmenu?games.html"-->
#
#

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


@ARGV=split(/&/,$ENV{'QUERY_STRING'});
$link=(split(/=/,$ARGV[0]))[0];


@extlinks=(
	"linuxlinks.html::Linux links" ,
	"nettools.html::Network Tools" ,
	"enquiries.html::Search Tools" ,
	"coding.html::Coding docs" ,
	"news.html::News Sites" ,
	"extmisc.html::Misc" 
	);
@intlinks= (
	"stats.html::Server stats" ,
	"gallery.html::Gallery" ,
	"games.html::Games",
#	"websites.html::Websites" ,
	"downloads.html::Downloads" ,
	"tips.html::Tips & Tricks"
	);



print "<form method=get action=\"/cgi-bin/linksmenu\">";

print " <div id=LinksMenu>";
print " <div id=title2>External Links:-</div>";

showlinks(@extlinks);

print " <br>";

print "  <div id=title2>Internal Links:-</div>";

showlinks(@intlinks);
print <<EOF;
<div style="position:absolute; bottom:10px;">
<a href="http://www.spreadfirefox.com/?q=affiliates&amp;id=61211&amp;t=76" target=_blank>
<img border="0" alt="Get Firefox!" title="Get Firefox - the browser you can trust!" src="http://sfx-images.mozilla.org/affiliates/Buttons/80x15/blue_1.gif"/></a>
</div>
EOF

print " </div></form>";





sub showlinks(){
	foreach $item (@_){
		($url,$label)=split(/::/,$item);
		if("$link" eq "$url"){ 
			print "<a href=/html/links/$url style=\"color:#ffffff;text-decoration:none;font-weight:bold;font-style:oblique\"><input type=hidden value=$url>::: $label</a><br>\n"; 
		} else {
			print ":: <a href=/html/links/$url><input type=hidden value=$url>$label</a><br>"; 
		}
	}

}