Skip to content
GitLab
Menu
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
6b7e7cf1
Commit
6b7e7cf1
authored
Aug 22, 2017
by
Leigh B Stoller
Browse files
Add Dump() methods for Interface and Interface::Wire
parent
8c4f6138
Changes
1
Hide whitespace changes
Inline
Side-by-side
db/Interface.pm.in
View file @
6b7e7cf1
...
...
@@ -810,6 +810,25 @@ sub Stringify($)
return "[Interface: $nodeid:$iface]";
}
#
# Dump for debugging.
#
sub Dump($)
{
my ($self) = @_;
print "Node: " . $self->node_id() . "\n";
print "Iface: " . $self->iface() . "\n";
print "Card: " . $self->card() . "\n";
print "Port: " . $self->port() . "\n";
print "Type: " . $self->type() . "\n";
print "Role: " . $self->role() . "\n";
print "Trunk: " . $self->trunk() . "\n";
print "IP: " . $self->IP() . "\n";
print "MAC: " . $self->mac() . "\n";
return 0;
}
#
# Temporary cruft for geni widearea switches.
#
...
...
@@ -1245,6 +1264,8 @@ sub port2($) { return $_[0]->field('port2'); }
sub iface1($) { return $_[0]->field('
iface1
'); }
sub iface2($) { return $_[0]->field('
iface2
'); }
sub type($) { return $_[0]->field('
type
'); }
sub cable($) { return $_[0]->field('
cable
'); }
sub len($) { return $_[0]->field('
len
'); }
sub logical($) { return $_[0]->field('
logical
'); }
sub trunkid($) { return $_[0]->field('
trunkid
'); }
sub IsActive($) { return ($_[0]->type() eq "Unused" ? 0 : 1); }
...
...
@@ -1428,6 +1449,29 @@ sub Stringify($)
return "[$type: $node1:$card1:$port1/$node2:$card2:$port2]";
}
#
# Dump for debugging.
#
sub Dump($)
{
my ($self) = @_;
print "Node1: " . $self->node_id1() . "\n";
print "Iface1: " . $self->iface1() . "\n";
print "Card1: " . $self->card1() . "\n";
print "Port1: " . $self->port1() . "\n";
print "Node2: " . $self->node_id2() . "\n";
print "Iface2: " . $self->iface2() . "\n";
print "Card2: " . $self->card2() . "\n";
print "Port2: " . $self->port2() . "\n";
print "Type: " . $self->type() . "\n";
if ($self->cable()) {
print "Cable: " . $self->cable() . "\n";
print "Length: " . $self->len() . "\n";
}
return 0;
}
sub Update($$)
{
my ($self, $argref) = @_;
...
...
Write
Preview
Supports
Markdown
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