int acc_log_request( struct sip_msg *rq)
{
static char log_msg[MAX_SYSLOG_SIZE];
static char *log_msg_end=log_msg+MAX_SYSLOG_SIZE-2;
char *p;
int n;
int m;
int i;
/* get default values */
m = core2strar( rq, val_arr, int_arr, type_arr);
/* get extra values */
m += extra2strar( log_extra, rq, val_arr+m, int_arr+m, type_arr+m);
for ( i=0,p=log_msg ; i<m ; i++ ) {
if (p+1+log_attrs[i].len+1+val_arr[i].len >= log_msg_end) {
LM_WARN("acc message too long, truncating..\n");
p = log_msg_end;
break;
}
*(p++) = A_SEPARATOR_CHR;
memcpy(p, log_attrs[i].s, log_attrs[i].len);
p += log_attrs[i].len;
*(p++) = A_EQ_CHR;
memcpy(p, val_arr[i].s, val_arr[i].len);
p += val_arr[i].len;
}
/* get per leg attributes */
if ( leg_info ) {
n = legs2strar(leg_info,rq,val_arr+m,int_arr+m,type_arr+m, 1);
do {
for (i=m; i<m+n; i++) {
if (p+1+log_attrs[i].len+1+val_arr[i].len >= log_msg_end) {
LM_WARN("acc message too long, truncating..\n");
p = log_msg_end;
break;
}
*(p++) = A_SEPARATOR_CHR;
memcpy(p, log_attrs[i].s, log_attrs[i].len);
p += log_attrs[i].len;
*(p++) = A_EQ_CHR;
memcpy(p, val_arr[i].s, val_arr[i].len);
p += val_arr[i].len;
}
}while (p!=log_msg_end && (n=legs2strar(leg_info,rq,val_arr+m,
int_arr+m,type_arr+m,
0))!=0);
}
/* terminating line */
*(p++) = '\n';
*(p++) = 0;
LM_GEN2(log_facility, log_level, "%.*stimestamp=%lu%s",
acc_env.text.len, acc_env.text.s,(unsigned long) acc_env.ts, log_msg);
return 1;
}
int acc_db_request( struct sip_msg *rq, struct sip_msg *rpl,
query_list_t **ins_list)
{
static db_ps_t my_ps_ins = NULL;
static db_ps_t my_ps = NULL;
int m;
int n;
int i;
/* formated database columns */
m = core2strar( rq, val_arr );
for(i = 0; i < m; i++)
VAL_STR(db_vals+i) = val_arr[i];
/* time value */
VAL_TIME(db_vals+(m++)) = acc_env.ts;
/* extra columns */
m += extra2strar( db_extra, rq, rpl, val_arr+m, 0);
for( i++; i < m; i++)
VAL_STR(db_vals+i) = val_arr[i];
acc_dbf.use_table(db_handle, &acc_env.text/*table*/);
CON_PS_REFERENCE(db_handle) = ins_list? &my_ps_ins : &my_ps;
/* multi-leg columns */
if ( !leg_info ) {
if (con_set_inslist(&acc_dbf,db_handle,ins_list,db_keys,m) < 0 )
CON_RESET_INSLIST(db_handle);
if (acc_dbf.insert(db_handle, db_keys, db_vals, m) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
} else {
n = legs2strar(leg_info,rq,val_arr+m,1);
do {
for ( i = m; i < m + n; i++)
VAL_STR(db_vals+i)=val_arr[i];
if (con_set_inslist(&acc_dbf,db_handle,ins_list,db_keys,m+n) < 0 )
CON_RESET_INSLIST(db_handle);
if (acc_dbf.insert(db_handle, db_keys, db_vals, m+n) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
}while ( (n = legs2strar(leg_info,rq,val_arr+m,0))!=0 );
}
return 1;
}
int acc_db_request( struct sip_msg *rq)
{
int m;
int n;
int i;
/* formated database columns */
m = core2strar( rq, val_arr, int_arr, type_arr );
for(i=0; i<m; i++)
VAL_STR(db_vals+i) = val_arr[i];
/* time value */
VAL_TIME(db_vals+(m++)) = acc_env.ts;
/* extra columns */
m += extra2strar( db_extra, rq, val_arr+m, int_arr+m, type_arr+m);
for( i++ ; i<m; i++)
VAL_STR(db_vals+i) = val_arr[i];
if (acc_dbf.use_table(db_handle, &acc_env.text/*table*/) < 0) {
LM_ERR("error in use_table\n");
return -1;
}
/* multi-leg columns */
if ( !leg_info ) {
if (acc_dbf.insert(db_handle, db_keys, db_vals, m) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
} else {
n = legs2strar(leg_info,rq,val_arr+m,int_arr+m,type_arr+m,1);
do {
for (i=m; i<m+n; i++)
VAL_STR(db_vals+i)=val_arr[i];
if (acc_dbf.insert(db_handle, db_keys, db_vals, m+n) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
}while ( (n=legs2strar(leg_info,rq,val_arr+m,int_arr+m,
type_arr+m,0))!=0 );
}
return 1;
}
/* builds leg values string */
static int build_leg_dlg_values(struct dlg_cell *dlg,struct sip_msg *req)
{
str val_arr[MAX_ACC_LEG];
int nr_values, i,nr_legs=0;
cdr_buf.len = 4;
if (!leg_info)
SET_LEN(cdr_buf.s,0);
else {
nr_values = legs2strar(leg_info,req,val_arr,1);
SET_LEN(cdr_buf.s,nr_values);
do {
for (i=0;i<nr_values;i++)
if (set_dlg_value(&val_arr[i]) < 0)
return -1;
nr_legs++;
} while ( (nr_values = legs2strar(leg_info,req,val_arr,0)) != 0);
}
SET_LEN(cdr_buf.s+2,nr_legs);
return 1;
}
int acc_diam_request( struct sip_msg *req )
{
int attr_cnt;
int cnt;
AAAMessage *send = NULL;
AAA_AVP *avp;
struct sip_uri puri;
str *uri;
int ret;
int i;
int status;
char tmp[2];
unsigned int mid;
attr_cnt = core2strar( req, val_arr, int_arr, type_arr );
/* last value is not used */
attr_cnt--;
if ( (send=AAAInMessage(ACCOUNTING_REQUEST, AAA_APP_NASREQ))==NULL) {
LM_ERR("failed to create new AAA request\n");
return -1;
}
/* AVP_ACCOUNTIG_RECORD_TYPE */
if( (status = diam_status(req, acc_env.code))<0) {
LM_ERR("status unknown\n");
goto error;
}
tmp[0] = status+'0';
tmp[1] = 0;
if( (avp=AAACreateAVP(AVP_Accounting_Record_Type, 0, 0, tmp,
1, AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP:no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
/* SIP_MSGID AVP */
mid = req->id;
if( (avp=AAACreateAVP(AVP_SIP_MSGID, 0, 0, (char*)(&mid),
sizeof(mid), AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP:no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
/* SIP Service AVP */
if( (avp=AAACreateAVP(AVP_Service_Type, 0, 0, SIP_ACCOUNTING,
SERVICE_LEN, AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP:no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
/* also the extra attributes */
attr_cnt += extra2strar( dia_extra, req, val_arr, int_arr, type_arr);
/* add attributes */
for(i=0; i<attr_cnt; i++) {
if((avp=AAACreateAVP(diam_attrs[i], 0,0, val_arr[i].s, val_arr[i].len,
AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP: no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
}
/* and the leg attributes */
if ( leg_info ) {
cnt = legs2strar(leg_info,req,val_arr,int_arr,type_arr,1);
do {
for (i=0; i<cnt; i++) {
if((avp=AAACreateAVP(diam_attrs[attr_cnt+i], 0, 0,
val_arr[i].s, val_arr[i].len, AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP: no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
}
} while ( (cnt=legs2strar(leg_info,req,val_arr,int_arr,
type_arr,0))!=0 );
}
if (get_uri(req, &uri) < 0) {
LM_ERR("failed to get uri, From/To URI not found\n");
goto error;
}
if (parse_uri(uri->s, uri->len, &puri) < 0) {
LM_ERR("failed to parse From/To URI\n");
goto error;
}
/* Destination-Realm AVP */
if( (avp=AAACreateAVP(AVP_Destination_Realm, 0, 0, puri.host.s,
puri.host.len, AVP_DUPLICATE_DATA)) == 0) {
LM_ERR("failed to create AVP:no more free memory!\n");
goto error;
}
if( AAAAddAVPToMessage(send, avp, 0)!= AAA_ERR_SUCCESS) {
LM_ERR("avp not added \n");
AAAFreeAVP(&avp);
goto error;
}
/* prepare the message to be sent over the network */
if(AAABuildMsgBuffer(send) != AAA_ERR_SUCCESS) {
LM_ERR("message buffer not created\n");
goto error;
}
if(sockfd==AAA_NO_CONNECTION) {
sockfd = init_mytcp(diameter_client_host, diameter_client_port);
if(sockfd==AAA_NO_CONNECTION) {
LM_ERR("failed to reconnect to Diameter client\n");
goto error;
}
}
/* send the message to the DIAMETER client */
ret = tcp_send_recv(sockfd, send->buf.s, send->buf.len, rb, req->id);
if(ret == AAA_CONN_CLOSED) {
LM_NOTICE("connection to Diameter client closed.It will be "
"reopened by the next request\n");
close(sockfd);
sockfd = AAA_NO_CONNECTION;
goto error;
}
if(ret != ACC_SUCCESS) {
/* a transmission error occurred */
LM_ERR("message sending to the DIAMETER backend authorization "
"server failed\n");
goto error;
}
AAAFreeMessage(&send);
return 1;
error:
AAAFreeMessage(&send);
return -1;
}
int acc_rad_request( struct sip_msg *req )
{
int attr_cnt;
VALUE_PAIR *send;
UINT4 av_type;
int offset;
int i;
send=NULL;
attr_cnt = core2strar( req, val_arr, int_arr, type_arr );
/* not interested in the last 2 values */
attr_cnt -= 2;
av_type = rad_status( req, acc_env.code); /* RADIUS status */
ADD_RAD_AVPAIR( RA_ACCT_STATUS_TYPE, &av_type, -1);
av_type = rd_vals[RV_SIP_SESSION].v; /* session*/
ADD_RAD_AVPAIR( RA_SERVICE_TYPE, &av_type, -1);
av_type = (UINT4)acc_env.code; /* status=integer */
ADD_RAD_AVPAIR( RA_SIP_RESPONSE_CODE, &av_type, -1);
av_type = req->REQ_METHOD; /* method */
ADD_RAD_AVPAIR( RA_SIP_METHOD, &av_type, -1);
/* unix time */
av_type = (UINT4)acc_env.ts;
ADD_RAD_AVPAIR( RA_TIME_STAMP, &av_type, -1);
/* add extra also */
attr_cnt += extra2strar(rad_extra, req, val_arr+attr_cnt,
int_arr+attr_cnt, type_arr+attr_cnt);
/* add the values for the vector - start from 1 instead of
* 0 to skip the first value which is the METHOD as string */
offset = RA_STATIC_MAX-1;
for( i=1; i<attr_cnt; i++) {
switch (type_arr[i]) {
case TYPE_STR:
ADD_RAD_AVPAIR(offset+i, val_arr[i].s, val_arr[i].len);
break;
case TYPE_INT:
ADD_RAD_AVPAIR(offset+i, &(int_arr[i]), -1);
break;
default:
break;
}
}
/* call-legs attributes also get inserted */
if ( leg_info ) {
offset += attr_cnt;
attr_cnt = legs2strar(leg_info,req,val_arr,int_arr,type_arr,1);
do {
for (i=0; i<attr_cnt; i++)
ADD_RAD_AVPAIR( offset+i, val_arr[i].s, val_arr[i].len );
}while ( (attr_cnt=legs2strar(leg_info,req,val_arr,int_arr,
type_arr, 0))!=0 );
}
if (rc_acct(rh, SIP_PORT, send)!=OK_RC) {
LM_ERR("radius-ing failed\n");
goto error;
}
rc_avpair_free(send);
return 1;
error:
rc_avpair_free(send);
return -1;
}
int acc_db_request( struct sip_msg *rq)
{
int m;
int n;
int i;
struct tm *t;
/* formated database columns */
m = core2strar( rq, val_arr, int_arr, type_arr );
for(i=0; i<m; i++)
VAL_STR(db_vals+i) = val_arr[i];
/* time value */
VAL_TIME(db_vals+(m++)) = acc_env.ts;
/* extra time value */
if(acc_time_mode==1) {
VAL_INT(db_vals+(m++)) = (int)acc_env.tv.tv_sec;
i++;
VAL_INT(db_vals+(m++)) = (int)acc_env.tv.tv_usec;
i++;
} else if(acc_time_mode==2) {
VAL_DOUBLE(db_vals+(m++)) = ((double)(acc_env.tv.tv_sec * 1000)
+ (acc_env.tv.tv_usec / 1000)) / 1000;
i++;
} else if(acc_time_mode==3 || acc_time_mode==4) {
if(acc_time_mode==3) {
t = localtime(&acc_env.ts);
} else {
t = gmtime(&acc_env.ts);
}
if(strftime(acc_time_format_buf, ACC_TIME_FORMAT_SIZE,
acc_time_format, t)<=0) {
acc_time_format_buf[0] = '\0';
}
VAL_STRING(db_vals+(m++)) = acc_time_format_buf;
i++;
}
/* extra columns */
m += extra2strar( db_extra, rq, val_arr+m, int_arr+m, type_arr+m);
for( i++ ; i<m; i++)
VAL_STR(db_vals+i) = val_arr[i];
if (acc_dbf.use_table(db_handle, &acc_env.text/*table*/) < 0) {
LM_ERR("error in use_table\n");
return -1;
}
/* multi-leg columns */
if ( !leg_info ) {
if(acc_db_insert_mode==1 && acc_dbf.insert_delayed!=NULL) {
if (acc_dbf.insert_delayed(db_handle, db_keys, db_vals, m) < 0) {
LM_ERR("failed to insert delayed into database\n");
return -1;
}
} else if(acc_db_insert_mode==2 && acc_dbf.insert_async!=NULL) {
if (acc_dbf.insert_async(db_handle, db_keys, db_vals, m) < 0) {
LM_ERR("failed to insert async into database\n");
return -1;
}
} else {
if (acc_dbf.insert(db_handle, db_keys, db_vals, m) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
}
} else {
n = legs2strar(leg_info,rq,val_arr+m,int_arr+m,type_arr+m,1);
do {
for (i=m; i<m+n; i++)
VAL_STR(db_vals+i)=val_arr[i];
if(acc_db_insert_mode==1 && acc_dbf.insert_delayed!=NULL) {
if(acc_dbf.insert_delayed(db_handle,db_keys,db_vals,m+n)<0) {
LM_ERR("failed to insert delayed into database\n");
return -1;
}
} else if(acc_db_insert_mode==2 && acc_dbf.insert_async!=NULL) {
if(acc_dbf.insert_async(db_handle,db_keys,db_vals,m+n)<0) {
LM_ERR("failed to insert async into database\n");
return -1;
}
} else {
if (acc_dbf.insert(db_handle, db_keys, db_vals, m+n) < 0) {
LM_ERR("failed to insert into database\n");
return -1;
}
}
}while ( (n=legs2strar(leg_info,rq,val_arr+m,int_arr+m,
type_arr+m,0))!=0 );
}
return 1;
}
int acc_log_request( struct sip_msg *rq)
{
static char log_msg[MAX_SYSLOG_SIZE];
static char *log_msg_end=log_msg+MAX_SYSLOG_SIZE-2;
char *p;
int n;
int m;
int i;
struct tm *t;
/* get default values */
m = core2strar( rq, val_arr, int_arr, type_arr);
/* get extra values */
m += extra2strar( log_extra, rq, val_arr+m, int_arr+m, type_arr+m);
for ( i=0,p=log_msg ; i<m ; i++ ) {
if (p+1+log_attrs[i].len+1+val_arr[i].len >= log_msg_end) {
LM_WARN("acc message too long, truncating..\n");
p = log_msg_end;
break;
}
*(p++) = A_SEPARATOR_CHR;
memcpy(p, log_attrs[i].s, log_attrs[i].len);
p += log_attrs[i].len;
*(p++) = A_EQ_CHR;
if (val_arr[i].s != NULL) {
memcpy(p, val_arr[i].s, val_arr[i].len);
p += val_arr[i].len;
}
}
/* get per leg attributes */
if ( leg_info ) {
n = legs2strar(leg_info,rq,val_arr+m,int_arr+m,type_arr+m, 1);
do {
for (i=m; i<m+n; i++) {
if (p+1+log_attrs[i].len+1+val_arr[i].len >= log_msg_end) {
LM_WARN("acc message too long, truncating..\n");
p = log_msg_end;
break;
}
*(p++) = A_SEPARATOR_CHR;
memcpy(p, log_attrs[i].s, log_attrs[i].len);
p += log_attrs[i].len;
*(p++) = A_EQ_CHR;
if (val_arr[i].s != NULL) {
memcpy(p, val_arr[i].s, val_arr[i].len);
p += val_arr[i].len;
}
}
} while (p!=log_msg_end && (n=legs2strar(leg_info,rq,val_arr+m,
int_arr+m,type_arr+m,
0))!=0);
}
/* terminating line */
*(p++) = '\n';
*(p++) = 0;
if(acc_time_mode==1) {
LM_GEN2(log_facility, log_level, "%.*stimestamp=%lu;%s=%u%s",
acc_env.text.len, acc_env.text.s,(unsigned long)acc_env.ts,
acc_time_exten.s, (unsigned int)acc_env.tv.tv_usec,
log_msg);
} else if(acc_time_mode==2) {
LM_GEN2(log_facility, log_level, "%.*stimestamp=%lu;%s=%.3f%s",
acc_env.text.len, acc_env.text.s,(unsigned long)acc_env.ts,
acc_time_attr.s,
(((double)(acc_env.tv.tv_sec * 1000)
+ (acc_env.tv.tv_usec / 1000)) / 1000),
log_msg);
} else if(acc_time_mode==3 || acc_time_mode==4) {
if(acc_time_mode==3) {
t = localtime(&acc_env.ts);
} else {
t = gmtime(&acc_env.ts);
}
if(strftime(acc_time_format_buf, ACC_TIME_FORMAT_SIZE,
acc_time_format, t)<=0) {
acc_time_format_buf[0] = '\0';
}
LM_GEN2(log_facility, log_level, "%.*stimestamp=%lu;%s=%s%s",
acc_env.text.len, acc_env.text.s,(unsigned long)acc_env.ts,
acc_time_attr.s,
acc_time_format_buf,
log_msg);
} else {
LM_GEN2(log_facility, log_level, "%.*stimestamp=%lu%s",
acc_env.text.len, acc_env.text.s,(unsigned long)acc_env.ts,
log_msg);
}
return 1;
}
int acc_aaa_request( struct sip_msg *req, struct sip_msg *rpl)
{
int attr_cnt;
aaa_message *send;
int offset, i, av_type;
aaa_map *r_stat;
if ((send = proto.create_aaa_message(conn, AAA_ACCT)) == NULL) {
LM_ERR("failed to create new aaa message for acct\n");
return -1;
}
attr_cnt = core2strar( req, val_arr);
/* not interested in the last 2 values */
attr_cnt -= 2;
r_stat = aaa_status( req, acc_env.code); /* AAA PROTOCOL status */
ADD_AAA_AVPAIR( RA_ACCT_STATUS_TYPE, &(r_stat->value), -1);
av_type = rd_vals[RV_SIP_SESSION].value; /* session*/
ADD_AAA_AVPAIR( RA_SERVICE_TYPE, &av_type, -1);
av_type = (uint32_t)acc_env.code; /* status=integer */
ADD_AAA_AVPAIR( RA_SIP_RESPONSE_CODE, &av_type, -1);
av_type = req->REQ_METHOD; /* method */
ADD_AAA_AVPAIR( RA_SIP_METHOD, &av_type, -1);
/* unix time */
av_type = (uint32_t)acc_env.ts;
ADD_AAA_AVPAIR( RA_TIME_STAMP, &av_type, -1);
/* add extra also */
attr_cnt += extra2strar( aaa_extra, req, rpl, val_arr+attr_cnt, 0);
/* add the values for the vector - start from 1 instead of
* 0 to skip the first value which is the METHOD as string */
offset = RA_STATIC_MAX-1;
for (i = 1; i < attr_cnt; i++)
ADD_AAA_AVPAIR( offset + i, val_arr[i].s, val_arr[i].len );
/* call-legs attributes also get inserted */
if (leg_info) {
offset += attr_cnt;
attr_cnt = legs2strar(leg_info,req,val_arr,1);
do {
for (i = 0; i < attr_cnt; i++)
ADD_AAA_AVPAIR( offset+i, val_arr[i].s, val_arr[i].len );
} while ((attr_cnt = legs2strar(leg_info,req,val_arr,0)) != 0);
}
if (proto.send_aaa_request(conn, send, NULL)) {
LM_ERR("Radius accounting request failed for status: '%s' "
"Call-Id: '%.*s' \n",r_stat->name,
req->callid->body.len, req->callid->body.s);
goto error;
}
proto.destroy_aaa_message(conn, send);
return 1;
error:
proto.destroy_aaa_message(conn, send);
return -1;
}
