Gecko [ dataharbor.africa ]

Name	Size	Permission
apache_accesses	4.32 KB	-rwxr-xr-x
apache_processes	5.67 KB	-rwxr-xr-x
apache_volume	4.27 KB	-rwxr-xr-x
cpu	6.59 KB	-rwxr-xr-x
df	4.27 KB	-rwxr-xr-x
df_inode	4.34 KB	-rwxr-xr-x
diskstats	34.19 KB	-rwxr-xr-x
entropy	983 B	-rwxr-xr-x
exim_mailqueue	3.19 KB	-rwxr-xr-x
exim_mailstats	5.51 KB	-rwxr-xr-x
forks	1000 B	-rwxr-xr-x
fw_packets	1.68 KB	-rwxr-xr-x
http_loadtime	2.52 KB	-rwxr-xr-x
if_err_eth0	3.03 KB	-rwxr-xr-x
if_eth0	5.71 KB	-rwxr-xr-x
interrupts	2.08 KB	-rwxr-xr-x
irqstats	4.17 KB	-rwxr-xr-x
load	2.68 KB	-rwxr-xr-x
memory	8.85 KB	-rwxr-xr-x
munin_stats	3.42 KB	-rwxr-xr-x
mysql_bytes	1.71 KB	-rwxr-xr-x
mysql_innodb	5.35 KB	-rwxr-xr-x
mysql_queries	2.5 KB	-rwxr-xr-x
mysql_slowqueries	1.49 KB	-rwxr-xr-x
mysql_threads	1.6 KB	-rwxr-xr-x
netstat	2.83 KB	-rwxr-xr-x
open_files	1.38 KB	-rwxr-xr-x
open_inodes	1.05 KB	-rwxr-xr-x
proc_pri	1.44 KB	-rwxr-xr-x
processes	11.62 KB	-rwxr-xr-x
swap	1.21 KB	-rwxr-xr-x
threads	1.05 KB	-rwxr-xr-x
uptime	853 B	-rwxr-xr-x
users	2.44 KB	-rwxr-xr-x
vmstat	1.08 KB	-rwxr-xr-x

Code Editor : fw_packets

#!/usr/local/cpanel/3rdparty/perl/536/bin/perl -w
# -*- perl -*-

=head1 NAME

fw_packets - Plugin to monitor the throuhgput of a firewall

=head1 CONFIGURATION

This plugin must run with root privileges

=head1 CONFIGURATION EXAMPLE

/etc/munin/plugin-conf.d/global or other file in that dir must contain:

[fw*]
  user root

=head1 AUTHOR

Unknown author

=head1 LICENSE

GPLv2

=head1 MAGIC MARKERS

#%# family=auto
 #%# capabilities=autoconf

=cut

if ( $ARGV[0] ) {

if ( $ARGV[0] eq 'autoconf' ) {
	if ( -r '/proc/net/snmp') {
	    print "yes\n";
	    exit 0;
	}
	print "no\n";
	exit 0;

} elsif ( $ARGV[0] eq 'config' ) {
	print <<EOM;
graph_title Firewall Throughput
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
forwarded.label Forwarded
forwarded.draw LINE2
forwarded.type DERIVE
forwarded.min 0
EOM
# Is LINE1 better I wonder?  The lines are meant to show how large a
# portion of the total received packets gets forwarded.
# rejected.label rejected
# rejected.draw LINE2
# rejected.type COUNTER
	exit 0;
    }
}

open(F, "/proc/net/snmp") or die "Cannot read /proc/net/snmp: $!\n";

while (<F>) {
    if (/^Ip: \d/) {
	@ip = split;
	$forwarded = $ip[6];  #forwarded
	$received = $ip[3];   #received
	print "received.value $received\n";
	print "forwarded.value $forwarded\n";

# This calculation is invalid, the packet may have been
	# destined for the firewall, then the difference is wrong.  If
	# you firewall does not receive traffic itself it is correct
	# though.
	# 
	# print "rejected.value ", $received - $forwarded,"\n";
	last;
    }
}
close(F);

# vim:syntax=perl

${this.title}

Code Editor : fw_packets