ipf-mrtg.pl revision 153878 
1#!/usr/local/bin/perl
2# reads stats and uptime for ip-filter for mrtg
3# ron@rosie.18james.com,  2 Jan 2000
4
5my $firewall = "IP Filter v3.3.3";
6my($in_pkts,$out_pkts) = (0,0);
7
8open(FW, "/sbin/ipfstat -hi|") || die "cannot open ipfstat -hi\n";
9while (<FW>) {
10  $in_pkts += $1 if (/^(\d+)\s+pass\s+in\s+quick.*group\s+1\d0/);
11}
12close(FW);
13open(FW, "/sbin/ipfstat -ho|") || die "cannot open ipfstat -ho\n";
14while (<FW>) {
15  $out_pkts += $1 if (/^(\d+)\s+pass\s+out\s+quick.*group\s+1\d0/);
16}
17print "$in_pkts\n",
18      "$out_pkts\n";
19my $uptime = `/usr/bin/uptime`;
20$uptime =~ /^\s+(\d{1,2}:\d{2}..)\s+up\s+(\d+)\s+(......),/;
21print "$2 $3\n",
22      "$firewall\n";