Munin contributed plugins

#!/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;