#! /usr/bin/perl
#	________________________________________________________________
#	  /\ /\		CyberWeb SoftWare: Internet Information Systems
#	-{-<*>-}-	World-Wide Web	   <URL:http://WWW.Stars.com/>
#	__\/_\/_________________________________________________________
#	Author	:	Alan Richmond,	<WDVL@Stars.com>
#	File	:	Menu.cgi
#	Purpose	:	Process navigation buttons.
#	Usage	:	Use in ACTION field of form with option buttons
#			labelled the same as major directories.
#	Disclaimer:	This software is provided freely on the understanding
#			that the Author will not be held responsible for any
#			problems arising from it's use, and that there is no
#			support except by agreement on a fee for services.
#	________________________________________________________________
	$host	= "http://WWW.Stars.com";
	$home	= "./";
	require "./cgi-lib.pl";

	&ReadParse;				# Get form data set

	$button	= $in{'Button'};		# Which button ?

#	'print's go back to the browser.
	print	"Referer:	$host/\n";
	print	"Location: $host/$button\n\n";	# Issue a redirection