Skip to content
GitLab
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
990cec90
Commit
990cec90
authored
Feb 05, 2010
by
Srikanth
Browse files
corrected the number of arguments to lookup.
parent
03aad12c
Changes
1
Hide whitespace changes
Inline
Side-by-side
protogeni/scripts/genadmincredential.in
View file @
990cec90
...
...
@@ -18,6 +18,7 @@ sub CreateAdminCredential
{
my
$owner_urn
=
shift
;
my
$target_cm_urn
=
shift
;
#
# Must be an emulab user who is talking to us.
# If any of the URN specofoed is invalid do no accept.
...
...
@@ -25,7 +26,7 @@ sub CreateAdminCredential
return
GeniResponse
->
MalformedArgsResponse
();
}
my
$geniuser
=
GeniUser
->
Lookup
(
$owner_urn
);
my
$geniuser
=
GeniUser
->
Lookup
(
$owner_urn
,
1
);
if
(
!
defined
(
$geniuser
))
{
return
GeniResponse
->
Create
(
GENIRESPONSE_FORBIDDEN
,
undef
,
"
Who are you?
");
...
...
@@ -49,7 +50,7 @@ sub CreateAdminCredential
}
my
$val
=
CreateAdminCredential
@ARGV
;
print
$val
->
{"
code
"};
print
$val
->
{"
value
"};
print
STDERR
$val
->
{"
code
"};
print
STDERR
$val
->
{"
value
"};
print
$val
->
{"
output
"};
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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