Home | History | Annotate | Line # | Download | only in perl 
      1 #!/usr/local/bin/perl
      2 # reads stats and uptime for ip-filter for mrtg
      3 # ron (at] 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";