fix for keysubdirs-as-groups sugar script to support "old style multi-keys" for users

This commit is contained in:
Andrew Page 2012-10-29 17:15:52 -06:00
parent a802071a5e
commit 2aa129bc70

View file

@ -20,7 +20,7 @@ sub groupnames {
my @out = ();
my %members = ();
for my $pk (`find ../keydir/ -name "*.pub"`) {
next unless $pk =~ m(.*/([^/]+)/([^/]+)\.pub$);
next unless $pk =~ m(.*/([^/]+)/([^/]+?)(?:@[^./]+)?\.pub$);
next if $1 eq 'keydir';
$members{$1} .= " $2";
}