From 34c1f534b13075d4dbf84d605c5972016ecebe7a Mon Sep 17 00:00:00 2001
From: Alex Tomlins <alex.tomlins@unboxedconsulting.com>
Date: Fri, 23 Sep 2011 16:46:18 +0200
Subject: [PATCH] Initial version

---
 plugins/other/http__tp_link | 76 +++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100755 plugins/other/http__tp_link

diff --git a/plugins/other/http__tp_link b/plugins/other/http__tp_link
new file mode 100755
index 00000000..54a7eb5f
--- /dev/null
+++ b/plugins/other/http__tp_link
@@ -0,0 +1,76 @@
+#!/usr/bin/env ruby
+
+if $0 =~ /^(?:|.*\/)http_([^_]+)_/
+  host = $1
+end
+abort "# Error: couldn't understand what I'm supposed to monitor." unless host
+
+user = ENV['user'] || 'user'
+password = ENV['password'] || 'user'
+
+if (ARGV[0] == 'config')
+  puts "host_name #{host}" unless host == 'localhost'
+
+  puts "multigraph dsl_rate"
+  puts "graph_title DSL line speed"
+  puts "graph_args --base 1000 -l 0"
+  puts "graph_vlabel bps"
+  puts "graph_category network"
+  puts "downstream.label downstream"
+  puts "downstream.type GAUGE"
+  puts "downstream.min 0"
+  puts "downstream.cdef downstream,1000,*"
+  puts "upstream.label upstream"
+  puts "upstream.type GAUGE"
+  puts "upstream.min 0"
+  puts "upstream.cdef upstream,1000,*"
+
+  puts "multigraph dsl_snr"
+  puts "graph_title DSL SNR"
+  puts "graph_args --base 1000 -l 0"
+  puts "graph_vlabel dB"
+  puts "graph_scale no"
+  puts "graph_category network"
+  puts "downstream.label downstream"
+  puts "downstream.type GAUGE"
+  puts "downstream.min 0"
+  puts "upstream.label upstream"
+  puts "upstream.type GAUGE"
+  puts "upstream.min 0"
+
+  exit 0
+end
+
+require 'net/http'
+
+class TPAdslStats
+  def initialize(host, user, password)
+    Net::HTTP.start( host ) do |http|
+      req = Net::HTTP::Get.new('/statsadsl.html')
+      req.basic_auth user, password
+      response = http.request(req)
+      abort "# Error: #{response.code} received fetching stats" unless response.is_a?(Net::HTTPSuccess)
+      @html = response.body
+    end
+  end
+
+  def field_values(label)
+    if @html =~ />#{label}.*?<td>([0-9.]+).*?([0-9.]+)/m
+      [$1, $2]
+    else
+      ['U', 'U']
+    end
+  end
+end
+
+stats = TPAdslStats.new(host, user, password)
+
+puts "multigraph dsl_rate"
+rate = stats.field_values('Rate')
+puts "downstream.value #{rate[0]}"
+puts "upstream.value #{rate[1]}"
+
+puts "multigraph dsl_snr"
+snr = stats.field_values('SNR')
+puts "downstream.value #{snr[0]}"
+puts "upstream.value #{snr[1]}"