Net-SNMP perl agent

Hi,

I am trying to run the following piece of code to emulate the perl agent functionality.
However whenever I do a get using the following, I get an error:

Query: /usr/local/bin/snmpget -v 2c -c private 127.0.0.1 .1.3.6.1.4.1.8072.9999.9999.7375.1.0
Error: Timeout: No Response from 127.0.0.1.

I haven't changed anything in the snmpd.conf file except for the addition of the perl "do" statement.

##########################################################################################################
use NetSNMP::agent;

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

            for($request = $requests; $request; $request = $request->next()) {
                my $oid = $request->getOID();
                if ($request_info->getMode() == MODE_GET) {
                    # ... generally, you would calculate value from oid
                    if ($oid == new NetSNMP::OID(".1.3.6.1.4.1.8072.9999.9999.7375.1.0")) {
                        $request->setValue(ASN_OCTET_STR, "hello world!");
                    }
                } elsif ($request_info->getMode() == MODE_GETNEXT) {
                    # ... generally, you would calculate value from oid
                    if ($oid < new NetSNMP::OID(".1.3.6.1.4.1.8072.9999.9999.7375.1.0")) {
                        $request->setOID(".1.3.6.1.4.1.8072.9999.9999.7375.1.0");
                        $request->setValue(ASN_OCTET_STR, "hello world!");
                    }
                }
                #elsif ($request_info->getMode() == MODE_SET_RESERVE1) {
                #   if ($oid != new NetSNMP::OID(".1.3.6.1.4.1.8072.9999.9999.7375.1.0")) {  # do error checking here
                #       $request->setError($request_info, SNMP_ERR_NOSUCHNAME);
                #   }
                #} elsif ($request_info->getMode() == MODE_SET_ACTION) {
                    # ... (or use the value)
                    #    $value = $request->getValue();
                    #}
            }
        }

$agent = new NetSNMP::agent(
                        'Name' => 'Net-SNMP Agent'
                        );


$agent->register("Net-SNMP Agent", ".1.3.6.1.4.1.8072.9999.9999.7375",
                 \&myhandler);

print STDERR "Loaded the example perl snmpagent handler\n";

$agent->main_loop();


Regards
Tanisha

"If you think you can, or you think you can't...You are Right"   -- Henry Ford


________________________________
"DISCLAIMER: This message is proprietary to Aricent and is intended solely for the use of the individual to whom it is addressed. It may contain privileged or confidential information and should not be circulated or used for any purpose other than for what it is intended. If you have received this message in error,please notify the originator immediately. If you are not the intended recipient, you are notified that you are strictly prohibited from using, copying, altering, or disclosing the contents of this message. Aricent accepts no responsibility for loss or damage arising from the use of the information transmitted by this email including damage from virus."

------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H

_______________________________________________
Net-snmp-users mailing list
[email protected]
Please see the following page to unsubscribe or change other options:
https://lists.sourceforge.net/lists/listinfo/net-snmp-users