diff options
author | cy <cy@FreeBSD.org> | 2013-09-21 14:23:20 +0000 |
---|---|---|
committer | cy <cy@FreeBSD.org> | 2013-09-21 14:23:20 +0000 |
commit | 1f79bda80fc99a9bea37dc83f80019be39c33c5a (patch) | |
tree | 3915c70585141494037a8c4fd909db7ea85a2aac /contrib/ipfilter/perl/ipf-mrtg.pl | |
parent | b3f0452e3485d31d295010234a8951b1129a6f0b (diff) | |
download | FreeBSD-src-1f79bda80fc99a9bea37dc83f80019be39c33c5a.zip FreeBSD-src-1f79bda80fc99a9bea37dc83f80019be39c33c5a.tar.gz |
Remove redundant files.
Approved by: glebius (mentor)
Approved by: re (blanket)
Diffstat (limited to 'contrib/ipfilter/perl/ipf-mrtg.pl')
-rw-r--r-- | contrib/ipfilter/perl/ipf-mrtg.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/contrib/ipfilter/perl/ipf-mrtg.pl b/contrib/ipfilter/perl/ipf-mrtg.pl deleted file mode 100644 index cce30ab..0000000 --- a/contrib/ipfilter/perl/ipf-mrtg.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/local/bin/perl -# reads stats and uptime for ip-filter for mrtg -# ron@rosie.18james.com, 2 Jan 2000 - -my $firewall = "IP Filter v3.3.3"; -my($in_pkts,$out_pkts) = (0,0); - -open(FW, "/sbin/ipfstat -hi|") || die "cannot open ipfstat -hi\n"; -while (<FW>) { - $in_pkts += $1 if (/^(\d+)\s+pass\s+in\s+quick.*group\s+1\d0/); -} -close(FW); -open(FW, "/sbin/ipfstat -ho|") || die "cannot open ipfstat -ho\n"; -while (<FW>) { - $out_pkts += $1 if (/^(\d+)\s+pass\s+out\s+quick.*group\s+1\d0/); -} -print "$in_pkts\n", - "$out_pkts\n"; -my $uptime = `/usr/bin/uptime`; -$uptime =~ /^\s+(\d{1,2}:\d{2}..)\s+up\s+(\d+)\s+(......),/; -print "$2 $3\n", - "$firewall\n";
\ No newline at end of file |