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

Add ARCHIVE environment variable.

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