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
896d5768
Commit
896d5768
authored
Oct 08, 2013
by
Leigh B Stoller
Browse files
Add set/get for the slice name field.
parent
9b895f95
Changes
1
Hide whitespace changes
Inline
Side-by-side
protogeni/lib/GeniSlice.pm.in
View file @
896d5768
...
...
@@ -306,6 +306,7 @@ sub expires($) { return field($_[0], "expires"); }
sub
sa_uuid
($)
{
return
field
($
_
[
0
],
"sa_uuid"
);
}
sub
exptidx
($)
{
return
field
($
_
[
0
],
"exptidx"
);
}
sub
needsfirewall
($)
{
return
field
($
_
[
0
],
"needsfirewall"
);
}
sub
name
($)
{
return
field
($
_
[
0
],
"name"
);
}
sub
registered
($)
{
return
field
($
_
[
0
],
"registered"
);
}
sub
isplaceholder
($)
{
return
field
($
_
[
0
],
"isplaceholder"
);
}
sub
monitor_pid
($)
{
return
field
($
_
[
0
],
"monitor_pid"
);
}
...
...
@@ -1082,6 +1083,23 @@ sub SetFirewallFlag($$)
return
0
;
}
#
#
Set
the
name
field
.
#
sub
SetName
($$)
{
my
($
self
,
$
name
)
=
@
_
;
my
$
uuid
=
$
self
->
uuid
();
my
$
safe_name
=
DBQuoteSpecial
($
name
);
DBQueryWarn
(
"update geni_slices set name=$safe_name "
.
"where uuid='$uuid'"
)
or
return
-
1
;
$
self
->{
'SLICE'
}->{
'name'
}
=
$
name
;
return
0
;
}
#
#
Set
the
registered
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