Commit 81bdfd0b authored by Leigh Stoller's avatar Leigh Stoller

Some experimental code for quick vms. MAINSITE only.

parent 2259f4b7
#!/usr/bin/perl -w
#
# Copyright (c) 2008-2012 University of Utah and the Flux Group.
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -53,6 +53,7 @@ my $TBOPS = "@TBOPSEMAIL@";
my $TBLOGS = "@TBLOGSEMAIL@";
my $PGENIDOMAIN = "@PROTOGENI_DOMAIN@";
my $PGENISUPPORT = @PROTOGENI_SUPPORT@;
my $MAINSITE = @TBMAINSITE@;
my $LOGFILE = "$TB/log/sa_daemon.log";
my $EMULAB_PEMFILE = "$TB/etc/genisa.pem";
my $CLEANUPSLICE = "$TB/sbin/cleanupslice";
......@@ -347,9 +348,16 @@ sub ExpireSlices()
my $emailaddr = (defined($geniuser) ? $geniuser->email() : undef);
my $urn = $slice->urn();
my $hrn = $slice->hrn();
my $slice_uuid= $slice->uuid();
print STDERR "Expiring $slice\n";
# Experimental
if ($MAINSITE) {
GeniDB::DBQueryWarn("delete from quickvms ".
"where slice_uuid='$slice_uuid'");
}
# Needs to move.
GeniSlice::ClientSliver->SliceDelete($slice);
......
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