diff options
author | Kristian Lyngstol <kristian@bohemians.org> | 2015-05-08 12:25:03 +0200 |
---|---|---|
committer | Kristian Lyngstol <kristian@bohemians.org> | 2015-05-08 12:25:03 +0200 |
commit | b504bf15f738c7ae3633af3dec14148e79b778f7 (patch) | |
tree | f0a3c650e9a80cf80c94453fab6bb109195203fa /tools/draw-neighbors.pl | |
parent | 5108aa44f5c8a1accf42c31cb9670e5dc87ec8a0 (diff) |
lldpdiscovery: More intelligence
Diffstat (limited to 'tools/draw-neighbors.pl')
-rwxr-xr-x | tools/draw-neighbors.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/draw-neighbors.pl b/tools/draw-neighbors.pl index 16ce551..323e676 100755 --- a/tools/draw-neighbors.pl +++ b/tools/draw-neighbors.pl @@ -10,7 +10,7 @@ while (<STDIN>) { my %assets = %{JSON::XS::decode_json($in)}; -print "digraph test {\n"; +print "strict graph network {\n"; while (my ($key, $value) = each %assets) { print_tree ($key,0,undef); } @@ -25,11 +25,11 @@ sub print_tree if ($indent > 50) { die "Possible loop detected."; } - print " \"$assets{$chassis_id}{sysName}\" -> {"; + print " \"$assets{$chassis_id}{sysName}\" -- {"; my @n; while (my ($key, $value) = each %{$assets{$chassis_id}{neighbors}}) { push @n, "\"$assets{$key}{sysName}\""; } - print join(",",@n) . "}\n"; + print join(",",@n) . "};\n"; } |