summaryrefslogtreecommitdiff
path: root/mrtg-ip
diff options
context:
space:
mode:
Diffstat (limited to 'mrtg-ip')
-rwxr-xr-xmrtg-ip57
1 files changed, 0 insertions, 57 deletions
diff --git a/mrtg-ip b/mrtg-ip
deleted file mode 100755
index 2700359..0000000
--- a/mrtg-ip
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl -wT
-
-# (c) 2003 by Peter Palfrader
-#
-# mrtg memory and swap usage check
-#
-# Permission is hereby granted, free of charge, to any person obtaining
-# a copy of this software and associated documentation files (the
-# "Software"), to deal in the Software without restriction, including
-# without limitation the rights to use, copy, modify, merge, publish,
-# distribute, sublicense, and/or sell copies of the Software, and to
-# permit persons to whom the Software is furnished to do so, subject to
-# the following conditions:
-#
-# The above copyright notice and this permission notice shall be
-# included in all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-
-use strict;
-use English;
-
-my $IFACE = shift @ARGV;
-die ("Usage: $PROGRAM_NAME <interface>") unless defined $IFACE;
-
-$ENV{'PATH'} = '/bin:/usr/bin';
-delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
-
-$UID=$EUID;
-
-open(FOO, "/proc/net/dev") || die "$0: can't open /proc/net/dev: $!";
-my @dev = <FOO>;
-close FOO;
-
-my $dev = join '', @dev;
-
-my ($in, $out) = $dev =~ /^\s*$IFACE:\s*(\d+)\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+(\d+)/m;
-
-defined $in or
- $in = 0,
- warn ("Incoming bytes not found for $IFACE\n");
-defined $out or
- $out = 0,
- warn ("Outgoing bytes not found for $IFACE\n");
-
-my $uptime=`/usr/bin/uptime`;
-my $hostname=`/bin/hostname`;
-print $in,"\n";
-print $out,"\n";
-printf "%s%s", $uptime, $hostname;