NAME

SNMP::Simple - shortcuts for when using SNMP

SYNOPSIS

use SNMP::Simple;

$name     = $s->get('sysName'); # same as sysName.0
$location = $s->get('sysLocation');

@array    = $s->get_list('hrPrinterStatus');
$arrayref = $s->get_list('hrPrinterStatus');

@list_of_lists = $s->get_table( qw(
    prtConsoleOnTime
    prtConsoleColor
    prtConsoleDescription
) );

@list_of_hashes = $s->get_named_table(
    name   => 'prtInputDescription',
    media  => 'prtInputMediaName',
    status => 'prtInputStatus',
    level  => 'prtInputCurrentLevel',
    max    => 'prtInputMaxCapacity',
);

DESCRIPTION

Goal

The goal of this module is to provide shortcuts and provide a cleaner interface for doing repetitive information-retrieval tasks with SNMP version 1.

SNMP Beginners, read me first!

Please, please, please do not use this module as a starting point for working with SNMP and Perl. Look elsewhere for starting resources:

• The SNMP module

• The Net-SNMP web site (http://www.net-snmp.org/) and tutorial (http://www.net-snmp.org/tutorial-5/)

• Appendix E of Perl for System Administration (http://www.amazon.com/exec/obidos/tg/detail/-/1565926099) by David N. Blank-Edelman

SNMP Advanced and Intermediate users, read me first!

I'll admit this is a complete slaughtering of SNMP, but my goals were precise. If you think SNMP::Simple could be refined in any way, feel free to send me suggestions/fixes/patches.

I'm trying to provide shortcuts, not abstract. My purpose in providing this is so one can write:

$data{lights} = $s->get_named_table(
    status => 'prtConsoleOnTime',
    color  => 'prtConsoleColor',
    name   => 'prtConsoleDescription',
);

Instead of the following, give or take a little refining:

$vars = new SNMP::VarList(
    ['prtConsoleOnTime'],
    ['prtConsoleColor'],
    ['prtConsoleDescription'],
    );
my ($light_status, $light_color, $light_desc) = $s->getnext($vars);
die $s->{ErrorStr} if $s->{ErrorStr};
while ( !$s->{ErrorStr} and $$vars[0]->tag eq "prtConsoleOnTime" ) {
    push @{ $data{lights} }, {
        status => ($light_status ? 0 : 1),
        color  => &SNMP::mapEnum($$vars[1]->tag, $light_color),
        description => $light_desc,
    };
    ($light_status, $light_color, $light_desc) = $s->getnext($vars);
}

TODO

Among other things,

• tests

• make it smarter when using SNMPv2 and SNMPv3

AUTHOR

Ian Langworth <langworth.com>

SEE ALSO

SNMP