File Coverage

blib/lib/SNMP/Insight/MIB/HostResources.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	22	63.6

package SNMP::Insight::MIB::HostResources;

#ABSTRACT: Support for data in UCD MIB

use Moose::Role;

use SNMP::Insight::Moose::MIB;
use namespace::autoclean;

our $VERSION = '0.001';    #TRIAL VERSION:

mib_oid '1.3.6.1.2.1.25';
mib_name 'HOST-RESOURCES-MIB';

with 'SNMP::Insight::MIB';

has_scalar 'hrSystemUptime' => (
    oid => '1.1',
);

has_scalar 'hrSystemNumUsers' => (
    oid => '1.5',
);

has_scalar 'hrSystemProcesses' => (
    oid => '1.6',
);

has_table 'hrStorageTable' => (
    oid     => '2.3',
    index   => 'hrStorageIndex',
    columns => {
        'hrStorageIndex'              => 1,
        'hrStorageType'               => 2,
        'hrStorageAllocationUnits'    => 3,
        'hrStorageSize'               => 4,
        'hrStorageUsed'               => 5,
        'hrStorageAllocationFailures' => 6,
    },
);

has_table 'hrDeviceTable' => (
    oid     => '3.2',
    index   => 'hrDeviceIndex',
    columns => {
        'hrDeviceIndex'  => 1,
        'hrDeviceType'   => 2,
        'hrDeviceDescr'  => 3,
        'hrDeviceID'     => 4,
        'hrDeviceStatus' => [ 5, 'munge_device_status' ],
        'hrDeviceErrors' => 6,
    },
);

has_table 'hrProcessorTable' => (
    oid     => '3.2',
    index   => 'hrDeviceIndex',
    columns => {
        'hrProcessorFrwID' => 1,
        'hrProcessorLoad'  => 2,
    },
);

has_table 'hrDiskStorageTable' => (
    oid     => '3.6',
    index   => 'hrDiskStorageAccess',
    columns => {
        'hrDiskStorageAccess'    => 1,
        'hrDiskStorageMedia'     => 2,
        'hrDiskStorageRemoveble' => 3,
        'hrDiskStorageCapacity'  => 4,
    },
);

#TODO hrPartitionTable
#TODO hrFSTable

has_table 'hrSWRunTable' => (
    oid     => '4.2',
    index   => 'hrSWRunIndex',
    columns => {
        'hrSWRunIndex'      => 1,
        'hrSWRunName'       => 2,
        'hrSWRunID'         => 3,
        'hrSWRunPath'       => 4,
        'hrSWRunParameters' => 5,
        'hrSWRunType'       => 6,
        'hrSWRunStatus'     => 7,

    },
);

# TODO hrSWRunPerl

has_table 'hrSWInstalledEntry' => (
    oid     => '6.3',
    index   => 'hrSWInstalledIndex',
    columns => {
        'hrSWInstalledIndex' => 1,
        'hrSWInstalledIndex' => 2,
        'hrSWInstalledID'    => 3,
        'hrSWInstalledType'  => 4,
        'hrSWInstalledDate'  => [ 5, 'munge_installed_date' ],
    },
);

sub munge_device_status {
    my $val   = shift;
    my @stati = qw(INVALID unknown running warning testing down);
    return $stati[$val];
}

sub munge_installed_date {
    my $val = shift;

    my ( $y, $m, $d, $hour, $min, $sec ) = unpack( 'nCCCCC', $val );

    return "$y-$m-$d $hour:$min:$sec";

}

1;

# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 4
# cperl-indent-parens-as-block: t
# End:

__END__

=pod

=head1 NAME

SNMP::Insight::MIB::HostResources - Support for data in UCD MIB

=head1 VERSION

version 0.001

=head1 FUNCTIONS

=head2 munge_device_status

Convert device status to a string like unknown running warning testing down.

=head2 munge_installed_date

Convert hrSWInstalledDate to a human readble date time.

=head1 AUTHOR

Gabriele Mambrini <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Gabriele Mambrini.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut