#!/usr/bin/perl

# Name: jump.list.cgi
#
# Version: 1.0
#
# Last Modified: 7-30-96                                                  
#
# Copyright Information: This script was written by Jeff Mackintosh
#     (jmackintosh@beonthenet.com, http://www.beonthenet.com)
#     feel free to use this code in any way that you wish, just let me 
#     know when.  I like to see my creations working in the cyberworld. 
#
# Description: This program allows the user to select a location from a
#      pull-down box and, after pressing the GoTo button, 'jump' to that
#      site.  It acts as a jump page, but is a lot more impressive.
#
# Installation: Store this script in the same directory as jump.off.cgi and
#	make sure that its attributes are set for 755.
#
# How to use this: When you have figured out where to place the pull-down
#	boxes in your page, insert the following line:
#		<!--#exec cgi="/cgi-bin/jump.list.pl" -->
#	You will need to make sure you can initiate CGI programs from your
#	htdocs directory and are allowed to utilize SSI processing.  You
#	will have to name the HTML file with this code in it with the
#	extension of ".shtml"  This tells the server that this page has
#	SSI code in it.
#
# Charge: There is no charge for this program, except to help two others
#	learn to use the 'net as it was intended.
#

# Anywhere you see 'www.your.site' change to the HTTP address of your site.
# You can add as many links as you want, or as many pull-down boxes as well.
# Just try to keep the lists short - some people get confused with long lists.

print <<"end_of_html";
Content-type: text/html


<table border=0 width=468><tr><td align=center colspan=2>
<img border="1" src="Place a graphic here, if you want">
<b>Use the pull-down menus to go to major sections of <i>Your.site.name</i></b>.
</td></tr><tr><td align=left valign=bottom>
<form method="POST" action="http://www.your.site/cgi-bin/jump.off.cgi">
<input type="submit" value="Go To">&nbsp;<select name="LOCATION">
<option value="http://www.your.site">Index page
<option value="NONE">---------------
<option value="http://www.eff.org/~erict/">Selena Sol's Homepage
<option value="http://www.netscapte.com/">Netscape
<option value="http://www.microsoft.com/">Microsoft
<option value="http://www.ibm.com/">IBM
</option></select></form></td><td align=right valign=bottom>
<form method="POST" action="http://www.your.site/cgi-bin/jump.off.cgi">
<input type="submit" value="Go To">&nbsp;<select name="LOCATION">
<option value="http://www.your.site/help/menus.html">a Help Page
<option value="NONE"> ---------------
<option value="http://www.your.site/">Index
<option value="http://www.perl.com/perl/faq/idiots-guide.html">The Idiot's Guide to Solving Perl CGI Problems
</option></select></form></td></tr></table></center>

end_of_html