Commit ddb0288b authored by Mike Hibler's avatar Mike Hibler
Browse files

Fix a couple of error messages to reflect "vlansv3" instead of "v2".

parent a4450c51
#!/usr/bin/perl -w
#
# Copyright (c) 2004-2012 University of Utah and the Flux Group.
# Copyright (c) 2004-2014 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -365,7 +365,7 @@ sub RemoteDoList(@)
my $response = commonTail("list",$arg);
tbdie({cause => 'hardware'},
"elabinelab::vlansv2 returns '" . $response->{"code"} . "'\n")
"elabinelab::vlansv3 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::vlansv2 returned bogus info: '$xmlback'\n")
"elabinelab::vlansv3 returned bogus info: '$xmlback'\n")
if (!defined($num) || !defined($mems));
$Names{$num} = $name;
@{$Members{$num}} = ();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment