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
9e2142b2
Commit
9e2142b2
authored
Feb 13, 2015
by
Leigh B Stoller
Browse files
Add RestartSliver() to reboot a node.
parent
5581e4e1
Changes
1
Hide whitespace changes
Inline
Side-by-side
apt/APT_Instance.pm.in
View file @
9e2142b2
...
...
@@ -651,6 +651,35 @@ sub SliceStatus($)
$
context
,
"SliverStatus"
,
$
args
);
}
#
#
Reboot
some
nodes
#
sub
RestartSliver
($@)
{
my
($
self
,
@
slivers
)
=
@
_
;
my
$
authority
=
$
self
->
GetGeniAuthority
();
my
$
geniuser
=
$
self
->
GetGeniUser
();
my
$
slice
=
$
self
->
GetGeniSlice
();
my
$
context
=
APT_Geni
::
GeniContext
();
return
undef
if
(
! (defined($geniuser) && defined($authority) &&
defined
($
slice
)
&&
defined
($
context
)));
my
($
slice_credential
,
$
speaksfor_credential
)
=
APT_Geni
::
GenCredentials
($
slice
,
$
geniuser
);
return
undef
if
(
! (defined($speaksfor_credential) &&
defined
($
slice_credential
)));
my
$
args
=
{
"sliver_urns"
=>
\@
slivers
,
"credentials"
=>
[$
slice_credential
->
asString
(),
$
speaksfor_credential
->
asString
()],
};
return
Genixmlrpc
::
CallMethod
($
authority
->
url
(),
$
context
,
"RestartSliver"
,
$
args
);
}
#
_Always_
make
sure
that
this
1
is
at
the
end
of
the
file
...
1
;
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