Commit 137f039f authored by Leigh Stoller's avatar Leigh Stoller

Another little fix to deal with how we now archive experiments.

parent 858319bd
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006 University of Utah and the Flux Group.
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -203,6 +203,14 @@ foreach my $name (keys(%runlist)) {
$tag, $subdir) == 0 or
fatal(-1, "Could not checkout $tag to $dir");
if (! -e "$dbdump") {
$subdir = "exp/dbdata";
libArchive::TBCheckoutExperimentArchivebyExptIDX($exptidx, $dir,
$tag, $subdir) == 0 or
fatal(-1, "Could not checkout $tag to $dir");
}
#
# Now we need to create a DB on ops to hold the DB dump.
#
......
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