1 files changed, 0 insertions, 35 deletions
diff --git a/tools/lldp/draw-neighbors.pl b/tools/lldp/draw-neighbors.pl
deleted file mode 100755
index 323e676..0000000
--- a/tools/lldp/draw-neighbors.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use JSON;
-
-my $in;
-while (<STDIN>) {
-	$in .= $_;
-}
-
-my %assets = %{JSON::XS::decode_json($in)};
-
-print "strict graph network {\n";
-while (my ($key, $value) = each %assets) {
-	print_tree ($key,0,undef);
-}
-print "}\n";
-
-sub print_tree
-{
-	my ($chassis_id,$indent,$parent,$max) = @_;
-	if (!defined($parent)) {
-		$parent = "";
-	}
-	if ($indent > 50) {
-		die "Possible loop detected.";
-	}
-	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";
-}
-