src/modules/cdp_avp/avp_new_base_data_format.c
3c085d12
 /*
  * $Id$
  *
  * The initial version of this code was written by Dragos Vingarzan
  * (dragos(dot)vingarzan(at)fokus(dot)fraunhofer(dot)de and the
  * Fruanhofer Institute. It was and still is maintained in a separate
  * branch of the original SER. We are therefore migrating it to
  * Kamailio/SR and look forward to maintaining it from here on out.
  * 2011/2012 Smile Communications, Pty. Ltd.
  * ported/maintained/improved by 
  * Jason Penton (jason(dot)penton(at)smilecoms.com and
  * Richard Good (richard(dot)good(at)smilecoms.com) as part of an 
  * effort to add full IMS support to Kamailio/SR using a new and
  * improved architecture
  * 
  * NB: Alot of this code was originally part of OpenIMSCore,
  * FhG Focus. Thanks for great work! This is an effort to 
  * break apart the various CSCF functions into logically separate
  * components. We hope this will drive wider use. We also feel
  * that in this way the architecture is more complete and thereby easier
  * to manage in the Kamailio/SR environment
  *
  * This file is part of Kamailio, a free SIP server.
  *
  * Kamailio is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version
  *
  * Kamailio is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License 
  * along with this program; if not, write to the Free Software 
9e1ff448
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
3c085d12
  * 
  */
 
 #include "avp_new_base_data_format.h"
 
 #include "avp_new.h"
 
 extern struct cdp_binds *cdp;
 
 
 /* 
  * RFC 3588 Basic AVP Data Types
  * 
  * http://tools.ietf.org/html/rfc3588#section-4.2
  * 
  */
 
 inline AAA_AVP *cdp_avp_new_OctetString(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }
 
 inline AAA_AVP *cdp_avp_new_Integer32(int avp_code,int avp_flags,int avp_vendorid,int32_t data)
 {
 	char x[4];
 	str s={x,4};
 	set_4bytes(x,data);
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 
 inline AAA_AVP *cdp_avp_new_Integer64(int avp_code,int avp_flags,int avp_vendorid,int64_t data)
 {
 	char x[8];
 	str s={x,8};
 	int i;
 	for(i=7;i>=0;i--){
 		x[i] = data%256;
 		data /= 256;
 	}					//TODO - check if this is correct
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);	
 }
 
 inline AAA_AVP *cdp_avp_new_Unsigned32(int avp_code,int avp_flags,int avp_vendorid,uint32_t data)
 {
 	char x[4];
 	str s={x,4};
 	uint32_t ndata=htonl(data);
 	memcpy(x,&ndata,sizeof(uint32_t));
 	//*((uint32_t*)x) = htonl(data);
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 inline AAA_AVP *cdp_avp_new_Unsigned64(int avp_code,int avp_flags,int avp_vendorid,uint64_t data)
 {
 	char x[8];
 	str s={x,8};
 	int i;
 	for(i=7;i>=0;i--){
 		x[i] = data%256;
 		data /= 256;
 	}
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 inline AAA_AVP *cdp_avp_new_Float32(int avp_code,int avp_flags,int avp_vendorid,float data)
 {
 	uint32_t udata;
 	memcpy(&udata,&data,sizeof(uint32_t));
 	return cdp_avp_new_Unsigned32(avp_code,avp_flags,avp_vendorid,udata);//TODO - check if this is correct
 }
 
 inline AAA_AVP *cdp_avp_new_Float64(int avp_code,int avp_flags,int avp_vendorid,double data)
 {
 	uint64_t udata;
 	memcpy(&udata,&data,sizeof(uint32_t));	
 	return cdp_avp_new_Unsigned64(avp_code,avp_flags,avp_vendorid,udata);//TODO - check if this is correct
 }
 
 /**
  * Creates a grouped AVP from a list
  * @param avp_code
  * @param avp_flags
  * @param avp_vendorid
  * @param list
  * @param list_do - if this is AVP_FREE_DATA then the list will aso be freed
  * @return
  */
 inline AAA_AVP *cdp_avp_new_Grouped(int avp_code,int avp_flags,int avp_vendorid,AAA_AVP_LIST *list,AVPDataStatus list_do)
 {
 	str grp;
 	if (!list){
 		LOG(L_ERR,"The AAA_AVP_LIST was NULL!\n");
 		return 0;
 	}
 	grp = cdp->AAAGroupAVPS(*list);
 	if (!grp.len){
 		LOG(L_ERR,"The AAA_AVP_LIST provided was empty! (AVP Code %d VendorId %d)\n",avp_code,avp_vendorid);
 		return 0;
 	}
 	if (list_do==AVP_FREE_DATA)
 		cdp->AAAFreeAVPList(list);
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,grp,AVP_FREE_DATA);
 }
 
 /*
  * RFC 3588 Derived AVP Data Formats
  * 
  * http://tools.ietf.org/html/rfc3588#section-4.3
  * 
  */
 
 inline AAA_AVP* cdp_avp_new_Address(int avp_code,int avp_flags,int avp_vendorid,ip_address data)
 {
 	char x[18];
 	str s;
 	s.s = x;
 	s.len = 0;
 
 	switch (data.ai_family){
 		case AF_INET:
 			x[0]=0;
 			x[1]=1;
 			memcpy(x+2, (char*)(&data.ip.v4.s_addr), 4);
 			s.len=6;
 			break;
 		case AF_INET6:
 			x[0]=0;
 			x[1]=2;
 			s.len=18;
 			memcpy(x+2,data.ip.v6.s6_addr,16);
 			break;
 		default:
 			LOG(L_ERR,"Unimplemented for ai_family %d! (AVP Code %d Vendor-Id %d)\n",data.ai_family,avp_code,avp_vendorid);
 			return 0;
 	}
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 inline AAA_AVP* cdp_avp_new_Time(int avp_code,int avp_flags,int avp_vendorid,time_t data)
 {
 	char x[4];
 	str s={x,4};
 	uint32_t ntime = htonl(data+EPOCH_UNIX_TO_EPOCH_NTP);
 	memcpy(x,&ntime,sizeof(uint32_t));	
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 inline AAA_AVP *cdp_avp_new_UTF8String(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }
 
 inline AAA_AVP* cdp_avp_new_DiameterIdentity(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }
 
 inline AAA_AVP* cdp_avp_new_DiameterURI(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }
 
 inline AAA_AVP* cdp_avp_new_Enumerated(int avp_code,int avp_flags,int avp_vendorid,int32_t data)
 {
 	char x[4];
 	str s={x,4};
 	set_4bytes(x,data);
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,s,AVP_DUPLICATE_DATA);
 }
 
 inline AAA_AVP* cdp_avp_new_IPFilterRule(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }
 
 inline AAA_AVP* cdp_avp_new_QoSFilterRule(int avp_code,int avp_flags,int avp_vendorid,str data,AVPDataStatus data_do)
 {
 	return cdp_avp_new(avp_code,avp_flags,avp_vendorid,data,data_do);
 }