aboutsummaryrefslogtreecommitdiffstats
path: root/web/api/read/distro-tree
diff options
context:
space:
mode:
authorOle Mathias Heggem <ole@sdok.no>2017-04-19 23:16:07 +0200
committerOle Mathias Heggem <ole@sdok.no>2017-04-19 23:16:07 +0200
commit7b97188b728c85c498acc8acdce1750c472f2c85 (patch)
tree12c1436ab7eb97e9434e774671e8ffea134d61db /web/api/read/distro-tree
parentf70f65f7466a480a45a8260b35887cb7ed36b466 (diff)
parent7d404abf07d865d253ac2cfc353741e8d4af4867 (diff)
Merge remote-tracking branch 'refs/remotes/tech-server/master'
Diffstat (limited to 'web/api/read/distro-tree')
-rwxr-xr-xweb/api/read/distro-tree25
1 files changed, 0 insertions, 25 deletions
diff --git a/web/api/read/distro-tree b/web/api/read/distro-tree
deleted file mode 100755
index 5d93e1b..0000000
--- a/web/api/read/distro-tree
+++ /dev/null
@@ -1,25 +0,0 @@
-#! /usr/bin/perl
-# vim:ts=8:sw=8
-
-use CGI qw(fatalsToBrowser);
-use DBI;
-use lib '/opt/gondul/include';
-use nms;
-use nms::web;
-use strict;
-use warnings;
-use Data::Dumper;
-
-$nms::web::cc{'max-age'} = "20";
-
-my $q2 = $nms::web::dbh->prepare('select sysname,distro_phy_port,distro_name from switches where placement is not null and distro_name is not null and distro_phy_port is not null');
-
-$q2->execute();
-while (my $ref = $q2->fetchrow_hashref()) {
- my $sysname = $ref->{'sysname'};
- my $phy = $ref->{'distro_phy_port'};
- my $distro = $ref->{'distro_name'};
- $nms::web::json{'distro-tree'}{$distro}{$phy} = $sysname;
-}
-
-finalize_output();