Commit b344bf83 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Delete any cached credentials for the slice when expiring. Also delete

any leftover sliver registrations.
parent 2c53e540
......@@ -81,6 +81,7 @@ require GeniDB;
require GeniUtil;
require GeniSlice;
require GeniCertificate;
require GeniCredential;
require GeniUser;
require libGeni;
use Experiment;
......@@ -296,6 +297,13 @@ sub ExpireSlices()
my $hrn = $slice->hrn();
print STDERR "Expiring $slice\n";
# Needs to move.
GeniRegistry::ClientSliver->SliceDelete($slice);
# Remove any stored credentials for this slice.
GeniCredential->DeleteForTarget($slice);
system("$CLEANUPSLICE -f -s $idx");
if (! $?) {
$slice->UnLock();
......
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