3 # Persistant perl script to respond to pass-through smnp requests
5 # put the following in your snmpd.conf file to call this script:
7 # pass_persist .1.3.6.1.4.1.2021.255 /path/to/pass_persisttest
9 # Forces a buffer flush after every print
15 my $place = ".1.3.6.1.4.1.2021.255";
29 if ( $cmd eq "getnext" ) {
32 } elsif ($req eq "$place.1") {
34 } elsif ($req eq "$place.2.1") {
36 } elsif ($req eq "$place.2.2") {
38 } elsif ($req eq "$place.3") {
40 } elsif ($req eq "$place.4") {
42 } elsif ($req eq "$place.5") {
59 if ($ret eq "$place.1") {
60 print "string\nlife the universe and everything\n";
61 } elsif ($ret eq "$place.2.1") {
62 print "integer\n423\n";
63 } elsif ($ret eq "$place.2.2") {
64 print "objectid\n.1.3.6.1.4.42.42.42\n";
65 } elsif ($ret eq "$place.3") {
66 print "timeticks\n363136200\n";
67 } elsif ($ret eq "$place.4") {
68 print "ipaddress\n127.0.0.1\n";
69 } elsif ($ret eq "$place.5") {
71 print "counter\n$counter\n";
72 } elsif ($ret eq "$place.6") {
75 print "string\nack... $ret $req\n";