1
commit 76e8d6d100320629d8a23be4b0128619600c919d
2
Author: Jan Safranek <jsafranek@users.sourceforge.net>
3
Date: Thu Mar 6 09:21:51 2014 +0100
5
CHANGES: snmpd: PATCH: 1275: from Viliam Púčik: fixed Perl trap handler when processing trap with empty community string.
7
diff --git a/perl/TrapReceiver/TrapReceiver.xs b/perl/TrapReceiver/TrapReceiver.xs
8
index e11ef27..8713efd 100644
9
--- a/perl/TrapReceiver/TrapReceiver.xs
10
+++ b/perl/TrapReceiver/TrapReceiver.xs
11
@@ -81,18 +81,18 @@ int perl_trapd_handler( netsnmp_pdu *pdu,
12
STOREPDUi("securitymodel", pdu->securityModel);
13
STOREPDUi("securitylevel", pdu->securityLevel);
14
STOREPDU("contextName",
15
- newSVpv(pdu->contextName, pdu->contextNameLen));
16
+ newSVpv(pdu->contextName ? pdu->contextName : "", pdu->contextNameLen));
17
STOREPDU("contextEngineID",
18
- newSVpv((char *) pdu->contextEngineID,
19
+ newSVpv(pdu->contextEngineID ? (char *) pdu->contextEngineID : "",
20
pdu->contextEngineIDLen));
21
STOREPDU("securityEngineID",
22
- newSVpv((char *) pdu->securityEngineID,
23
+ newSVpv(pdu->securityEngineID ? (char *) pdu->securityEngineID : "",
24
pdu->securityEngineIDLen));
25
STOREPDU("securityName",
26
- newSVpv((char *) pdu->securityName, pdu->securityNameLen));
27
+ newSVpv(pdu->securityName ? (char *) pdu->securityName : "", pdu->securityNameLen));
30
- newSVpv((char *) pdu->community, pdu->community_len));
31
+ newSVpv(pdu->community ? (char *) pdu->community : "", pdu->community_len));
34
if (transport && transport->f_fmtaddr) {