migrate from EUMM to Module::Build
This commit is contained in:
Oliver Gorwits
240
lib/SNMP/Info/Layer7/APC.pm
Normal file
240
lib/SNMP/Info/Layer7/APC.pm
Normal file
@@ -0,0 +1,240 @@
|
||||
# SNMP::Info::Layer7::APC - SNMP Interface to APC UPS devices
|
||||
#
|
||||
# Copyright (c) 2011 Jeroen van Ingen
|
||||
#
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions are met:
|
||||
#
|
||||
# * Redistributions of source code must retain the above copyright notice,
|
||||
# this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# * Neither the name of the University of California, Santa Cruz nor the
|
||||
# names of its contributors may be used to endorse or promote products
|
||||
# derived from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
# AND ANY EXPRESS 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 COPYRIGHT OWNER OR 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.
|
||||
|
||||
package SNMP::Info::Layer7::APC;
|
||||
|
||||
use strict;
|
||||
use Exporter;
|
||||
use SNMP::Info::Layer7;
|
||||
|
||||
@SNMP::Info::Layer7::APC::ISA
|
||||
= qw/SNMP::Info::Layer7 Exporter/;
|
||||
@SNMP::Info::Layer7::APC::EXPORT_OK = qw//;
|
||||
|
||||
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
|
||||
|
||||
$VERSION = '3.35';
|
||||
|
||||
%MIBS = (
|
||||
%SNMP::Info::Layer7::MIBS,
|
||||
'PowerNet-MIB' => 'upsBasicIdentModel',
|
||||
);
|
||||
|
||||
%GLOBALS = (
|
||||
%SNMP::Info::Layer7::GLOBALS,
|
||||
'mac' => 'ifPhysAddress.2',
|
||||
'ups_serial' => 'upsAdvIdentSerialNumber.0',
|
||||
'pdu_serial' => 'rPDUIdentSerialNumber.0',
|
||||
'mgmt_serial' => 'experimental.2.4.1.2.1',
|
||||
'os_ver' => 'experimental.2.4.1.4.1',
|
||||
'os_bin' => 'experimental.2.4.1.4.2',
|
||||
'ups_model' => 'upsBasicIdentModel.0',
|
||||
'pdu_model' => 'rPDUIdentModelNumber.0',
|
||||
'ps1_status' => 'upsBasicOutputStatus.0',
|
||||
'ps2_status' => 'upsBasicBatteryStatus.0',
|
||||
);
|
||||
|
||||
%FUNCS = (
|
||||
%SNMP::Info::Layer7::FUNCS,
|
||||
|
||||
);
|
||||
|
||||
%MUNGE = (
|
||||
# Inherit all the built in munging
|
||||
%SNMP::Info::Layer7::MUNGE,
|
||||
);
|
||||
|
||||
|
||||
# Method Overrides
|
||||
|
||||
sub os {
|
||||
return 'aos';
|
||||
}
|
||||
|
||||
sub vendor {
|
||||
return 'apc';
|
||||
}
|
||||
|
||||
sub model {
|
||||
my $apc = shift;
|
||||
return $apc->ups_model() || $apc->pdu_model();
|
||||
}
|
||||
|
||||
sub serial {
|
||||
my $apc = shift;
|
||||
my $ups = $apc->ups_serial() || 'unknown';
|
||||
my $mgmt = $apc->mgmt_serial() || 'unknown';
|
||||
return sprintf("UPS: %s, management card: %s", $ups, $mgmt);
|
||||
}
|
||||
|
||||
sub ps1_type {
|
||||
return 'UPS status';
|
||||
}
|
||||
|
||||
sub ps2_type {
|
||||
return 'Battery status';
|
||||
}
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
SNMP::Info::Layer7::APC - SNMP Interface to APC UPS devices
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Jeroen van Ingen
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Let SNMP::Info determine the correct subclass for you.
|
||||
my $apc = new SNMP::Info(
|
||||
AutoSpecify => 1,
|
||||
Debug => 1,
|
||||
DestHost => 'myswitch',
|
||||
Community => 'public',
|
||||
Version => 2
|
||||
)
|
||||
or die "Can't connect to DestHost.\n";
|
||||
|
||||
my $class = $apc->class();
|
||||
print "SNMP::Info determined this device to fall under subclass : $class\n";
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Provides abstraction to the configuration information obtainable from a
|
||||
APC UPS via SNMP.
|
||||
|
||||
For speed or debugging purposes you can call the subclass directly, but not
|
||||
after determining a more specific class using the method above.
|
||||
|
||||
my $apc = new SNMP::Info::Layer7::APC(...);
|
||||
|
||||
=head2 Inherited Classes
|
||||
|
||||
=over
|
||||
|
||||
=item SNMP::Info::Layer7
|
||||
|
||||
=back
|
||||
|
||||
=head2 Required MIBs
|
||||
|
||||
=over
|
||||
|
||||
=item F<POWERNET-MIB>
|
||||
|
||||
=back
|
||||
|
||||
All required MIBs can be found in the netdisco-mibs package.
|
||||
|
||||
=head1 GLOBALS
|
||||
|
||||
These are methods that return scalar value from SNMP
|
||||
|
||||
=over
|
||||
|
||||
=item $apc->os()
|
||||
|
||||
Returns C<'aos'>
|
||||
|
||||
=item $apc->os_bin()
|
||||
|
||||
C<POWERNET-MIB::experimental.2.4.1.4.2>
|
||||
|
||||
=item $apc->os_ver()
|
||||
|
||||
C<POWERNET-MIB::experimental.2.4.1.4.1>
|
||||
|
||||
=item $apc->serial()
|
||||
|
||||
Combines the UPS serial C<upsAdvIdentSerialNumber.0> with the management
|
||||
card serial C<POWERNET-MIB::experimental.2.4.1.2.1> into a pretty string.
|
||||
|
||||
=item $apc->vendor()
|
||||
|
||||
Returns C<'apc'>
|
||||
|
||||
=item $apc->model()
|
||||
|
||||
C<upsBasicIdentModel.0>
|
||||
|
||||
=item $apc->ps1_type()
|
||||
|
||||
Returns 'UPS status'
|
||||
|
||||
=item $apc->ps1_status()
|
||||
|
||||
Returns the main UPS status from C<upsBasicOutputStatus.0>
|
||||
|
||||
=item $apc->ps2_type()
|
||||
|
||||
Returns 'Battery status'
|
||||
|
||||
=item $apc->ps2_status()
|
||||
|
||||
Returns the battery status from C<upsBasicBatteryStatus.0>
|
||||
|
||||
=back
|
||||
|
||||
=head2 Globals imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7/"GLOBALS"> for details.
|
||||
|
||||
=head1 TABLE METHODS
|
||||
|
||||
These are methods that return tables of information in the form of a reference
|
||||
to a hash.
|
||||
|
||||
=head2 Overrides
|
||||
|
||||
=over
|
||||
|
||||
=back
|
||||
|
||||
=head2 Table Methods imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7/"TABLE METHODS"> for details.
|
||||
|
||||
=head1 MUNGES
|
||||
|
||||
=over
|
||||
|
||||
=back
|
||||
|
||||
=head1 SET METHODS
|
||||
|
||||
These are methods that provide SNMP set functionality for overridden methods
|
||||
or provide a simpler interface to complex set operations. See
|
||||
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
|
||||
operations.
|
||||
|
||||
=cut
|
||||
249
lib/SNMP/Info/Layer7/CiscoIPS.pm
Normal file
249
lib/SNMP/Info/Layer7/CiscoIPS.pm
Normal file
@@ -0,0 +1,249 @@
|
||||
# SNMP::Info::Layer::CiscoIPS
|
||||
# $Id$
|
||||
#
|
||||
# Copyright (c) 2013 Moe Kraus
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions are met:
|
||||
#
|
||||
# * Redistributions of source code must retain the above copyright notice,
|
||||
# this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# * Neither the name of the University of California, Santa Cruz nor the
|
||||
# names of its contributors may be used to endorse or promote products
|
||||
# derived from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
# AND ANY EXPRESS 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 COPYRIGHT OWNER OR 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.
|
||||
|
||||
package SNMP::Info::Layer7::CiscoIPS;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Exporter;
|
||||
use SNMP::Info::CiscoStats;
|
||||
use SNMP::Info::Layer7;
|
||||
use SNMP::Info::Entity;
|
||||
|
||||
@SNMP::Info::Layer7::CiscoIPS::ISA = qw/
|
||||
SNMP::Info::CiscoStats
|
||||
SNMP::Info::Layer7
|
||||
Exporter/;
|
||||
@SNMP::Info::Layer7::CiscoIPS::EXPORT_OK = qw//;
|
||||
|
||||
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
|
||||
|
||||
$VERSION = '3.35';
|
||||
|
||||
%MIBS = ( %SNMP::Info::Layer7::MIBS, %SNMP::Info::Entity::MIBS, );
|
||||
|
||||
%GLOBALS
|
||||
= ( %SNMP::Info::Layer7::GLOBALS, %SNMP::Info::Entity::GLOBALS, );
|
||||
|
||||
%FUNCS = (
|
||||
%SNMP::Info::Layer7::FUNCS,
|
||||
%SNMP::Info::Entity::FUNCS,
|
||||
);
|
||||
|
||||
%MUNGE = (
|
||||
%SNMP::Info::Layer7::MUNGE,
|
||||
%SNMP::Info::Entity::MUNGE,
|
||||
);
|
||||
|
||||
my ($serial, $descr, $model);
|
||||
|
||||
sub _fetch_info {
|
||||
my $self = shift;
|
||||
foreach my $id ( keys %{ $self->e_id() } ){
|
||||
|
||||
if (
|
||||
$self->e_name->{$id} =~ m/^Module$/ and
|
||||
$self->e_model->{$id} =~ m/IPS/
|
||||
) {
|
||||
$serial = $self->e_serial->{$id};
|
||||
$descr = $self->e_descr->{$id};
|
||||
$model = $self->e_model->{$id};
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
sub layers {
|
||||
return '01001000';
|
||||
}
|
||||
|
||||
sub serial {
|
||||
my $self = shift;
|
||||
_fetch_info($self) unless defined $serial;
|
||||
return $serial;
|
||||
}
|
||||
|
||||
sub sysdescr {
|
||||
my $self = shift;
|
||||
_fetch_info($self) unless defined $descr;
|
||||
return $descr;
|
||||
}
|
||||
|
||||
sub model {
|
||||
my $self = shift;
|
||||
_fetch_info($self) unless defined $descr;
|
||||
$descr =~ s/ Security Services Processor//g;
|
||||
$descr =~ s/ /-/g;
|
||||
return $descr;
|
||||
}
|
||||
|
||||
sub productname {
|
||||
my $self = shift;
|
||||
return $self->model;
|
||||
}
|
||||
|
||||
sub b_mac {
|
||||
my ( $self ) = shift;
|
||||
|
||||
foreach my $mac ( values %{$self->i_mac()} ){
|
||||
|
||||
next unless defined $mac;
|
||||
next unless $mac =~ m/^e4:d3:f1/;
|
||||
return $mac;
|
||||
}
|
||||
|
||||
return '';
|
||||
}
|
||||
|
||||
sub e_index {
|
||||
my $self = shift();
|
||||
my %index;
|
||||
foreach my $id ( keys %{$self->e_id} ){
|
||||
%index->{$id} = $id;
|
||||
}
|
||||
return \%index;
|
||||
}
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
SNMP::Info::Layer7::CiscoIPS - Cisco Adaptive Security Appliance IPS module
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Moe Kraus
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Let SNMP::Info determine the correct subclass for you.
|
||||
my $info = new SNMP::Info(
|
||||
AutoSpecify => 1,
|
||||
Debug => 1,
|
||||
# These arguments are passed directly to SNMP::Session
|
||||
DestHost => 'myIPS',
|
||||
Community => 'public',
|
||||
Version => 2
|
||||
)
|
||||
or die "Can't connect to DestHost.\n";
|
||||
|
||||
my $class = $ips->class();
|
||||
print "SNMP::Info determined this device to fall under subclass: $class\n";
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Subclass for Cisco IPS Module
|
||||
|
||||
=head2 Inherited Classes
|
||||
|
||||
=over
|
||||
|
||||
=item SNMP::Info::Entity
|
||||
|
||||
=item SNMP::Info::Layer7
|
||||
|
||||
=back
|
||||
|
||||
=head2 Required MIBs
|
||||
|
||||
=over
|
||||
|
||||
=item Inherited Classes' MIBs
|
||||
|
||||
See classes listed above for their required MIBs.
|
||||
|
||||
=back
|
||||
|
||||
|
||||
=head1 GLOBALS
|
||||
|
||||
These are methods that return scalar value from SNMP
|
||||
|
||||
=over
|
||||
|
||||
=item $info->b_mac()
|
||||
|
||||
Returns base mac. Matches only on e4:d3:f1
|
||||
|
||||
=item $info->serial()
|
||||
|
||||
Fetches serial from Module
|
||||
|
||||
=item $info->e_index()
|
||||
|
||||
overrides Entity->e_index() since entity table the IPS delivering is buggy.
|
||||
|
||||
=item $info->layers
|
||||
|
||||
Returns '01001000'
|
||||
|
||||
=item $info->model
|
||||
|
||||
Returns model name
|
||||
|
||||
=item $info->productname
|
||||
|
||||
Retruns the product name
|
||||
|
||||
=item $info->serial
|
||||
|
||||
Returns the serial number
|
||||
|
||||
=item $info->sysdescr
|
||||
|
||||
Returns the system description
|
||||
|
||||
=back
|
||||
|
||||
=head2 Global Methods imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7/"GLOBALS"> for details.
|
||||
|
||||
=head2 Global Methods imported from SNMP::Info::Entity
|
||||
|
||||
See documentation in L<SNMP::Info::Entitiy/"GLOBALS"> for details.
|
||||
|
||||
=head1 TABLE METHODS
|
||||
|
||||
These are methods that return tables of information in the form of a
|
||||
reference to a hash.
|
||||
|
||||
=head2 Table Methods imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7/"TABLE METHODS"> for details.
|
||||
|
||||
=head2 Table Methods imported from SNMP::Info::Entity
|
||||
|
||||
See documentation in L<SNMP::Info::Entity/"TABLE METHODS"> for details.
|
||||
|
||||
=cut
|
||||
164
lib/SNMP/Info/Layer7/Neoteris.pm
Normal file
164
lib/SNMP/Info/Layer7/Neoteris.pm
Normal file
@@ -0,0 +1,164 @@
|
||||
# SNMP::Info::Layer7::Neoteris
|
||||
#
|
||||
# Copyright (c) 2012 Eric Miller
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions are met:
|
||||
#
|
||||
# * Redistributions of source code must retain the above copyright notice,
|
||||
# this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# * Neither the name of the University of California, Santa Cruz nor the
|
||||
# names of its contributors may be used to endorse or promote products
|
||||
# derived from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
# AND ANY EXPRESS 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 COPYRIGHT OWNER OR 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.
|
||||
|
||||
package SNMP::Info::Layer7::Neoteris;
|
||||
|
||||
use strict;
|
||||
use Exporter;
|
||||
use SNMP::Info::Layer7;
|
||||
|
||||
@SNMP::Info::Layer7::Neoteris::ISA = qw/SNMP::Info::Layer7 Exporter/;
|
||||
@SNMP::Info::Layer7::Neoteris::EXPORT_OK = qw//;
|
||||
|
||||
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
|
||||
|
||||
$VERSION = '3.35';
|
||||
|
||||
%MIBS = (
|
||||
%SNMP::Info::Layer7::MIBS,
|
||||
'UCD-SNMP-MIB' => 'versionTag',
|
||||
'JUNIPER-IVE-MIB' => 'productVersion',
|
||||
);
|
||||
|
||||
%GLOBALS = (
|
||||
%SNMP::Info::Layer7::GLOBALS,
|
||||
'os_ver' => 'productVersion',
|
||||
'cpu' => 'iveCpuUtil',
|
||||
);
|
||||
|
||||
%FUNCS = ( %SNMP::Info::Layer7::FUNCS, );
|
||||
|
||||
%MUNGE = ( %SNMP::Info::Layer7::MUNGE, );
|
||||
|
||||
sub vendor {
|
||||
return 'juniper';
|
||||
}
|
||||
|
||||
sub os {
|
||||
return 'ive';
|
||||
}
|
||||
|
||||
sub serial {
|
||||
return '';
|
||||
}
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
SNMP::Info::Layer7::Neoteris - SNMP Interface to Juniper SSL VPN appliances
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Eric Miller
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Let SNMP::Info determine the correct subclass for you.
|
||||
my $neoteris = new SNMP::Info(
|
||||
AutoSpecify => 1,
|
||||
Debug => 1,
|
||||
DestHost => 'myrouter',
|
||||
Community => 'public',
|
||||
Version => 2
|
||||
)
|
||||
or die "Can't connect to DestHost.\n";
|
||||
|
||||
my $class = $neoteris->class();
|
||||
print "SNMP::Info determined this device to fall under subclass : $class\n";
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Subclass for Juniper SSL VPN appliances
|
||||
|
||||
=head2 Inherited Classes
|
||||
|
||||
=over
|
||||
|
||||
=item SNMP::Info::Layer7
|
||||
|
||||
=back
|
||||
|
||||
=head2 Required MIBs
|
||||
|
||||
=over
|
||||
|
||||
=item F<UCD-SNMP-MIB>
|
||||
|
||||
=item F<JUNIPER-IVE-MIB>
|
||||
|
||||
=item Inherited Classes' MIBs
|
||||
|
||||
See L<SNMP::Info::Layer7> for its own MIB requirements.
|
||||
|
||||
=back
|
||||
|
||||
=head1 GLOBALS
|
||||
|
||||
These are methods that return scalar value from SNMP
|
||||
|
||||
=over
|
||||
|
||||
=item $neoteris->vendor()
|
||||
|
||||
Returns 'juniper'.
|
||||
|
||||
=item $neoteris->os()
|
||||
|
||||
Returns C<'ive'>.
|
||||
|
||||
=item $neoteris->os_ver()
|
||||
|
||||
C<productVersion>
|
||||
|
||||
=item $neoteris->cpu()
|
||||
|
||||
C<iveCpuUtil>
|
||||
|
||||
=item $neoteris->serial()
|
||||
|
||||
Returns ''.
|
||||
|
||||
=back
|
||||
|
||||
=head2 Globals imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7> for details.
|
||||
|
||||
=head1 TABLE ENTRIES
|
||||
|
||||
These are methods that return tables of information in the form of a reference
|
||||
to a hash.
|
||||
|
||||
=head2 Table Methods imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7> for details.
|
||||
|
||||
=cut
|
||||
215
lib/SNMP/Info/Layer7/Netscaler.pm
Normal file
215
lib/SNMP/Info/Layer7/Netscaler.pm
Normal file
@@ -0,0 +1,215 @@
|
||||
# SNMP::Info::Layer7::Netscaler
|
||||
#
|
||||
# Copyright (c) 2012 Eric Miller
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions are met:
|
||||
#
|
||||
# * Redistributions of source code must retain the above copyright notice,
|
||||
# this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# * Neither the name of the University of California, Santa Cruz nor the
|
||||
# names of its contributors may be used to endorse or promote products
|
||||
# derived from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
# AND ANY EXPRESS 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 COPYRIGHT OWNER OR 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.
|
||||
|
||||
package SNMP::Info::Layer7::Netscaler;
|
||||
|
||||
use strict;
|
||||
use Exporter;
|
||||
use SNMP::Info::Layer7;
|
||||
|
||||
@SNMP::Info::Layer7::Netscaler::ISA = qw/SNMP::Info::Layer7 Exporter/;
|
||||
@SNMP::Info::Layer7::Netscaler::EXPORT_OK = qw//;
|
||||
|
||||
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
|
||||
|
||||
$VERSION = '3.35';
|
||||
|
||||
%MIBS = (
|
||||
%SNMP::Info::Layer7::MIBS,
|
||||
'NS-ROOT-MIB' => 'sysBuildVersion',
|
||||
);
|
||||
|
||||
%GLOBALS = (
|
||||
%SNMP::Info::Layer7::GLOBALS,
|
||||
'build_ver' => 'sysBuildVersion',
|
||||
'sys_hw_desc' => 'sysHardwareVersionDesc',
|
||||
'cpu' => 'resCpuUsage',
|
||||
);
|
||||
|
||||
%FUNCS = (
|
||||
%SNMP::Info::Layer7::FUNCS,
|
||||
# IP Address Table - NS-ROOT-MIB::nsIpAddrTable
|
||||
'ip_index' => 'ipAddr',
|
||||
'ip_netmask' => 'ipNetmask',
|
||||
# TODO VLAN - NS-ROOT-MIB::vlanTable
|
||||
'ns_vid' =>'vlanId',
|
||||
'ns_vlan_mem' => 'vlanMemberInterfaces',
|
||||
'ns_vtag_int' => 'vlanTaggedInterfaces',
|
||||
);
|
||||
|
||||
%MUNGE = ( %SNMP::Info::Layer7::MUNGE, );
|
||||
|
||||
sub vendor {
|
||||
return 'citrix';
|
||||
}
|
||||
|
||||
sub os {
|
||||
return 'netscaler';
|
||||
}
|
||||
|
||||
sub serial {
|
||||
return '';
|
||||
}
|
||||
|
||||
sub model {
|
||||
my $ns = shift;
|
||||
my $desc = $ns->sys_hw_desc() || '';
|
||||
|
||||
$desc =~ s/^.+\bNS//i;
|
||||
|
||||
return $desc;
|
||||
}
|
||||
|
||||
sub os_ver {
|
||||
my $ns = shift;
|
||||
my $ver = $ns->build_ver() || '';
|
||||
|
||||
if ($ver =~ /^.+\bNS(\d+\.\d+)/) {
|
||||
$ver = $1;
|
||||
}
|
||||
return $ver;
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
SNMP::Info::Layer7::Netscaler - SNMP Interface to Citrix Netscaler appliances
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Eric Miller
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Let SNMP::Info determine the correct subclass for you.
|
||||
my $ns = new SNMP::Info(
|
||||
AutoSpecify => 1,
|
||||
Debug => 1,
|
||||
DestHost => 'myrouter',
|
||||
Community => 'public',
|
||||
Version => 2
|
||||
)
|
||||
or die "Can't connect to DestHost.\n";
|
||||
|
||||
my $class = $ns->class();
|
||||
print "SNMP::Info determined this device to fall under subclass : $class\n";
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Subclass for Citrix Netscaler appliances
|
||||
|
||||
=head2 Inherited Classes
|
||||
|
||||
=over
|
||||
|
||||
=item SNMP::Info::Layer7
|
||||
|
||||
=back
|
||||
|
||||
=head2 Required MIBs
|
||||
|
||||
=over
|
||||
|
||||
=item F<NS-ROOT-MIB>
|
||||
|
||||
=item Inherited Classes' MIBs
|
||||
|
||||
See L<SNMP::Info::Layer7> for its own MIB requirements.
|
||||
|
||||
=back
|
||||
|
||||
=head1 GLOBALS
|
||||
|
||||
These are methods that return scalar value from SNMP
|
||||
|
||||
=over
|
||||
|
||||
=item $ns->vendor()
|
||||
|
||||
Returns 'citrix'.
|
||||
|
||||
=item $ns->os()
|
||||
|
||||
Returns 'netscaler'.
|
||||
|
||||
=item $ns->os_ver()
|
||||
|
||||
Release extracted from C<sysBuildVersion>.
|
||||
|
||||
=item $ns->model()
|
||||
|
||||
Model extracted from C<sysHardwareVersionDesc>.
|
||||
|
||||
=item $ns->cpu()
|
||||
|
||||
C<resCpuUsage>
|
||||
|
||||
=item $ns->build_ver()
|
||||
|
||||
C<sysBuildVersion>
|
||||
|
||||
=item $ns->sys_hw_desc()
|
||||
|
||||
C<sysHardwareVersionDesc>
|
||||
|
||||
=item $ns->serial()
|
||||
|
||||
Returns ''.
|
||||
|
||||
=back
|
||||
|
||||
=head2 Globals imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7> for details.
|
||||
|
||||
=head1 TABLE ENTRIES
|
||||
|
||||
These are methods that return tables of information in the form of a reference
|
||||
to a hash.
|
||||
|
||||
=over
|
||||
|
||||
=item $ns->ip_index()
|
||||
|
||||
C<ipAddr>
|
||||
|
||||
=item $ns->ip_netmask()
|
||||
|
||||
C<ipNetmask>
|
||||
|
||||
=back
|
||||
|
||||
=head2 Table Methods imported from SNMP::Info::Layer7
|
||||
|
||||
See documentation in L<SNMP::Info::Layer7> for details.
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user