Onderwerp: netwerkbeheer met NET-SNMP

Hoi

Hopelijk kunnen jullie me helpen. Binnen een paar weken moet ik mijn eindwerk afgeven. Ik heb echter nog een probleempje waarbij ik hoop dat jullie me raad kunnen geven.

Ik heb een windows-pc (versie onbelangrijk) met ActivePerl 5.8.8 build 824 en Net-SNMP 5.4.2.1-1. Dit laatste is een open-source programma om als agent voor het SNMP-protocol te gebruiken.

Voor die agent heb ik geprobeerd een subagent te schrijven in Perl. De code is volgens mij in orde, maar Net-SNMP gebruikt de subagent precies niet.

Volgende regel staat in het bestand snmpd.conf:

Code:
perl do "C:/Perlscript/test.pl";Volgende code is maar een test-programma die ook niet werkt:

Code:

use NetSNMP::OID (':all');
use NetSNMP::agent (':all');

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

	for( $request = $requests; $request; $request = $request->next() )
	{
		my $oid = $request->getOID();
		
		if( $request_info->getMode() == MODE_GET )
		{
			if( $oid == new NetSNMP::OID( $rootOID . ".1" ) )
			{
				my $value = 50;
				$request->setValue( ASN_INTEGER, $value );
			}
		}
		elsif( $request_info->getMode() == MODE_GETNEXT )
		{
			if( $oid <= new NetSNMP::OID($host) )
			{
				$request->setOID( $rootOID . ".1" );
				my $value = 50;
				$request->setValue( ASN_INTEGER, $value );
			}
		}
	}
}

$i = 0;
sub test
{
	my $value = ++$i;
	return $value . "\n";
}

{
	print test();
	my $agent = new NetSNMP::agent( 'Name' => 'my_agent_name' );
	print test();
	my $rootOID = ".1.3.6.1.3.1";
	print test();
	my $regoid = new NetSNMP::OID( $rootOID );
	print test();
	$agent->register( "my_agent_name", $regoid, \&myhandler );
	print test();
}

Ik heb spoedig hulp nodig, want dit alles betreft mijn eindwerk.

alvast bedankt
alle tips zijn welkom

Lijkt me niet echt een netwerk/server-storing hè? Misschien eens beginnen met in juiste forum te posten. Bovendien is het toch jouw eindwerk...niet het onze. Zorg dat je de stof dan tenminste ook goed begrijpt/bezit.

Vooruit, een tip:
Zet code tussen [code ] en [/code ] (laatste spatie weghalen), zodat deze leesbaar blijft.

Ik kan het probleem niet vinden, daarom post ik het hier.
Sorry, dat het in het verkeerde forum staat. Maar waar zou het wel moeten staan?

het werd al verplaatst, "scripting en programmeren" lijkt ons wat beter.

om een probleem op te lossen, kan je al eens beginnen met de fout te geven die je krijgt, en wat jij zelf al geprobeerd hebt...

Als ik "snmpget -v1 -c iets localhost .1.3.6.1.3.1.1" ingeef, krijg ik een time-out.

Ik heb mijn code al meer dan 10 keer nagekeken. Ben al meer dan 5 weken op zoek naar een oplossing op internet.

wat gebeurt er al je je server tracet? Wat als je een ander object aanspreekt op localhost?... Wat heb je zelf al gedaan om het probleem te onderzokeen?

De pakketjes voor de localhost kan ik niet traceren met wireshark.
Momenteel kreeg ik ook een time-out voor andere objecten, dit had ik voordien niet.
Om deze reden heb ik alles opnieuw geinstalleerd. Nu krijg ik volgende melding:

Error in packet
Reason: (noSuchName) There is no such variable name in this MIB.
Failed object: SNMPv2-SMI::experimental.1.1.1

1.3.6.1.3.1.1 is veranderd in 1.3.6.1.3.1.1.1 omwille van een wijziging in de Perl-code. Hiermee probeer ik ook de fout te achterhalen.