62 lines
3.3 KiB
Perl
Executable File
62 lines
3.3 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_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";
|
|
}
|
|
|