#!/usr/bin/perl

use NetSNMP::OID; 
use NetSNMP::ASN;
use NetSNMP::agent; 

my $rootOID  =  '.1.3.6.1.4.1.303.3.3.12.1.1.55.1'; # netSnmp.999
my $perl = '/usr/bin/perl';
my $script = '/home/ebandook/cut17/poll2.pl';

my $numQueriesToConfigure = 7;
my @oids;

for(my $i = 1;$i<=$numQueriesToConfigure; $i++ )
{
        $oids[$i] =  new NetSNMP::OID($rootOID . "$i.0");
}

sub myhandler {
    my  ($handler, $registration_info, $request_info, $requests) = @_;

    for ($request = $requests; $request; $request = $request->next()) { 
        my $oid  = $request->getOID();
        my $mode = $request_info->getMode();
        if($mode == MODE_GET) {

                my $count;
                if ( $oid =~ /(\d).0$/ )
                {
                        $count = `$perl $script $1`;
                }
                $request->setValue(ASN_INTEGER, $count);
 
        } elsif ($mode == MODE_GETNEXT) {

                my $oidnum;
                if ( $oid < new NetSNMP::OID("$rootOID.1.0") )
                {

                        $request->setOID("$rootOID.1.0");
                        my $count = `$perl $script 1`;

                        $request->setValue(ASN_INTEGER, $count);

                }
                elsif ( $oid == new NetSNMP::OID("$rootOID.1.0") )
                {

                        $request->setOID("$rootOID.2.0");
                        my $count = `$perl $script 7`;

                        $request->setValue(ASN_INTEGER, $count);

                }
                else {

                        $oidnum =+ 1;

                        my $thisOID = new NetSNMP::OID($rootOID."$oidnum.0");
                                $request->setOID($thisOID);
                                my $count = `$perl $script $oidnum`;
                                $request->setValue(ASN_INTEGER, $count);

                }
        }
    }
}

my $regoid = new NetSNMP::OID($rootOID); 
$agent->register("ubnms", $regoid, \&myhandler);