104 lines
5.5 KiB
Perl
Executable File
104 lines
5.5 KiB
Perl
Executable File
#!/usr/sbin/perl
|
|
|
|
#**************************************************************************
|
|
#* *
|
|
#* Copyright (c) 1996 Silicon Graphics, Inc. *
|
|
#* All Rights Reserved *
|
|
#* *
|
|
#* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF SGI *
|
|
#* *
|
|
#* The copyright notice above does not evidence any actual of intended *
|
|
#* publication of such source code, and is an unpublished work by Silicon *
|
|
#* Graphics, Inc. This material contains CONFIDENTIAL INFORMATION that is *
|
|
#* the property of Silicon Graphics, Inc. Any use, duplication or *
|
|
#* disclosure not specifically authorized by Silicon Graphics is strictly *
|
|
#* prohibited. *
|
|
#* *
|
|
#* RESTRICTED RIGHTS LEGEND: *
|
|
#* *
|
|
#* Use, duplication or disclosure by the Government is subject to *
|
|
#* restrictions as set forth in subdivision (c)(1)(ii) of the Rights in *
|
|
#* Technical Data and Computer Software clause at DFARS 52.227-7013, *
|
|
#* and/or in similar or successor clauses in the FAR, DOD or NASA FAR *
|
|
#* Supplement. Unpublished - rights reserved under the Copyright Laws of *
|
|
#* the United States. Contractor is SILICON GRAPHICS, INC., 2011 N. *
|
|
#* Shoreline Blvd., Mountain View, CA 94039-7311 *
|
|
#**************************************************************************
|
|
|
|
# DEMO_toc.pl
|
|
#
|
|
# Routines for running the Table Of Contents
|
|
|
|
1; # Return true
|
|
|
|
sub Generate_Toc_Page {
|
|
&Print_HTTP_Header("BLANK", "$HTTP_YES_SCRIPT");
|
|
print "<script language=\"JavaScript\">\n";
|
|
print "// processing inframe navigation from iconbar.html\n";
|
|
print "function MainBack() {\n";
|
|
print "top.frames[\"$FRAME_MAIN\"].history.back()\n";
|
|
print "}\n";
|
|
print "function MainForward() {\n";
|
|
print "top.frames[\"$FRAME_MAIN\"].history.forward()\n";
|
|
print "}\n";
|
|
print "function MainPage() {\n";
|
|
print "top.frames[\"$FRAME_MAIN\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_MAIN\";\n";
|
|
print "top.frames[\"$FRAME_SIDE\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_SIDE\";\n";
|
|
print "}\n";
|
|
print "function AdminPage() {\n";
|
|
print "top.frames[\"$FRAME_MAIN\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_MAIN&$CGI_SUB_SWITCH=$CGI_ADMIN_FLAG\";\n";
|
|
print "top.frames[\"$FRAME_SIDE\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_SIDE&$CGI_SUB_SWITCH=$CGI_ADMIN_FLAG\";\n";
|
|
print "}\n";
|
|
print "function HelpPage() {\n";
|
|
print "top.frames[\"$FRAME_MAIN\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_MAIN&$CGI_SUB_SWITCH=$CGI_HELP_FLAG\";\n";
|
|
print "top.frames[\"$FRAME_SIDE\"].location = \"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_SIDE&$CGI_SUB_SWITCH=$CGI_HELP_FLAG\";\n";
|
|
print "}\n";
|
|
print "function SwitchImage( index , pic ) {\n";
|
|
print "\tdocument.images[index].src = pic\n";
|
|
print "}\n";
|
|
print "\n";
|
|
print "</script>\n";
|
|
print "</head>\n";
|
|
print "<body bgcolor=white>\n";
|
|
# The image bar divider
|
|
print "<center><hr height=1 width=95% noshade></center>\n";
|
|
# The toolbar
|
|
print "<center>\n";
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 0, \'$IMGSRC_TOC_HOME_H\'); window.status = \'Home\'; return true \" ";
|
|
print "onMouseOut=\"SwitchImage( 0, \'$IMGSRC_TOC_HOME\')\" ";
|
|
print "OnClick=\"MainPage()\" target=$FRAME_DIAG href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_DIAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_HOME\"></a>\n";
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 1, \'$IMGSRC_TOC_BACK_H\'); window.status = \'Frame Back\'; return true \" ";
|
|
print "onMouseOut=\"SwitchImage( 1, \'$IMGSRC_TOC_BACK\')\" ";
|
|
print "OnClick=\"MainBack()\" target=$FRAME_DIAG href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_DIAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_BACK\"></a>\n";
|
|
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 2, \'$IMGSRC_TOC_FORWARD_H\'); window.status = \'Frame Forward\'; return true \" ";
|
|
print "onMouseOut=\"SwitchImage( 2, \'$IMGSRC_TOC_FORWARD\')\" ";
|
|
print "OnClick=\"MainForward()\" target=$FRAME_DIAG href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_DIAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_FORWARD\"></a>\n";
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 3, \'$IMGSRC_TOC_SEARCH_H\'); window.status = \'Search\'; return true\" target=$FRAME_MAIN ";
|
|
print "onMouseOut=\"SwitchImage( 3, \'$IMGSRC_TOC_SEARCH\')\" ";
|
|
print "href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_MAIN&$CGI_SUB_SWITCH=$CGI_SEARCH_FLAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_SEARCH\"></a>\n";
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 4, \'$IMGSRC_TOC_ADMIN_H\'); window.status = \'Administration\'; return true\" OnClick=\"AdminPage()\" target=$FRAME_DIAG ";
|
|
print "onMouseOut=\"SwitchImage( 4, \'$IMGSRC_TOC_ADMIN\')\" ";
|
|
print "href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_DIAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_ADMIN\"></a>\n";
|
|
|
|
print "<a onMouseOver = \"SwitchImage( 5, \'$IMGSRC_TOC_HELP_H\'); window.status = \'Help -- Maintenance\'; return true\" OnClick=\"HelpPage()\" target=$FRAME_DIAG ";
|
|
print "onMouseOut=\"SwitchImage( 5, \'$IMGSRC_TOC_HELP\')\" ";
|
|
print "href=\"$WWW_SCRIPT?$CGI_SWITCH=$FRAME_DIAG\">";
|
|
print "<img border=0 src=\"$IMGSRC_TOC_HELP\"></a>\n";
|
|
print "<br>\n";
|
|
print "</center>\n";
|
|
# The image bar divider
|
|
print "<hr noshade height=1 width=95%>\n";
|
|
&Print_HTTP_Footer;
|
|
}
|