snmpCertGet (Function)

This function will read out a certificate name from the list of certificates for the allowed peer devices, previously set by the snmpCertSet function.

Input:

Index : SINT (1..25)

The index of the certificate.

Output:

Cert : STRING

The name of the certificate. Empty if no certificate is present

Returns: INT

Declaration

FUNCTION snmpCertGet : INT;
VAR_INPUT
   index : MANDATORY SINT;
   cert  : ACCESS STRING;
END_VAR;

Example:

INCLUDE rtcu.inc
 
VAR
   iface    : SINT := 2;
END_VAR;
 
FUNCTION show_cert
VAR_INPUT
   index : SINT;
END_VAR;
VAR
   str   : STRING;
   name  : STRING;
   rc    : INT;
END_VAR;
 
   // Prefix
   str := strFormat(format := "Certificate \1: ", v1 := index);
 
   // Get certificate
   rc := snmpCertGet(index := index, cert := name);
   IF rc < 1 THEN
      DebugFmt(message := str + "snmpCertGet=\1", v1 := rc);
      RETURN;
   END_IF;
 
   // Show
   IF strLen(str := name) = 0 THEN
      DebugMsg(message := str + "<EMPTY>");
   ELSE
      DebugMsg(message := str + name);
   END_IF;
 
END_FUNCTION;
 
PROGRAM example;
VAR
   i        : SINT;
   rc       : INT;
   handle   : SYSHANDLE;
END_VAR;
 
   // Iterate certificates
   DebugMsg(message := "--------------------------------------------------");
   FOR i := 1 TO 10 DO
      show_cert(index := i);
   END_FOR;
 
   // Set certificate
   rc := snmpCertSet(index := 1, cert := "snmp_agent");
   IF rc < 1 THEN
      DebugFmt(message := "snmpCertSet=\1", v1 := rc);
   END_IF;
 
   // Configure
   rc := snmpSecurityConfig(
                            localcert := "snmp_manager",
                            engineid  := "8000000001020304"
                           );
   IF rc < 1 THEN
      DebugFmt(message := "snmpSecurityConfig=\1", v1 := rc);
   END_IF;
 
   // Open net interface.
   rc := netOpen(iface := iface);
   DebugFmt(Message := "netOpen (rc=\1)", v1 := rc);
   WHILE NOT netConnected(iface := iface) DO
      Sleep(Delay := 2000);
   END_WHILE;
   DebugMsg(Message := "Network connected");
 
   // Start to listen for traps
   rc := snmpStartListen(
                         handle    := handle,
                         port      := 10162,
                         community := "public",
                         security  := _SNMP_SEC_TLS
                        );
   IF rc < 1 THEN
      DebugFmt(message := "snmpStartListen=\1", v1 := rc);
   END_IF;
   rc := snmpRegisterTrap(oid := "1.3.6.1.4.1.6101.1.8.8.2.6");
   IF rc < 1 THEN
      DebugFmt(message := "snmpRegisterTrap=\1", v1 := rc);
   END_IF;
   DebugMsg(Message := "Ready");
 
BEGIN
END;
END_PROGRAM;