40 lines
920 B
Text
40 lines
920 B
Text
|
#!/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;
|