head 1.4; access; symbols SNMPDX_1_0_0:1.4 SNMPDX_0_2_11:1.3 SNMPDX_0_2_10:1.2 SNMPDX_0_2_9:1.2 SNMPDX_0_2_8:1.2 SNMPDX_0_2_7:1.2 SNMPDX_0_2_6:1.1 SNMPDX_0_2_5:1.1 SNMPDX_0_2_4:1.1 SNMPDX_0_2_3:1.1 SNMPDX_0_2_2:1.1 SNMPDX_0_2_1:1.1 SNMPDX_0_2_0:1.1; locks; strict; comment @# @; 1.4 date 2007.03.01.10.52.39; author rse; state Exp; branches; next 1.3; commitid FNuFlqR2Qo3fkn8s; 1.3 date 2005.10.05.17.42.13; author rse; state Exp; branches; next 1.2; 1.2 date 2003.09.10.15.01.46; author rse; state Exp; branches; next 1.1; 1.1 date 2003.09.01.15.22.42; author rse; state Exp; branches; next ; desc @@ 1.4 log @Upgrade build environment to GNU shtool 2.0.6 and GNU autoconf 2.60 @ text @## ## OSSP snmpdx - SNMP Daemon Extension ## Copyright (c) 2003-2007 The OSSP Project ## Copyright (c) 2003-2007 Ralf S. Engelschall ## Copyright (c) 2003-2005 Cable & Wireless ## ## This file is part of OSSP snmpdx, a SNMP daemon extension which ## can be found at http://www.ossp.org/pkg/tool/snmpdx/. ## ## This program is free software; you can redistribute it and/or ## modify it under the terms of the GNU General Public License ## as published by the Free Software Foundation; either version ## 2.0 of the License, or (at your option) any later version. ## ## This program is distributed in the hope that it will be useful, ## but WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with this file; if not, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 ## USA, or contact Ralf S. Engelschall . ## ## sysLoad.pm: probe for System Load Average ## package My::Probe::sysLoad; our @@ISA = qw(My::Probe); sub oids ($) { my ($self) = @@_; return $self->{-ctx}->{-mib}->oids("*.snmpdx.host.system.sysLoad.*"); } sub probe ($$) { my ($self, $obj) = @@_; # query system via uptime(1) my $uptime = "uptime"; if ($self->{-ctx}->{-platform}->id() =~ m/(FreeBSD|Linux|SunOS)/i) { $uptime = "/usr/bin/uptime" } my $out = $self->{-ctx}->{-sys}->run($uptime, "1m"); # parse out details (example outputs follow) # FreeBSD: "5:36PM up 6 days, 54 mins, 9 users, load averages: 0.00, 0.02, 0.00" # Linux: "17:36:50 up 49 days, 8:16, 2 users, load average: 0.00, 0.00, 0.00" # SunOS: "5:36pm up 71 day(s), 3:29, 2 users, load average: 0.16, 0.11, 0.13" my ($load5, $load10, $load15) = (0, 0, 0); if ($out->{-stdout} =~ m|load\s+averages?:\s+(\S+),\s+(\S+),\s+(\S+)|si) { ($load5, $load10, $load15) = ($1, $2, $3); } # provide result if ($obj->{-name} =~ m|\.sysLoad5$|) { $obj->{-value} = sprintf("%d", $load5 * 100); } elsif ($obj->{-name} =~ m|\.sysLoad10$|) { $obj->{-value} = sprintf("%d", $load10 * 100); } elsif ($obj->{-name} =~ m|\.sysLoad15$|) { $obj->{-value} = sprintf("%d", $load15 * 100); } return; } 1; @ 1.3 log @flush pending changes @ text @d3 2 a4 2 ## Copyright (c) 2003-2005 The OSSP Project ## Copyright (c) 2003-2005 Ralf S. Engelschall @ 1.2 log @More source tree cleanups and polishing, especially adding the GPL-based copyright header used inside OSSP packages @ text @d3 3 a5 3 ## Copyright (c) 2003 The OSSP Project ## Copyright (c) 2003 Ralf S. Engelschall ## Copyright (c) 2003 Cable & Wireless @ 1.1 log @genesis of OSSP snmpdx @ text @d2 1 a2 1 ## snmpdx -- SNMP Daemon Extension d7 2 a8 4 ## Permission to use, copy, modify, and distribute this software for ## any purpose with or without fee is hereby granted, provided that ## the above copyright notice and this permission notice appear in all ## copies. d10 4 a13 12 ## THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED ## WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF ## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. ## IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR ## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, ## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT ## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF ## USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, ## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ## OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF ## SUCH DAMAGE. d15 11 a25 1 ## sysLoad: System Load Average @