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);
#don't update for next 5 minutes
sleep(300);
}
Requirements:
· Perl
Product's homepage
Requirements:
· Perl