[support #1723748] TLS support for XCAP scenario

Change-Id: I9311b43efc07a4fd2fb1b13805421df25f4f9f78
Signed-off-by: Eduard Czimbalmos <Eduard.Czimbalmos@ericsson.com>

src/Transport/EPTF_CLL_TransportIPL4_Functions.ttcn

@@ -61,6 +61,7 @@
 //      <f_EPTF_Transport_sendTo>
 //      <f_EPTF_Transport_setUserData>
 //      <f_EPTF_Transport_getUserData>
+//      <f_EPTF_Transport_getCurrentCipher>
 //      <f_EPTF_Transport_registerMsgCallback>
 //      <f_EPTF_Transport_getLocalAddress>
 //      <f_EPTF_Transport_getRemoteAddress>
@@ -989,6 +990,41 @@ runs on EPTF_TransportIPL4_CT
   pl_result := f_IPL4_getUserData(IPL4_PCO,pl_connId,pl_userData);
 }
 
+///////////////////////////////////////////////////////////
+//  Function: f_EPTF_Transport_getCurrentCipher
+//
+//  Purpose:
+//    Function to get the 4 bytes long ID of the cipher of the established SSL connection
+//
+//  Parameters:
+//    pl_transportType - *in* - <EPTF_Transport_TransportType> - Testport type
+//    pl_connId - *in* - <ConnectionId> - The ID of the connection
+//    pl_currentCipher - *out* - *integer* - the cipher ID, 0 if there is no TLS/SSL used on the connection, or the connection is invalid
+//
+//  Return Value:
+//    -
+//
+//  Errors:
+//    -
+//
+//  Detailed Comments:
+//    See https://www.openssl.org/docs/man1.0.2/man3/SSL_get_current_cipher.html
+//    Last 2 bytes contain the cipher id according to the protection mechanism CipherSuite code
+//    according to the defined values for TLS CipherSuites in the IANA TLS Cipher Suite Registry which is referenced in TLS V1.2
+//
+///////////////////////////////////////////////////////////
+public function f_EPTF_Transport_getCurrentCipher(
+  in EPTF_Transport_TransportType pl_transportType,
+  in ConnectionId pl_connId,
+  out integer pl_currentCipher)
+  runs on EPTF_TransportIPL4_CT
+{
+  if (IPL4 != pl_transportType) {
+    f_EPTF_Base_assert(%definitionId&": The transport type "&log2str(pl_transportType)&
+      " is not supported in the IPL4 transport.", IPL4 == pl_transportType)
+  }
+  pl_currentCipher := f_IPL4_getCurrentCipher(IPL4_PCO, pl_connId);
+}
 
 ///////////////////////////////////////////////////////////
 //  Function: f_EPTF_Transport_registerMsgCallback