Commit 75ae3532 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Minor fix to ignore interfaces that are not wired up, when creating the

big shared lan for the shared nodes experiment.
parent 080bd9f4
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2005-2009 University of Utah and the Flux Group.
# Copyright (c) 2005-2010 University of Utah and the Flux Group.
# All rights reserved.
#
package Interface;
......@@ -141,6 +141,7 @@ sub type($) { return field($_[0], 'interface_type'); }
sub mask($) { return field($_[0], 'mask'); }
sub uuid($) { return field($_[0], 'uuid'); }
# Wires table
sub wiredup($) { return exists($_[0]->{'WIRES'}); }
sub wire_type($) { return $_[0]->{'WIRES'}->{'type'}; }
sub switch_id($) { return $_[0]->{'WIRES'}->{'node_id2'}; }
sub switch_card($) { return $_[0]->{'WIRES'}->{'card2'}; }
......
......@@ -4657,7 +4657,8 @@ sub InterpLinks($)
my $type = $interface->type();
next
if ($interface->role() ne TBDB_IFACEROLE_EXPERIMENT());
if ($interface->role() ne TBDB_IFACEROLE_EXPERIMENT() ||
!$interface->wiredup());
$protovlan->AddMember($pnodename, $iface);
......
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