Commit 30728b3b authored by Leigh B. Stoller's avatar Leigh B. Stoller

Use geniswap program for experiments that are geni.

parent 96fc6962
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2007 University of Utah and the Flux Group. # Copyright (c) 2000-2008 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use strict; use strict;
...@@ -32,6 +32,7 @@ my $TBLOGS = "@TBLOGSEMAIL@"; ...@@ -32,6 +32,7 @@ my $TBLOGS = "@TBLOGSEMAIL@";
my $TBAUDIT = "@TBAUDITEMAIL@"; my $TBAUDIT = "@TBAUDITEMAIL@";
my $swapexp = "$TB/bin/swapexp"; my $swapexp = "$TB/bin/swapexp";
my $template_swapout = "$TB/bin/template_swapout"; my $template_swapout = "$TB/bin/template_swapout";
my $cleanupslice = "$TB/sbin/cleanupslice";
# Testbed Support libraries # Testbed Support libraries
use lib "@prefix@/lib"; use lib "@prefix@/lib";
...@@ -115,6 +116,12 @@ if ($experiment->IsInstance()) { ...@@ -115,6 +116,12 @@ if ($experiment->IsInstance()) {
exec "$template_swapout -e $eid $guid/$vers"; exec "$template_swapout -e $eid $guid/$vers";
die("Failed to exec $template_swapout!"); die("Failed to exec $template_swapout!");
} }
elsif ($experiment->geniflags()) {
my $uuid = $experiment->uuid();
exec "$cleanupslice $uuid";
die("Failed to exec $cleanupslice!");
}
else { else {
my $arg = ""; my $arg = "";
......
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