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

Add -b (nocache) directive to bypass the tmcc cache.

parent 0790e1dc
......@@ -71,6 +71,7 @@ my $beproxy = 0;
"keyfile" => undef,
"timeout" => undef,
"logfile" => undef,
"nocache" => 0,
);
# The cache directory is named by the vnodeid. This avoids some confusion.
......@@ -324,7 +325,7 @@ sub tmcc ($;$$%)
#
# See if this is a cmd we can get from the local config stash.
#
if (!defined($args) || $args eq "") {
if (!$config{"nocache"} && (!defined($args) || $args eq "")) {
foreach my $key (keys(%commandset)) {
my $tag = $commandset{$key}->{TAG};
......
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -15,6 +15,7 @@ sub usage()
{
print STDERR "usage: tmcc [options] <command> [arg1 ...]\n";
print STDERR " -d Turn on debugging\n";
print STDERR " -b Bypass the tmcc cache and goto to server\n";
print STDERR " -s server Specify a tmcd server to connect to\n";
print STDERR " -p portnum Specify a port number to connect to\n";
print STDERR " -v versnum Specify a version number for tmcd\n";
......@@ -27,7 +28,7 @@ sub usage()
print STDERR " -o path Specify log file name for -x option\n";
exit(1);
}
my $optlist = "ds:p:v:n:k:ul:t:x:o:";
my $optlist = "ds:p:v:n:k:ul:t:x:o:b";
my $debug = 0;
my $CMD;
my $ARGS;
......@@ -80,6 +81,9 @@ sub ParseOptions()
libtmcc::configtmcc("debug", 1);
$debug = 1;
}
if (defined($options{"b"})) {
libtmcc::configtmcc("nocache", 1);
}
if (defined($options{"s"})) {
libtmcc::configtmcc("server", $options{"s"});
}
......
Supports Markdown
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