Commit 948c2d53 authored by Leigh Stoller's avatar Leigh Stoller

Add RevokeSSLCerts() method.

parent 0f06c9a2
#!/usr/bin/perl -wT
#
# Copyright (c) 2005-2012 University of Utah and the Flux Group.
# Copyright (c) 2005-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -1151,6 +1151,31 @@ sub SSLCert($$$;$)
return 0;
}
#
# Revoke ssl certificates.
#
sub RevokeSSLCerts($)
{
my ($self) = @_;
# Must be a real reference.
return -1
if (! ref($self));
my $uid_idx = $self->uid_idx();
#
# Do not delete certs; we need them around so we can generte the CRLS.
# Just set the revoked flag for them. At some point we need to prune
# the table.
#
DBQueryWarn("update user_sslcerts set revoked=now() ".
"where uid_idx='$uid_idx' and revoked is null")
or return -1;
return 0;
}
#
# Get user ssh keys, but do not include the "internal" keys, which
# are the Emulab generated unencrypted keys.
......
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