Commit b3b6e74d authored by Leigh B Stoller's avatar Leigh B Stoller

Minor fixes.

parent 42a13378
#!/usr/bin/perl -wT
#
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
# Copyright (c) 2008-2014 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -187,19 +187,27 @@ sub GetCredentials($$$)
sub CreateKey($$$)
{
my ($member_urn, $credential_args, $options) = @_;
return GeniResponse->Create(GENIRESPONSE_NOT_IMPLEMENTED);
}
sub DeleteKey($$$$)
{
my ($member_urn, $key_id, $credentials, $options) = @_;
return GeniResponse->Create(GENIRESPONSE_NOT_IMPLEMENTED);
}
sub UpdateKey($$$$)
{
my ($member_urn, $key_id, $credentials, $options) = @_;
return GeniResponse->Create(GENIRESPONSE_NOT_IMPLEMENTED);
}
sub LookupKeys($$)
{
my ($credentials, $options) = @_;
return GeniResponse->Create(GENIRESPONSE_NOT_IMPLEMENTED);
}
#!/usr/bin/perl -wT
#
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
# Copyright (c) 2008-2014 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -55,7 +55,7 @@ sub GetVersion()
{
my $blob = {
"VERSION" => $coder->string("0.1"),
"SERVICES" => ["SLICE", "SLIVER_INFO", "SLICE_MEMBER"],
"SERVICES" => ["SLICE", "SLICE_MEMBER"],
"CREDENTIAL_TYPES" => ["SFA"], # => [$coder->string("3")]],
"ROLES" => ["AUTHORITY", "ADMIN", "MEMBER"]
};
......@@ -245,8 +245,8 @@ sub ModifySliceMembership()
my $i = 0;
foreach my $current (@{ $adding }) {
if (exists($adding->{'SLICE_MEMBER'})) {
$params->{"urn"} = $adding->{'SLICE_MEMBER'};
if (exists($current->{'SLICE_MEMBER'})) {
$params->{"urn"} = $current->{'SLICE_MEMBER'};
my $result = GeniSA::BindToSlice($params);
if (GeniResponse::IsError($result)) {
return $result;
......
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