Commit bc1ec6a3 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Add autogen of webxxx scripts.

parent c3fac28c
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
# usage: webswapexp arguments ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/swapexp", @ARGV;
die("webswapexp: Could not exec swapexp: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2003 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper.
#
# usage: webtarfiles_setup arguments ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/tarfiles_setup", @ARGV;
die("webtarfiles_setup: Could not exec tarfiles_setup: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_analyze", @ARGV;
die("webtemplate_analyze: Could not exec template_analyze: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_commit", @ARGV;
die("webtemplate_commit: Could not exec template_commit: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_control", @ARGV;
die("webtemplate_control: Could not exec template_control: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_create", @ARGV;
die("webtemplate_create: Could not exec template_create: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_delete", @ARGV;
die("webtemplate_delete: Could not exec template_delete: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_export", @ARGV;
die("webtemplate_exprun: Could not exec template_export: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_exprun", @ARGV;
die("webtemplate_exprun: Could not exec template_exprun: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_graph", @ARGV;
die("webtemplate_graph: Could not exec template_graph: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_instantiate", @ARGV;
die("webtemplate_instantiate: Could not exec template_instantiate: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_linkgraph", @ARGV;
die("webtemplate_linkgraph: Could not exec template_linkgraph: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_metadata", @ARGV;
die("webtemplate_metadata: Could not exec template_metadata: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_swapin", @ARGV;
die("webtemplate_swapin: Could not exec template_swapin: $!");
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
#
# This gets invoked from the Web interface. Simply a wrapper ...
#
#
# Configure variables
#
my $TB = "@prefix@";
#
# Run the real thing, and never return.
#
exec "$TB/bin/template_swapout", @ARGV;
die("webtemplate_swapout: Could not exec template_swapout: $!");
......@@ -24,7 +24,8 @@ SBIN_SCRIPTS = vlandiff vlansync withadminprivs export_tables cvsupd.pl \
spewconlog opsdb_control newnode
WEB_SBIN_SCRIPTS= webnewnode webdeletenode webspewconlog
WEB_BIN_SCRIPTS = webcreate_image websetdest weblinkmon_ctl webspewevents
WEB_BIN_SCRIPTS = webcreate_image websetdest weblinkmon_ctl webspewevents \
webdelay_config
LIBEXEC_SCRIPTS = spewleds webcopy spewsource webcvsweb xlogin webviewvc \
$(WEB_BIN_SCRIPTS) $(WEB_SBIN_SCRIPTS)
......
......@@ -128,7 +128,7 @@ elseif (strcmp($approval, "moreinfo") == 0) {
}
elseif ((strcmp($approval, "deny") == 0) ||
(strcmp($approval, "destroy") == 0)) {
SUEXEC($uid, $TBADMINGROUP, "rmproj $pid", 1);
SUEXEC($uid, $TBADMINGROUP, "webrmproj $pid", 1);
$sendemail = 1;
if (isset($silent) && $silent == "Yep") {
......
<?php
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2006 University of Utah and the Flux Group.
# Copyright (c) 2000-2007 University of Utah and the Flux Group.
# All rights reserved.
#
include("defs.php3");
......@@ -135,11 +135,11 @@ register_shutdown_function("SPEWCLEANUP");
ignore_user_abort(1);
if ($nodemode) {
$fp = popen("$TBSUEXEC_PATH $uid nobody webnodereboot -w $node_id",
$fp = popen("$TBSUEXEC_PATH $uid nobody webnode_reboot -w $node_id",
"r");
}
else {
$fp = popen("$TBSUEXEC_PATH $uid nobody webnodereboot -w -e $pid,$eid",
$fp = popen("$TBSUEXEC_PATH $uid nobody webnode_reboot -w -e $pid,$eid",
"r");
}
if (! $fp) {
......
<?php
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003, 2006 University of Utah and the Flux Group.
# Copyright (c) 2000-2003, 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
include("defs.php3");
......@@ -101,7 +101,7 @@ flush();
#
# Remove the project directory and the group.
#
SUEXEC($uid, $TBADMINGROUP, "rmproj $pid", 1);
SUEXEC($uid, $TBADMINGROUP, "webrmproj $pid", 1);
#
# Warm fuzzies.
......
<?php
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002, 2006 University of Utah and the Flux Group.
# Copyright (c) 2000-2002, 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
include("defs.php3");
......@@ -120,7 +120,7 @@ if (isset($addpid) && strcmp($addpid, "")) {
#
TBGroupUnixInfo($pid, $pid, $unix_gid, $unix_name);
SUEXEC($uid, $unix_gid, "webnodeupdate -b $pid $eid", 1);
SUEXEC($uid, $unix_gid, "webnode_update -b $pid $eid", 1);
echo "<center>
<h3>Access Permissions Changed.</h3>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment