SNMP::Persist 0.05

SNMP::Persist is a Perl module for the SNMP pass_persist threaded backend.

SYNOPSIS

use SNMP::Persist qw(&define_oid &start_persister &define_subtree);
use strict;
use warnings;


#define base oid to host the subtree
define_oid(".1.3.6.1.4.1.2021.248");

#start the thread serving answers
start_persister();

#set first application number

#loop forever to update the values
while(1) {

my %subtree;
my $gameName;
my $index=1; #set first application number

foreach $gameName ("game1", "game2") { #for each application
$subtree{"1." . $index}=["INTEGER",$index]; #set game index data pair
$subtree{"2." . $index}=["STRING",$gameName]; #set game name data pair
$subtree{"3." . $index}=["Counter32", 344.2 ]; #set total memory data pair
$index++; #next application
}

#new values have arrived - notify the subtree controller
define_subtree(%subtree);

#dont update for next 5 minutes
sleep(300);
}