75 lines
3.1 KiB
Perl
Executable File
75 lines
3.1 KiB
Perl
Executable File
#!/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$place.99\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
|