head 1.11;
access;
symbols
SNMPDX_1_0_0:1.11
SNMPDX_0_2_11:1.10
SNMPDX_0_2_10:1.9
SNMPDX_0_2_9:1.8
SNMPDX_0_2_8:1.7
SNMPDX_0_2_7:1.6
SNMPDX_0_2_6:1.5
SNMPDX_0_2_5:1.5
SNMPDX_0_2_4:1.5
SNMPDX_0_2_3:1.5
SNMPDX_0_2_2:1.5
SNMPDX_0_2_1:1.5
SNMPDX_0_2_0:1.5;
locks; strict;
comment @# @;
1.11
date 2007.03.01.10.52.39; author rse; state Exp;
branches;
next 1.10;
commitid FNuFlqR2Qo3fkn8s;
1.10
date 2005.10.05.17.42.13; author rse; state Exp;
branches;
next 1.9;
1.9
date 2004.07.30.09.31.23; author thl; state Exp;
branches;
next 1.8;
1.8
date 2004.07.28.13.37.48; author thl; state Exp;
branches;
next 1.7;
1.7
date 2003.10.21.18.13.17; author rse; state Exp;
branches;
next 1.6;
1.6
date 2003.09.10.15.01.46; author rse; state Exp;
branches;
next 1.5;
1.5
date 2003.09.02.18.37.04; author rse; state Exp;
branches;
next 1.4;
1.4
date 2003.09.02.18.34.27; author rse; state Exp;
branches;
next 1.3;
1.3
date 2003.09.02.15.37.26; author rse; state Exp;
branches;
next 1.2;
1.2
date 2003.09.01.15.36.57; 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.11
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 .
##
## swOp.pm: probe for Software, OpenPKG
##
package My::Probe::swOp;
our @@ISA = qw(My::Probe);
sub oids ($) {
my ($self) = @@_;
return $self->{-ctx}->{-mib}->oids("*.snmpdx.host.software.swOp.*");
}
sub probe ($$) {
my ($self, $obj) = @@_;
my $openpkg = $self->{-ctx}->{-opt}->{openpkg};
my $rpm;
if ( -x "$openpkg/bin/openpkg" and -x "$openpkg/libexec/openpkg/rpm" ) { #OpenPKG 2.x
$rpm="$openpkg/bin/openpkg rpm"
}
elsif ( -x "$openpkg/bin/rpm" and not -x "$openpkg/libexec/openpkg/rpm" ) { #OpenPKG 1.x
$rpm="$openpkg/bin/rpm"
}
else { return; } #no (known) OpenPKG
# query details via rpm(1)
my $out = $self->{-ctx}->{-sys}->run(
"$rpm -qa --qf '[%{NAME} %{VERSION} %{RELEASE} %{BUILDTIME} %{INSTALLTIME}\\n]'", "10m");
return if ($out->{-stdout} eq '');
# parse details into internal structure
my $pkg = [];
foreach my $entry (sort(split(/\n/, $out->{-stdout}))) {
my ($p_n, $p_v, $p_r, $p_bt, $p_it) = split(/\s+/, $entry);
next if ($p_n eq 'gpg-key');
my $p = { -name => $p_n, -version => $p_v, -release => $p_r, -built => $p_bt, -installed => $p_it };
push(@@{$pkg}, $p);
}
# provide result
$self->{-ctx}->{-log}->printf(4, "name=%s", $obj->{-name});
if ($obj->{-name} =~ m|\.swOpVersion$|) {
# OpenPKG instance *main* version
my %release = ();
foreach my $p (@@{$pkg}) {
my $r = $p->{-release};
$r =~ s|^(\d+\.d+)\.\d+$|$1|s;
$r =~ s|^\d{8}$|CURRENT|s;
$release{$r}++;
}
my $release = (reverse sort { $release{$a} <=> $release{$b} } keys(%release))[0];
$obj->{-value} = "OpenPKG-$release";
}
elsif ($obj->{-name} =~ m|\.swOpPkgENTRY\.([^.]+)\.(\d+)$|) {
# OpenPKG package list
my $col = $1;
my $row = ($2 > 0 ? $2 - 1 : 0);
$self->{-ctx}->{-log}->printf(4, "col=%s row=%s", $col, $row);
if (defined($pkg->[$row])) {
if ($col eq 'swOpPkgIndex') {
$obj->{-value} = $row;
}
elsif ($col eq 'swOpPkgName') {
$obj->{-value} = $pkg->[$row]->{-name};
}
elsif ($col eq 'swOpPkgVersion') {
$obj->{-value} = $pkg->[$row]->{-version};
}
elsif ($col eq 'swOpPkgRelease') {
$obj->{-value} = $pkg->[$row]->{-release};
}
elsif ($col eq 'swOpPkgBuilt') {
local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
localtime($pkg->[$row]->{-built});
$obj->{-value} = $self->{-ctx}->{-enc}->dat_encode(
sprintf("%04d-%02d-%02d %02d:%02d:%02d",
$year+1900, $mon+1, $mday, $hour, $min, $sec));
}
elsif ($col eq 'swOpPkgInstalled') {
local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
localtime($pkg->[$row]->{-installed});
$obj->{-value} = $self->{-ctx}->{-enc}->dat_encode(
sprintf("%04d-%02d-%02d %02d:%02d:%02d",
$year+1900, $mon+1, $mday, $hour, $min, $sec));
}
}
}
return;
}
1;
@
1.10
log
@flush pending changes
@
text
@d3 2
a4 2
## Copyright (c) 2003-2005 The OSSP Project
## Copyright (c) 2003-2005 Ralf S. Engelschall
@
1.9
log
@support a configurable OpenPKG instance and detect and handle OpenPKG 1.x and 2.x
@
text
@d3 3
a5 3
## Copyright (c) 2003 The OSSP Project
## Copyright (c) 2003 Ralf S. Engelschall
## Copyright (c) 2003 Cable & Wireless
@
1.8
log
@quick hack to support OpenPKG 2.x (breaking OpenPKG 1.x)
@
text
@d38 10
d51 1
a51 1
"openpkg rpm -qa --qf '[%{NAME} %{VERSION} %{RELEASE} %{BUILDTIME} %{INSTALLTIME}\\n]'", "10m");
@
1.7
log
@1. Get rid of "use IO;" deprecation warnings under Perl 5.8.1
2. Do not provide "snmpdx::swOp*" OIDs only if "rpm" is really found.
Submitted by: Peter Eckel
@
text
@d41 1
a41 1
"rpm -qa --qf '[%{NAME} %{VERSION} %{RELEASE} %{BUILDTIME} %{INSTALLTIME}\\n]'", "10m");
@
1.6
log
@More source tree cleanups and polishing, especially adding the GPL-based copyright header used inside OSSP packages
@
text
@d42 1
@
1.5
log
@ignore GnuPG public keys as seen under RPM 4.2.1
@
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
## swOp: Software, OpenPKG
@
1.4
log
@Ops, I comitted the test typo
@
text
@d47 1
@
1.3
log
@use new MIB SEQUENCE support in framework to provide initial OpenPKG RPM instance information
@
text
@d41 1
a41 1
"xrpm -qa --qf '[%{NAME} %{VERSION} %{RELEASE} %{BUILDTIME} %{INSTALLTIME}\\n]'", "10m");
@
1.2
log
@disable swOp probe until framwork really can handle MIB SEQUENCEs
@
text
@d33 1
a33 9
return []; # FIXME
my $oids = [];
push(@@{$oids}, @@{$self->{-ctx}->{-mib}->oids("*.snmpdx.host.software.swOp.swOpVersion")});
foreach my $oid (@@{$self->{-ctx}->{-mib}->oids("*.snmpdx.host.software.swOp.swOpPkg.*")}) {
push(@@{$oids}, $oid.".1");
push(@@{$oids}, $oid.".2");
push(@@{$oids}, $oid.".3");
}
return $oids;
d39 60
@
1.1
log
@genesis of OSSP snmpdx
@
text
@d33 1
@