dist/ipf/perl/ipf-mrtg.pl

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