Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emulab
emulab-devel
Commits
fe872340
Commit
fe872340
authored
Mar 28, 2009
by
Leigh B. Stoller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More fixes.
parent
0e9ba5e7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
5 deletions
+10
-5
protogeni/lib/GeniCM.pm.in
protogeni/lib/GeniCM.pm.in
+10
-5
No files found.
protogeni/lib/GeniCM.pm.in
View file @
fe872340
...
...
@@ -880,7 +880,9 @@ sub ModifySliver($$$$$$)
}
elsif
(
ref
($
s
)
eq
"GeniAggregate::Link"
||
ref
($
s
)
eq
"GeniAggregate::Tunnel"
)
{
$
linklist
{$
s
->
uuid
()}
=
$
s
;
#
XXX
See
the
constructor
in
GeniAggregate
.
my
($
linkname
)
=
($
s
->
hrn
()
=~
/\.([-\
w
]*)$/);
$
linklist
{$
linkname
}
=
$
s
;
}
else
{
return
GeniResponse
->
Create
(
GENIRESPONSE_UNSUPPORTED
,
undef
,
...
...
@@ -1064,14 +1066,13 @@ sub ModifySliver($$$$$$)
#
We
need
to
tear
down
links
that
are
no
longer
in
the
rspec
or
#
have
changed
.
#
foreach
my
$
s
(
values
(%
linklist
))
{
#
XXX
See
the
constructor
in
GeniAggregate
.
my
($
linkname
)
=
($
s
->
hrn
()
=~
/\.([-\
w
]*)$/);
foreach
my
$
linkname
(
keys
(%
linklist
))
{
if
(
!exists($rspec->{'link'}) ||
!exists($rspec->{'link'}->{$linkname})) {
my
$
s
=
$
linklist
{$
linkname
};
$
s
->
UnProvision
();
$
s
->
Delete
(
0
);
delete
($
linklist
{$
linkname
});
next
;
}
}
...
...
@@ -1150,6 +1151,10 @@ sub ModifySliver($$$$$$)
}
my
$
linkref
=
$
rspec
->{
'link'
}->{$
linkname
};
#
Do
not
worry
about
modifying
a
link
that
is
setup
.
Later
.
next
if
(
grep
{$
_
eq
$
linkname
}
keys
(%
linklist
));
#
#
XXX
Tunnels
are
a
total
kludge
right
now
...
#
...
...
Write
Preview
Markdown
is supported
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