Commit 93ea63ba authored by Leigh Stoller's avatar Leigh Stoller

Revoke all certs for a user, not just encrypted.

parent f8065fde
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2008-2011 University of Utah and the Flux Group. # Copyright (c) 2008-2013 University of Utah and the Flux Group.
# #
# {{{GENIPUBLIC-LICENSE # {{{GENIPUBLIC-LICENSE
# #
...@@ -167,8 +167,7 @@ my $query_result = ...@@ -167,8 +167,7 @@ my $query_result =
DBQueryWarn("select idx,DN,UNIX_TIMESTAMP(created), ". DBQueryWarn("select idx,DN,UNIX_TIMESTAMP(created), ".
" UNIX_TIMESTAMP(revoked) ". " UNIX_TIMESTAMP(revoked) ".
" from user_sslcerts ". " from user_sslcerts ".
"where encrypted=1 and revoked is not null ". "where revoked is not null and expires > NOW()");
"and expires > NOW()");
if (!$query_result) { if (!$query_result) {
fatal("Could not get the crl list from the DB"); fatal("Could not get the crl list from the DB");
} }
......
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