Commit 28bb0764 authored by Leigh Stoller's avatar Leigh Stoller

Do not include SFS keys in regen for users who are no longer active

(frozen) or for webonly users.
parent a84849f0
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group. # Copyright (c) 2000-2003 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use English; use English;
...@@ -144,10 +144,14 @@ else { ...@@ -144,10 +144,14 @@ else {
# Grab all the keys from the DB and stick into the file. # Grab all the keys from the DB and stick into the file.
# #
my $query_result = my $query_result =
DBQueryFatal("select pubkey from user_sfskeys"); DBQueryFatal("select sfs.pubkey from users as u ".
"left join user_sfskeys as sfs on sfs.uid=u.uid ".
"where u.status='active' and u.webonly=0");
while (my ($pubkey) = $query_result->fetchrow_array()) { while (my ($pubkey) = $query_result->fetchrow_array()) {
print KEYS "$pubkey\n"; if (defined($pubkey)) {
print KEYS "$pubkey\n";
}
} }
close(KEYS); close(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