57 lines
2.5 KiB
Perl
Executable File
57 lines
2.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_execute.cgi
|
|
#
|
|
# Reroute requests for exectuing demos [support version 1.0]
|
|
|
|
1; # Return true
|
|
|
|
require "DEMO_includes.pl";
|
|
|
|
|
|
# Read CGI input
|
|
&ReadParse;
|
|
|
|
# Initialize Interface
|
|
$ENV{'DISPLAY'} = "$APP_DISPLAY";
|
|
$ENV{'DISPLAY'} = $in{'XDP'} if ($in{'XDP'});
|
|
|
|
$command = $DEMOSRC_RUN;
|
|
$command = $in{'exe'} if ($in{'exe'});
|
|
|
|
$tree_path = "$PATH_GENERAL_DIR";
|
|
$tree_path = &Tree_Path_From_Name("$in{'tree'}") if ($in{'tree'});
|
|
|
|
$dir_name = $in{'demo'};
|
|
$dir_name = $in{'related'} if ($in{'related'});
|
|
|
|
&Print_Blank_Diag_Page;
|
|
chdir("$tree_path/$dir_name");
|
|
&Print_Error("$ERROR_INFO","Executing Demo $tree_path/$dir_name/$command","$STATUS_MINOR");
|
|
`$CMD_REDIRECT $tree_path/$dir_name/$command $CMD_NULLIFY $CMD_BACKGROUND`
|