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

Allow /groups.

Add nscheck as allowable command.
parent 5e5508bf
......@@ -38,7 +38,8 @@ my $TB = "@prefix@";
"readycount" => "$TB/bin/readycount",
"eventsys_control" => "$TB/bin/eventsys_control",
"tbresize" => "$TB/bin/tbresize",
"batchexp" => "$TB/bin/batchexp"
"batchexp" => "$TB/bin/batchexp",
"nscheck" => "$TB/bin/nscheck"
);
# Need to provide a simple path, because some scripts we call need one
......
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group.
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# All rights reserved.
#
......@@ -36,11 +36,13 @@ $identity = "-i $ENV{HOME}/.ssh/identity";
$cwd = $ENV{PWD};
# We only want to actually change to $CWD if it will actually
# be accesible on the other machine - if it's in /users or /proj
if (!($cwd =~ qr|/users|) && !($cwd =~ qr|/proj|)) {
if (!($cwd =~ qr|/users|) &&
!($cwd =~ qr|/groups|)
!($cwd =~ qr|/proj|)) {
warn "In order to make sure that this command has access to any\n";
warn "files it may need to read, please change directories into\n";
warn "your home directory (in /users/) or your project directory\n";
warn "(in /proj/).\n";
warn "your home directory (in /users/) or your project/group\n";
warn "directory (in /proj/ or /groups/).\n";
exit (-1);
}
......
......@@ -38,7 +38,8 @@ my $TB = "@prefix@";
"readycount" => "$TB/bin/readycount",
"eventsys_control" => "$TB/bin/eventsys_control",
"tbresize" => "$TB/bin/tbresize",
"batchexp" => "$TB/bin/batchexp"
"batchexp" => "$TB/bin/batchexp",
"nscheck" => "$TB/bin/nscheck"
);
# Need to provide a simple path, because some scripts we call need one
......
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