1 files changed, 0 insertions, 80 deletions
diff --git a/web/nms.gathering.org/old/nettkart-json.pl b/web/nms.gathering.org/old/nettkart-json.pl
deleted file mode 100755
index e95920e..0000000
--- a/web/nms.gathering.org/old/nettkart-json.pl
+++ /dev/null
@@ -1,80 +0,0 @@
-#! /usr/bin/perl
-use CGI;
-use DBI;
-use POSIX;
-use lib '../../include';
-use strict;
-use warnings;
-use nms;
-use JSON::XS;
-use Digest::MD5;
-
-my $cgi = CGI->new;
-my $secret = $cgi->param('secret');
-my $secret2 = $cgi->param('secret2');
-my $noise = $cgi->param('noise') // 0;
-my $fade_time = 0.0;
-if (defined($secret2)) {
-	my $phase = $cgi->param('phase');
-	my $period = $cgi->param('period');
-	$fade_time = sin((time - $phase) * 2.0 * 3.14159265358 / $period) * 0.5 + 0.5;
-}
-my $dbh = nms::db_connect();
-
-my %json = ();
-my $q = $dbh->prepare("select * from ( SELECT switch,sysname,sum(ifhcinoctets) AS ifhcinoctets,sum(ifhcoutoctets) AS ifhcoutoctets from switches natural left join get_current_datarate() where ip <> inet '127.0.0.1' group by switch,sysname) t1 natural join placements order by zorder;");
-$q->execute();
-while (my $ref = $q->fetchrow_hashref()) {
-
-	# for now:
-	# 10Mbit/switch = green
-	# 100Mbit/switch = yellow
-	# 1Gbit/switch = red
-	# 10Gbit/switch = white
-	
-	my $clr;
-
-	if (defined($ref->{'ifhcinoctets'})) {
-		my $intensity = 0.0;
-		my $traffic = 4.0 * ($ref->{'ifhcinoctets'} + $ref->{'ifhcoutoctets'});  # average and convert to bits (should be about the same in practice)
-
-		my $max = 100_000_000_000.0;   # 100Gbit
-		my $min =      10_000_000.0;   # 10Mbit
-		if ($traffic >= $min) {
-			$intensity = log($traffic / $min) / log(10);
-
-			my $fudge1 = oct('0x'.substr(Digest::MD5::md5_hex($ref->{'sysname'} . $cgi->param('secret')), 0, 8));
-			my $fudge2 = oct('0x'.substr(Digest::MD5::md5_hex($ref->{'sysname'} . $cgi->param('secret2')), 0, 8));
-			$intensity += ($fudge1 + ($fudge2 - $fudge1) * $fade_time) * $noise;
-
-			$intensity = 4.0 if ($intensity > 4.0);
-		}
-		$clr = get_color($intensity);
-	} else {
-		$clr = [ 0, 0, 255 ];
-	}
-
-	$clr = sprintf("#%02x%02x%02x",
-		POSIX::floor($clr->[0] + 0.5),
-		POSIX::floor($clr->[1] + 0.5),
-		POSIX::floor($clr->[2] + 0.5));
-
-	$json{'switches'}{$ref->{'switch'}}{'color'} = $clr;
-}
-$dbh->disconnect;
-print CGI::header(-type=>'text/json; charset=utf-8');
-print JSON::XS::encode_json(\%json);
-
-sub get_color {
-	my $intensity = shift;
-	my $gamma = 1.0/1.90;
-	if ($intensity > 3.0) {
-		return [ 255.0 * ((4.0 - $intensity) ** $gamma), 255.0 * ((4.0 - $intensity) ** $gamma), 255.0 * ((4.0 - $intensity) ** $gamma) ];
-	} elsif ($intensity > 2.0) {
-		return [ 255.0, 255.0 * (($intensity - 2.0) ** $gamma), 255.0 * (($intensity - 2.0) ** $gamma) ];
-	} elsif ($intensity > 1.0) {
-		return [ 255.0, 255.0 * ((2.0 - $intensity) ** $gamma), 0 ];
-	} else {
-		return [ 255.0 * ($intensity ** $gamma), 255, 0 ];
-	}
-}