Commit a78fd522 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Return ssh public keys when resolving a user.

parent d498a808
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# GENIPUBLIC-COPYRIGHT # GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2011 University of Utah and the Flux Group. # Copyright (c) 2008-2012 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
package GeniSA; package GeniSA;
...@@ -312,6 +312,13 @@ sub Resolve($) ...@@ -312,6 +312,13 @@ sub Resolve($)
} }
$blob->{'subauthorities'} = \%subsas; $blob->{'subauthorities'} = \%subsas;
} }
my @keys = ();
if ($geniuser->GetKeyBundle(\@keys) != 0) {
print STDERR "Could not get keys for $geniuser\n";
return GeniResponse->Create(GENIRESPONSE_ERROR, undef,
"Could not get public keys");
}
$blob->{'pubkeys'} = \@keys;
} }
return GeniResponse->Create(GENIRESPONSE_SUCCESS, $blob); return GeniResponse->Create(GENIRESPONSE_SUCCESS, $blob);
......
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