Commit 126154b5 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor fix to Resolve(); use a self credential.

parent e21fc44a
#!/usr/bin/perl -wT
#
# GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2010 University of Utah and the Flux Group.
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# All rights reserved.
#
package GeniAuthority;
......@@ -513,9 +513,14 @@ sub Resolve($$)
return undef;
}
my $context = Genixmlrpc->GetContext();
my $credential = GeniCredential->GetSelfCredential($self);
my $me = GeniAuthority->Lookup($context->certificate()->uuid());
if (!defined($me)) {
print STDERR "Could not find my own authority for $context\n";
return undef;
}
my $credential = GeniCredential->GetSelfCredential($me);
if (!defined($credential)) {
print STDERR "Could not create self credential for $self\n";
print STDERR "Could not create self credential for $me\n";
return undef;
}
......
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