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