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

tmcd/common/libtmcc.pm

@@ -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};
 

tmcd/common/tmcc.pl

 #!/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"});
     }