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
4cdd0b03
Commit
4cdd0b03
authored
Feb 11, 2010
by
Leigh B Stoller
Browse files
Add in missing routine
parent
9d1c26f3
Changes
1
Hide whitespace changes
Inline
Side-by-side
protogeni/lib/GeniSlice.pm.in
View file @
4cdd0b03
#
!/usr/bin/perl -wT
#
#
GENIPUBLIC
-
COPYRIGHT
#
Copyright
(
c
)
2008
-
200
9
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2008
-
20
1
0
University
of
Utah
and
the
Flux
Group
.
#
All
rights
reserved
.
#
package
GeniSlice
;
...
...
@@ -558,6 +558,30 @@ sub SetShutdown($$)
return
0
;
}
#
#
Set
the
experiment
pointer
from
a
slice
to
the
emulab
experiment
.
#
sub
SetExperiment
($$)
{
my
($
self
,
$
experiment
)
=
@
_
;
my
$
uuid
=
$
self
->
uuid
();
my
$
token
=
"NULL"
;
if
(
defined
($
experiment
))
{
$
token
=
"'"
.
$
experiment
->
idx
()
.
"'"
;
}
my
$
query_result
=
DBQueryWarn
(
"update geni_slices set exptidx=$token "
.
"where uuid='$uuid'"
);
return
-
1
if
(
!$query_result);
$
self
->{
'SLICE'
}->{
'exptidx'
}
=
(
defined
($
experiment
)
?
$
experiment
->
idx
()
:
undef
);
return
0
;
}
#
#
Set
the
needsfirewall
field
.
#
...
...
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