#!/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                          *
#**************************************************************************

# Silicon_Graphics_Demos.cgi
# 
# The front end to the web-based demo.sw interface

# Include Files
require "DEMO_includes.pl";

# Read CGI input
&ReadParse;


# Initialize structures
&Initialize_Interface;

# Based on the input, make the correct output
if (%in) {
	if ("$in{$CGI_SWITCH}" eq "$FRAME_SIDE") {
 		&Generate_Side_Page;
	} elsif ("$in{$CGI_SWITCH}" eq "$FRAME_MAIN") {
	  	&Generate_Main_Page;
	} elsif ("$in{$CGI_SWITCH}" eq "$FRAME_TOC") {
 		&Generate_Toc_Page;
	} elsif ("$in{$CGI_SWITCH}" eq "$FRAME_DIAG") {
		&Generate_Diag_Page;
	} elsif ("$in{$CGI_SWITCH}" eq "$CGI_MAINT_FLAG") {
		&Generate_Maint_Page;
	} else {
 		&Print_Bad_Input_Page;
	}
} else {
	&Print_UI_Frame_Structure;
}