Commit d028cfc6 authored by Leigh B Stoller's avatar Leigh B Stoller

Remove direct query to wires table, use Interface::Wire->Lookup().

parent 65b3648a
# Copyright (c) 2000-2007 University of Utah and the Flux Group.
# Copyright (c) 2000-2017 University of Utah and the Flux Group.
......@@ -126,22 +126,24 @@ foreach my $vlan (@vlans) {
my $iface;
if ($member->GetNodeIface(\$node, \$iface) != 0) {
die("*** $0:\n".
" Missing attributes for $member in $vlan\n");
print STDERR "Missing attributes for $member in $vlan\n";
my $nodeid = $node->node_id();
# Find out which switch this interface is connected to
my $result2 =
DBQueryFatal("select node_id2 from wires as w ".
"left join interfaces as i on ".
" w.node_id1=i.node_id AND w.card1=i.card " .
"where node_id='$nodeid' and iface='$iface'");
# We assume only one response here!
my ($switch) = $result2->fetchrow_array();
my $interface = Interface->LookupByIface($nodeid, $iface);
if (!defined($interface)) {
print STDERR "No interface for $nodeid:$iface\n";
if (!$interface->wiredup()) {
print STDERR "Interface for $nodeid:$iface is not wired up\n";
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