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
6247a153
Commit
6247a153
authored
Feb 09, 2015
by
Leigh B Stoller
Browse files
Add some debugging.
parent
b5ba4d46
Changes
2
Hide whitespace changes
Inline
Side-by-side
tbsetup/snmpit_test/snmpit_lib.pm
View file @
6247a153
#!/usr/bin/perl -w
#
# Copyright (c) 2000-201
3
University of Utah and the Flux Group.
# Copyright (c) 2000-201
5
University of Utah and the Flux Group.
#
# {{{EMULAB-LGPL
#
...
...
@@ -55,7 +55,7 @@ use Exporter;
convertPortFromString convertPortsFromStrings
mapVlansToSwitches mapStaleVlansToSwitches
getTrunksForVlan getExperimentTrunksForVlan
setSwitchTrunkPath mapPortsToSwitches
setSwitchTrunkPath mapPortsToSwitches
findAndDumpLan
)
;
use
English
;
...
...
@@ -69,6 +69,7 @@ use strict;
use
SNMP
;
use
Port
;
use
Carp
qw(cluck)
;
use
Data::
Dumper
;
my
$TBOPS
=
libtestbed::
TB_OPSEMAIL
;
...
...
@@ -2014,6 +2015,16 @@ sub uniq_ports(@) {
return
@pts
;
}
sub
findAndDumpLan
($)
{
my
(
$lan_id
)
=
@_
;
my
$lan
=
Lan
->
Lookup
(
$lan_id
);
return
if
(
!
defined
(
$lan
));
print
STDERR
Dumper
(
$lan
->
{'
LAN
'})
.
"
\n
";
}
# End with true
1
;
...
...
tbsetup/snmpit_test/snmpit_stack.pm
View file @
6247a153
#!/usr/bin/perl -w
#
# Copyright (c) 2000-201
3
University of Utah and the Flux Group.
# Copyright (c) 2000-201
5
University of Utah and the Flux Group.
# Copyright (c) 2004-2009 Regents, University of California.
#
# {{{EMULAB-LGPL
...
...
@@ -487,6 +487,9 @@ sub newVlanNumber($$$) {
"
*** desired vlan tag
$number
for vlan
$vlan_id
already in
"
.
"
use
"
.
(
$vlan_using_tag
?
"
by vlan
$vlan_using_tag
"
:
"")
.
"
\n
";
if
(
$vlan_using_tag
)
{
snmpit_lib::
findAndDumpLan
(
$vlan_using_tag
);
}
# Indicates no tag assigned.
return
0
;
}
...
...
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