From 8e233f74d3e218de01003a88a4e34d681001f712 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Wed, 3 Sep 2014 11:37:35 +0200 Subject: Move files around --- mrtg/mrtg-ip | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ mrtg/mrtg-memuse | 45 ++++++++++++++++++++++++++++++++++++++++++++ mrtg/mrtg-procs | 47 ++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 149 insertions(+) create mode 100755 mrtg/mrtg-ip create mode 100755 mrtg/mrtg-memuse create mode 100755 mrtg/mrtg-procs (limited to 'mrtg') diff --git a/mrtg/mrtg-ip b/mrtg/mrtg-ip new file mode 100755 index 0000000..2700359 --- /dev/null +++ b/mrtg/mrtg-ip @@ -0,0 +1,57 @@ +#!/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 ") 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 = ; +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; diff --git a/mrtg/mrtg-memuse b/mrtg/mrtg-memuse new file mode 100755 index 0000000..57ec393 --- /dev/null +++ b/mrtg/mrtg-memuse @@ -0,0 +1,45 @@ +#!/usr/bin/perl -w +# (c) 2003 by Gerfried Fuchs , MIT license +# +# 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; + +open(FOO, "/usr/bin/free -b|") || die "$0: can't fork free: $!"; +my (undef, $mem, $mem2, $swap) = ; +close FOO; + +chomp($mem, $mem2, $swap); + +my ($memtot) = $mem =~ /^\S+\s+(\d+)\s+/; +my ($memuse) = $mem2 =~ /^\S+ \S+\s+(\d+)\s+/; + +my ($swaptot, $swapuse) = $swap =~ /^\S+\s+(\d+)\s+(\d+)\s+/; + +print "$memuse\n$swapuse\n".`/usr/bin/uptime`.`/bin/hostname`; + +__END__ + total used free shared buffers cached +Mem: 514336 489352 24984 0 87716 171732 +-/+ buffers/cache: 229904 284432 +Swap: 514040 64012 450028 diff --git a/mrtg/mrtg-procs b/mrtg/mrtg-procs new file mode 100755 index 0000000..727d3e3 --- /dev/null +++ b/mrtg/mrtg-procs @@ -0,0 +1,47 @@ +#!/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. + +# run as suid because grsec limits ps + +use strict; +use English; + +$ENV{'PATH'} = '/bin:/usr/bin'; +delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; + +open(FOO, "/bin/ps ax|") || die "$0: can't fork ps $!"; +my @processes = ; +close FOO; + +shift @processes; +my $running=0; + +for my $line (@processes) { + my @line = split /\s+/, $line; + $running++ if ($line[2] =~ /R/); +} + +my $uptime=`/usr/bin/uptime`; +my $hostname=`/bin/hostname`; +printf "%d\n%d\n%s%s", scalar @processes, $running, $uptime, $hostname; -- cgit v1.2.3