Initial version

plugins/other/udp-statistics

@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+if ( $ARGV[0] ) {
+
+    if ( $ARGV[0] eq 'autoconf' ) {
+        if ( -r '/bin/netstat') {
+            print "yes\n";
+            exit 0;
+        }
+        print "no\n";
+        exit 0;
+
+    } elsif ( $ARGV[0] eq 'config' ) {
+        print <<EOM;
+graph_title UDP Statistics
+graph_args --base 1000 -l 0
+graph_vlabel Packets/\${graph_period}
+graph_category network
+received.label Received
+received.draw AREA
+received.type DERIVE
+received.min 0
+errors.label Errors
+errors.draw LINE1
+errors.type DERIVE
+errors.min 0
+sent.label Sent
+sent.draw LINE1
+sent.type DERIVE
+sent.min 0
+EOM
+        exit 0;
+    }
+}
+
+@netstat = qx{/bin/netstat -us | awk '/packets sent/          \{ print "sent.value " \$1 \}
+                                      /packets received/      \{ print "received.value " \$1 \}
+                                      /packet receive errors/ \{ print "errors.value " \$1 \}'};
+
+print @netstat;