Commit bcdbf570 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Add ARCHIVE environment variable.

parent 7d0a46a8
......@@ -47,7 +47,7 @@ sub usage()
"<guid/vers> - GUID and version to swapin\n");
exit(-1);
}
my $optlist = "qwe:S:L:na:l:se:p:bE:";
my $optlist = "qwe:S:L:na:l:se:p:bE:t:";
my %options = ();
my $quiet = 0;
my $waitmode = 0;
......@@ -449,6 +449,9 @@ $instance->CopyDataStore($template_tag,
DBQueryFatal("replace into virt_user_environment set ".
" name='DATASTORE', value='$instance_path/template_datastore',".
" pid='$pid', eid='$eid'");
DBQueryFatal("replace into virt_user_environment set ".
" name='ARCHIVE', value='$instance_path/archive',".
" pid='$pid', eid='$eid'");
#
# Now do the swapin (or it gets queued if a batch experiment).
......
......@@ -47,7 +47,7 @@ sub usage()
"<guid/vers> - GUID and version to swapin\n");
exit(-1);
}
my $optlist = "qwe:S:L:na:l:se:p:bE:";
my $optlist = "qwe:S:L:na:l:se:p:bE:t:";
my %options = ();
my $quiet = 0;
my $waitmode = 0;
......@@ -449,6 +449,9 @@ $instance->CopyDataStore($template_tag,
DBQueryFatal("replace into virt_user_environment set ".
" name='DATASTORE', value='$instance_path/template_datastore',".
" pid='$pid', eid='$eid'");
DBQueryFatal("replace into virt_user_environment set ".
" name='ARCHIVE', value='$instance_path/archive',".
" pid='$pid', eid='$eid'");
#
# Now do the swapin (or it gets queued if a batch experiment).
......
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