#!/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_update.pl
#
# Routines to explicitely update the tables

1; # Return true

sub Generate_Maint_Update_Page {
	&Print_Maint_Top("Update Tables", "$IMGSRC_HEADER_UPDATE");
	print "<font color=red size=+3>I</font><font color=red size=+1>NFORMATION</font><p>\n";
	print "If the information presented in buttonfly and the demos interface seems \n";
	print "incorrect, perhaps the demos database is out of synch with your demos software.\n";
	print "Updating tables will reload the demos database and possibly solve your problems.";
	print "<p>\n<hr noshade>\n";
	&Print_Update_Tables_Form;
	&Print_Maint_Bottom;
	&Print_HTTP_Footer;
}

sub Print_Update_Tables_Form {
	print "<font color=red size=+3>U</font><font color=red size=+1>PDATE</font> \n";
	print "<font color=red size=+3>T</font><font color=red size=+1>ABLES</font><p>\n";
	print "<p>\n";
	print "<form target=$FRAME_DIAG method=GET onSubmit=\"ClickUpdateTables()\" action=\"$WWW_SCRIPT\">\n";
	print "<input type=hidden name=\"$CGI_SWITCH\" value=\"$FRAME_DIAG\">\n";
	print "<input type=hidden name=\"$CGI_SUB_SWITCH\" value=\"$CGI_MAINT_CUSTOM_FLAG\">\n";
	print "<input type=hidden name=\"$CGI_MAINT_OUTSIDE_SWITCH\" value=\"$CGI_MAINT_FALSE_FLAG\">\n";
	print "<input type=hidden name=\"$CGI_UPDATE_SWITCH\" value=\"$_[0]\">\n";
	print "<font size=1 color=red>\n";
	print "<input type=image name=\"input\" src=\"$IMGSRC_MAINT_UPDATE\" border=0>\n";
	print "</font>\n";
	print "</form>\n";
	print "</td></tr></table>\n";
}