munin update

git-svn-id: svn+slack://slack.fluxo.info/var/svn/slackbuilds@852 370017ae-e619-0410-ac65-c121f96126d4

1 files changed, 113 insertions, 0 deletions

diff --git a/net/analyzer/munin/qos_ b/net/analyzer/munin/qos_
new file mode 100755
index 00000000..98bc80e9
--- /dev/null
+++ b/net/analyzer/munin/qos_
@@ -0,0 +1,113 @@
+#!/usr/bin/perl -w
+# -*- perl -*-
+# Wildcard plugin to monitor QoS queues.
+#
+# Requirements:
+# 	- tc program installed and in path
+#
+# Parameters supported:
+#
+# 	config
+# 	autoconf
+# 	suggest
+#
+# Configurable variables
+#
+# 	tc                - Override default program
+# 	ignore_queue<n>   - Queue with handle <n> (ex ignore_queue0 for root queue) not be plotted
+#       label_name<n>     - Queue with handle <n> as define label
+#
+# $Log$
+# Revision 1.1  2006/03/05 17:11:36  fra519
+#
+#
+# Magic markers:
+#%# family=manual
+#%# capabilities=autoconf suggest
+
+use strict;
+
+my $TC = $ENV{'tc'} || 'tc';
+
+if ($ARGV[0] and $ARGV[0] eq 'suggest') {
+  my $text = `egrep '^ *(eth|wlan|ath|ra)[0-9]+:' /proc/net/dev | cut -f1 -d:`;
+  print $text;
+  exit;
+}
+
+$0 =~ /qos_(.+)*$/;
+my $IFACE = $1;
+exit 2 unless defined $IFACE;
+
+if ( exists $ARGV[0] and $ARGV[0] eq 'autoconf' ) {
+  # Now see if "tc" can run
+  my $text = `$TC qdisc show dev $IFACE`;
+  if ($?) {
+    if ($? == -1) {
+      print "no (program $TC not found)\n";
+    } else {
+      print "no (program $TC died)\n";
+    }
+    exit 1;
+  }
+  print "yes\n";
+  exit 0;
+}
+
+my %queues;
+my $qdisc;
+my $queue;
+my $handle;
+my $one;
+my $sent;
+
+open(TEXT, "$TC -s qdisc show dev $IFACE|");
+while (! eof(TEXT)) {
+  ($qdisc, $queue, $handle) = split(" ", <TEXT>);
+  if ($qdisc eq "backlog") {
+    ($qdisc, $queue, $handle) = split(" ", <TEXT>);
+  }
+  ($one, $sent) = split(" ", <TEXT>);
+  $handle =~ s/://;
+  $queues{$handle} = {
+    queue => $queue,
+    handle => $handle,
+    sent => $sent
+  };
+}
+
+if ( exists $ARGV[0] and $ARGV[0] eq 'config' ) {
+  print "graph_title QoS queue on $IFACE\n";
+  print "graph_args --base 1000\n";
+  print "graph_vlabel bits per \${graph_period}\n";
+  print "graph_category network\n";
+  print "graph_info This graph shows the QoS queue of the $IFACE network interface.\n";
+  print "graph_order ";
+  foreach my $key (sort by_handle keys %queues) {
+    print $queues{$key}->{queue},$queues{$key}->{handle}, " ";
+  }
+  print "\n";
+  foreach my $key (sort by_handle keys %queues) {
+    print $queues{$key}->{queue},$queues{$key}->{handle}, ".label ";
+    if (exists $ENV{"label_name$queues{$key}->{handle}"}) {
+      print $ENV{"label_name$queues{$key}->{handle}"};
+    } else {
+      print $queues{$key}->{queue},$queues{$key}->{handle};
+    }
+    print "\n";
+    print $queues{$key}->{queue},$queues{$key}->{handle}, ".type COUNTER\n";
+    print $queues{$key}->{queue},$queues{$key}->{handle}, ".graph no\n" if exists $ENV{"ignore_queue$queues{$key}->{handle}"};
+    print $queues{$key}->{queue},$queues{$key}->{handle}, ".cdef ", $queues{$key}->{queue},$queues{$key}->{handle}, ",8,*\n";
+  }
+  exit 0;
+}
+
+sub by_handle {
+  return $a cmp $b;
+}
+
+foreach my $key (sort by_handle keys %queues) {
+  print $queues{$key}->{queue},$queues{$key}->{handle}, ".value ",$queues{$key}->{sent}, "\n";
+}
+#
+# vim:syntax=perl
\ No newline at end of file