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
ddb0288b
Commit
ddb0288b
authored
Apr 25, 2014
by
Mike Hibler
Browse files
Fix a couple of error messages to reflect "vlansv3" instead of "v2".
parent
a4450c51
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/snmpit_test/snmpit_remote.pm.in
View file @
ddb0288b
#
!/usr/bin/perl -w
#
#
Copyright
(
c
)
2004
-
201
2
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2004
-
201
4
University
of
Utah
and
the
Flux
Group
.
#
#
{{{
EMULAB
-
LICENSE
#
...
...
@@ -365,7 +365,7 @@ sub RemoteDoList(@)
my
$
response
=
commonTail
(
"list"
,$
arg
);
tbdie
({
cause
=>
'hardware'
},
"elabinelab::vlansv
2
returns '"
.
$
response
->{
"code"
}
.
"'
\n
"
)
"elabinelab::vlansv
3
returns '"
.
$
response
->{
"code"
}
.
"'
\n
"
)
if
($
response
->{
"code"
});
my
$
xmlback
=
$
response
->{
"value"
};
if
(
!defined($xmlback) || $xmlback eq "") { return @list; }
...
...
@@ -378,7 +378,7 @@ sub RemoteDoList(@)
foreach
my
$
vlres
(
split
','
,
$
xmlback
)
{
my
($
name
,
$
num
,
$
mems
)
=
split
'#'
,
$
vlres
;
tbdie
({
cause
=>
'hardware'
},
"elabinelab::vlansv
2
returned bogus info: '$xmlback'
\n
"
)
"elabinelab::vlansv
3
returned bogus info: '$xmlback'
\n
"
)
if
(
!defined($num) || !defined($mems));
$
Names
{$
num
}
=
$
name
;
@{$
Members
{$
num
}}
=
();
...
...
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