diff options
| author | Kristian Lyngstol <kristian@bohemians.org> | 2015-05-04 09:51:18 +0200 |
|---|---|---|
| committer | Kristian Lyngstol <kristian@bohemians.org> | 2015-05-04 09:51:18 +0200 |
| commit | 018186eba522de5b96e5583dc9ddbef28da8e245 (patch) | |
| tree | f3101ac31a2c53b55aa17373e1b12cc0e260cbd0 /tools/lldpdiscover.pl | |
| parent | 4c08d48e712b2475d61cbba8785549be12021e60 (diff) | |
Add draw-neighbors.pl to utilize lldpdiscover.pl output
Diffstat (limited to 'tools/lldpdiscover.pl')
| -rwxr-xr-x | tools/lldpdiscover.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tools/lldpdiscover.pl b/tools/lldpdiscover.pl index 9dccd7b..711292c 100755 --- a/tools/lldpdiscover.pl +++ b/tools/lldpdiscover.pl @@ -6,7 +6,7 @@ use strict; use warnings; use Data::Dumper; -use lib 'tgmanage/include'; +use lib '../include'; use nms; # Actual assets detected, indexed by chassis ID @@ -19,12 +19,13 @@ my @chassis_ids_to_check; # If we are given one switch on the command line, add that and then exit. my ($cmdline_ip, $cmdline_community) = @ARGV; if (defined($cmdline_ip) && defined($cmdline_community)) { + my $chassis_id; eval { # Special-case for the first switch is to fetch chassis id # directly. Everything else is fetched from a neighbour # table. my $session = nms::snmp_open_session($cmdline_ip, $cmdline_community); - my $chassis_id = get_lldp_chassis_id($session); + $chassis_id = get_lldp_chassis_id($session); $assets{$chassis_id}{'community'} = $cmdline_community; @{$assets{$chassis_id}{'v4mgmt'}} = ($cmdline_ip); @{$assets{$chassis_id}{'v6mgmt'}} = (); @@ -53,11 +54,12 @@ if (defined($cmdline_ip) && defined($cmdline_community)) { } } print JSON::XS::encode_json(\%assets); + # Creates corrupt output, hooray. +# print JSON::XS->new->pretty(1)->encode(\%assets); exit; } else { print "RTFSC\n"; } - # Filter out stuff we don't scan. Return true if we care about it. # XXX: Several of these things are temporary to test (e.g.: AP). sub filter { |