diff options
Diffstat (limited to 'local/passtest.pl')
-rwxr-xr-x | local/passtest.pl | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/local/passtest.pl b/local/passtest.pl new file mode 100755 index 0000000..049cf45 --- /dev/null +++ b/local/passtest.pl @@ -0,0 +1,74 @@ +#!/usr/bin/perl +$place = ".1.3.6.1.4.1.8072.2.255"; # NET-SNMP-PASS-MIB::netSnmpPassExamples +$req = $ARGV[1]; # Requested OID + +# +# Process SET requests by simply logging the assigned value +# Note that such "assignments" are not persistent, +# nor is the syntax or requested value validated +# +if ($ARGV[0] eq "-s") { + open LOG,">>/tmp/passtest.log"; + print LOG "@ARGV\n"; + close LOG; + exit 0; +} + +# +# GETNEXT requests - determine next valid instance +# +if ($ARGV[0] eq "-n") { + if (($req eq "$place") || + ($req eq "$place.0") || + ($req =~ m/$place\.0\..*/) || + ($req eq "$place.1")) { $ret = "$place.1.0";} # netSnmpPassString.0 + elsif (($req =~ m/$place\.1\..*/) || + ($req eq "$place.2") || + ($req eq "$place.2.0") || + ($req =~ m/$place\.2\.0\..*/) || + ($req eq "$place.2.1") || + ($req eq "$place.2.1.0") || + ($req =~ m/$place\.2\.1\.0\..*/) || + ($req eq "$place.2.1.1") || + ($req =~ m/$place\.2\.1\.1\..*/) || + ($req eq "$place.2.1.2") || + ($req eq "$place.2.1.2.0")) { $ret = "$place.2.1.2.1";} # netSnmpPassInteger.1 + elsif (($req =~ m/$place\.2\.1\.2\..*/) || + ($req eq "$place.2.1.3") || + ($req eq "$place.2.1.3.0")) { $ret = "$place.2.1.3.1";} # netSnmpPassOID.1 + elsif (($req =~ m/$place\.2\..*/) || + ($req eq "$place.3")) { $ret = "$place.3.0";} # netSnmpPassTimeTicks.0 + elsif (($req =~ m/$place\.3\..*/) || + ($req eq "$place.4")) { $ret = "$place.4.0";} # netSnmpPassIpAddress.0 + elsif (($req =~ m/$place\.4\..*/) || + ($req eq "$place.5")) { $ret = "$place.5.0";} # netSnmpPassCounter.0 + elsif (($req =~ m/$place\.5\..*/) || + ($req eq "$place.6")) { $ret = "$place.6.0";} # netSnmpPassGauge.0 + else {exit 0;} +} +else { +# +# GET requests - check for valid instance +# + if ( ($req eq "$place.1.0") || + ($req eq "$place.2.1.2.1") || + ($req eq "$place.2.1.3.1") || + ($req eq "$place.3.0") || + ($req eq "$place.3.0") || + ($req eq "$place.3.0") || + ($req eq "$place.3.0")) { $ret = $req; } + else { exit 0;} +} + +# +# "Process" GET* requests - return hard-coded value +# +print "$ret\n"; + if ($ret eq "$place.1.0") { print "string\nLife, the Universe, and Everything\n"; exit 0;} +elsif ($ret eq "$place.2.1.2.1") { print "integer\n42\n"; exit 0;} +elsif ($ret eq "$place.2.1.3.1") { print "objectid\n.1.3.6.1.4.42.42.42\n"; exit 0;} +elsif ($ret eq "$place.3.0") { print "timeticks\n363136200\n"; exit 0;} +elsif ($ret eq "$place.4.0") { print "ipaddress\n127.0.0.1\n"; exit 0;} +elsif ($ret eq "$place.5.0") { print "counter\n42\n"; exit 0;} +elsif ($ret eq "$place.6.0") { print "gauge\n42\n"; exit 0;} +else { print "string\nack... $ret $req\n"; exit 0;} # Should not happen |