Commit 28bb0764 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

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
# 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.
use English;
......@@ -144,10 +144,14 @@ else {
# Grab all the keys from the DB and stick into the file.
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()) {
print KEYS "$pubkey\n";
if (defined($pubkey)) {
print KEYS "$pubkey\n";
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