From 34aa9568d90c84296d1e1f631748e9aa44227802 Mon Sep 17 00:00:00 2001
From: Kristian Lyngstol <kristian@bohemians.org>
Date: Fri, 26 Feb 2016 11:32:15 +0100
Subject: tools: Make directory for lldp-misc

Cleaner this way
---
 tools/draw-neighbors.pl | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100755 tools/draw-neighbors.pl

(limited to 'tools/draw-neighbors.pl')

diff --git a/tools/draw-neighbors.pl b/tools/draw-neighbors.pl
deleted file mode 100755
index 323e676..0000000
--- a/tools/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";
-}
-
-- 
cgit v1.2.3