home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
Pavilions
/
BrainOpera
/
cgi-bin
/
main-menu.cgi
< prev
next >
Wrap
Text File
|
2017-09-21
|
2KB
|
71 lines
#!/usr/local/bin/perl
# This script simply takes one argument, the name of the page
# we are on, and return the correct menu bar, with simply one
# less element in the client-side imagemap.
# Currently it simply doesn't show the icon that is already selected
# Later, it could be a Java applet that grays out the selected icon. :-)
####
%elements=("online","0,0,112,80","libretto","0,80,112,180","growth","0,180,112,268","onsite","0,268,112,346","home","0,346,112,464");
$main_graphic= "/graphics/menus/main-long.gif";
$frame_name="menu";
####
do '/web-cgi-bin/cgi-hacks.pl';
do '/web-cgi-bin/user-agent.pl';
&find_form_args("page");
print "Content-type: text/html\n";
print "Window-target: $frame_name\n\n";
print "<HEAD><TITLE>Brain Opera Main Menu</TITLE></HEAD>\n";
print "<BODY bgcolor=#000000 text=#ffffff link=#bbbbbb vlink=#bbbbbb>\n";
print " \n";
print "<p>";
print " \n";
print "<p>";
print " \n";
print "<p>";
print " \n";
print "<p>";
print "<img border=0 src=\"$main_graphic\" USEMAP=\"#menu-map\">\n";
# $HTTP_REFERER=&get_http_referer();
$HTTP_REFERER= "online/index.html";
#print "<h5><a target=body href=\"/cgi-bin/credits.cgi?page=babyhead&referer=/$HTTP_REFERER\">Photo Credit</h5></a>";
print "<MAP name=\"menu-map\">\n";
foreach $ele (keys(%elements)) {
## Here I have taken out the condition which cancels the mapping in case you're
## already on that page, just until I find a better scheme
$destination="/$ele/main.html";
$target="body";
if ($ele eq "home") {
$destination="/home.html";
$target="_top";
}
if (1==1) {
print "<AREA target=$target SHAPE=\"Rect\" COORDS=\"$elements{$ele}\" HREF=\"$destination\">\n";
}
}
print"</MAP>\n";
print "</BODY>";