Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
b3b6e74d
Commit
b3b6e74d
authored
Aug 14, 2014
by
Leigh B Stoller
Browse files
Minor fixes.
parent
42a13378
Changes
2
Hide whitespace changes
Inline
Side-by-side
protogeni/lib/GeniMA.pm.in
View file @
b3b6e74d
#
!/usr/bin/perl -wT
#
#
Copyright
(
c
)
2008
-
201
3
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2008
-
201
4
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
);
}
protogeni/lib/GeniStdSA.pm.in
View file @
b3b6e74d
#
!/usr/bin/perl -wT
#
#
Copyright
(
c
)
2008
-
201
3
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2008
-
201
4
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
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment