1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/bin/sh
. ../eval_tools.sh
HEADER 'AgentX subagent in Perl (using NetSNMP::agent)'
SKIPIF NETSNMP_DISABLE_SNMPV2C
SKIPIFNOT USING_AGENTX_MASTER_MODULE
SKIPIFNOT USING_AGENTX_SUBAGENT_MODULE
# make sure the toolkit has been configured --with-perl-modules
[ -d ${SNMP_UPDIR}/perl/blib/arch/auto/NetSNMP/agent ] || SKIP
#
# Begin test
#
snmp_version=v2c
TESTCOMMUNITY=testcommunity
. ./Sv2cconfig
TESTOID=.1.3.6.1.4.1.8872.9999.9999.1.0
TESTOID2=.1.3.6.1.4.1.8872.9999.9999.2.0
AGENTX_SOCKET=${SNMP_TMPDIR}/agentx_socket
PERL_SUBAGENT=${SNMP_TMPDIR}/hello.pl
PERL_SUBAGENT_CONF=${SNMP_TMPDIR}/hello.conf
cat >$PERL_SUBAGENT <<END
#!${SNMP_PERLPROG}
# minimal AgentX subagent in Perl
use blib qw(${SNMP_UPDIR}/perl);
use NetSNMP::OID qw(:all);
use NetSNMP::agent qw(:all);
use NetSNMP::ASN qw(:all);
use NetSNMP::agent::default_store;
use NetSNMP::default_store qw(:all);
use SNMP;
## double-fork daemon
my \$pid;
unless (\$pid = fork) {
unless (fork) {
## start main code
my \$regat = '.1.3.6.1.4.1.8872.9999.9999'; # netSnmpPlayPen
my \$myoid = \$regat . ".1.0"; # the "hello world" OID
my \$myoid2 = \$regat . ".2.0"; # the "hello again world" OID
my \$pidfile = shift; # take PID file as first argument
open(PIDFILE, ">\$pidfile") or die "Couldn't open \$pidfile";
print PIDFILE \$\$;
close(PIDFILE);
sub my_snmp_handler {
my (\$handler, \$registration_info, \$request_info, \$requests) = @_;
for(my \$request = \$requests; \$request; \$request = \$request->next()) {
if (\$request_info->getMode() == MODE_GET) {
if (\$request->getOID() == new NetSNMP::OID(\$myoid)) {
\$request->setValue(ASN_OCTET_STR, "hello world");
last;
} elsif (\$request->getOID() == new NetSNMP::OID(\$myoid2)) {
\$request->setValue(ASN_OCTET_STR, "hello again world");
last;
}
}
}
}
sub shut_it_down { \$running = 0; }
netsnmp_ds_set_boolean(NETSNMP_DS_APPLICATION_ID,
NETSNMP_DS_AGENT_NO_ROOT_ACCESS, 1);
my \$agent = new NetSNMP::agent('Name' => 'hello', 'AgentX' => 1);
my \$regoid = new NetSNMP::OID(\$regat);
\$agent->register("hello", \$regoid, \&my_snmp_handler);
\$SIG{'INT'} = \&shut_it_down;
\$SIG{'QUIT'} = \&shut_it_down;
\$running = 1;
while(\$running) {
\$agent->agent_check_and_process(1);
}
\$agent->shutdown();
## end main code
exit 0;
}
exit 0;
}
waitpid(\$pid, 0);
END
echo "agentxsocket $AGENTX_SOCKET" > $PERL_SUBAGENT_CONF
CONFIGAGENT master agentx
CONFIGAGENT agentxsocket $AGENTX_SOCKET
STARTAGENT
# make sure that we can fulfill all library dependencies
_ld_lib_path="${SNMP_UPDIR}/snmplib/.libs:${SNMP_UPDIR}/agent/.libs:${SNMP_UPDIR}/agent/helpers/.libs"
if [ "x$LD_LIBRARY_PATH" != "x" ]; then
LD_LIBRARY_PATH="${_ld_lib_path}:${LD_LIBRARY_PATH}"
else
LD_LIBRARY_PATH="${_ld_lib_path}"
fi
if [ "x$DYLD_LIBRARY_PATH" != "x" ]; then
DYLD_LIBRARY_PATH="${_ld_lib_path}:${DYLD_LIBRARY_PATH}"
else
DYLD_LIBRARY_PATH="${_ld_lib_path}"
fi
if [ "x$SHLIB_PATH" != "x" ]; then
SHLIB_PATH="${_ld_lib_path}:${SHLIB_PATH}"
else
SHLIB_PATH="${_ld_lib_path}"
fi
export LD_LIBRARY_PATH DYLD_LIBRARY_PATH SHLIB_PATH
# start perl subagent
/usr/bin/env SNMPCONFPATH="${SNMP_TMPDIR}${SNMP_ENV_SEPARATOR}${SNMP_TMP_PERSISTENTDIR}" $SNMP_PERLPROG $PERL_SUBAGENT $SNMP_AGENTX_PID_FILE >$SNMP_AGENTX_LOG_FILE 2>&1
DELAY
## 1) SNMP GET against mib object implemented by the perl subagent
CAPTURE "snmpget -$snmp_version -c $TESTCOMMUNITY $SNMP_TRANSPORT_SPEC:$SNMP_TEST_DEST$SNMP_SNMPD_PORT $TESTOID"
CHECK "hello world"
## 2) persistency: reconfigure master agent (HUP), re-test
HUPAGENT
CAPTURE "snmpget -$snmp_version -c $TESTCOMMUNITY $SNMP_TRANSPORT_SPEC:$SNMP_TEST_DEST$SNMP_SNMPD_PORT $TESTOID2"
CHECK "hello again world"
## stop
STOPAGENT
STOPPROG $SNMP_AGENTX_PID_FILE
FINISHED
|
