#! /opt/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 submit 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://WDVL.Internet.com";
	$home	= "/www/wdvl/wdvl/Software/Perl";
	require "$home/cgi-lib.pl";

	&ReadParse;				# Get form data set

	$button	= $in{'Button'};		# Which button ?
	$button	=~ s/Locate/Location/;
	$button	=~ s/Resources/Reference/;

	print	"Referer:	$host/\n";
	print	"Location: $host/$button\n\n";