core: added kemi function KSR.is_TCPX()

- return true if incoming base connection is tcp (tcp, tls, ws, wss)

src/core/kemi.c

@@ -1139,6 +1139,17 @@ static int sr_kemi_core_is_proto_tcp(sip_msg_t *msg)
 	return (msg->rcv.proto == PROTO_TCP) ? SR_KEMI_TRUE : SR_KEMI_FALSE;
 }
 
+/**
+ *
+ */
+static int sr_kemi_core_is_proto_tcpx(sip_msg_t *msg)
+{
+	return (msg->rcv.proto == PROTO_TCP || msg->rcv.proto == PROTO_TLS
+				   || msg->rcv.proto == PROTO_WSS || msg->rcv.proto == PROTO_WS)
+				   ? SR_KEMI_TRUE
+				   : SR_KEMI_FALSE;
+}
+
 /**
  *
  */
@@ -2102,6 +2113,11 @@ static sr_kemi_t _sr_kemi_core[] = {
 			{ SR_KEMIP_NONE, SR_KEMIP_NONE, SR_KEMIP_NONE,
 				SR_KEMIP_NONE, SR_KEMIP_NONE, SR_KEMIP_NONE }
 	},
+	{ str_init(""), str_init("is_TCPX"),
+		SR_KEMIP_BOOL, sr_kemi_core_is_proto_tcpx,
+			{ SR_KEMIP_NONE, SR_KEMIP_NONE, SR_KEMIP_NONE,
+				SR_KEMIP_NONE, SR_KEMIP_NONE, SR_KEMIP_NONE }
+	},
 	{ str_init(""), str_init("is_TLS"),
 		SR_KEMIP_BOOL, sr_kemi_core_is_proto_tls,
 			{ SR_KEMIP_NONE, SR_KEMIP_NONE, SR_KEMIP_NONE,