static inline void acc_onack( struct cell* t, struct sip_msg *req,
struct sip_msg *ack, int code)
{
if (acc_preparse_req(ack)<0)
return;
/* set env variables */
env_set_to( ack->to?ack->to:req->to );
env_set_code_status( t->uas.status, 0 );
if (is_log_acc_on(req)) {
env_set_text( ACC_ACKED, ACC_ACKED_LEN);
acc_log_request( ack );
}
#ifdef SQL_ACC
if (is_db_acc_on(req)) {
if(acc_db_set_table_name(ack, db_table_acc_data, &db_table_acc)<0) {
LM_ERR("cannot set acc db table name\n");
return;
}
acc_db_request( ack );
}
#endif
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_acc_on(req)) {
acc_diam_request(ack);
}
#endif
/* run extra acc engines */
acc_run_engines(ack, 0, NULL);
}
int w_acc_log_request(struct sip_msg *rq, char *comment, char *foo)
{
if (acc_preparse_req(rq)<0)
return -1;
env_set_to( rq->to );
env_set_comment((struct acc_param*)comment);
env_set_text( ACC_REQUEST, ACC_REQUEST_LEN);
return acc_log_request( rq, NULL);
}
void acc_log_reply( struct cell* t , struct sip_msg *reply,
unsigned int code )
{
str code_str;
static str lead={ACC_ANSWERED, ACC_ANSWERED_LEN};
code_str.s=int2str(code, &code_str.len);
acc_log_request(t->uas.request,
valid_to(t,reply), &lead, &code_str );
}
/* these wrappers parse all what may be needed; they don't care about
* the result -- accounting functions just display "unavailable" if there
* is nothing meaningful
*/
static int w_acc_log_request(struct sip_msg *rq, char *comment, char *foo)
{
str txt; str phrase;
txt.s=ACC_REQUEST;
txt.len=ACC_REQUEST_LEN;
phrase.s=comment;
phrase.len=strlen(comment); /* fix_param would be faster! */
acc_preparse_req(rq);
return acc_log_request(rq, rq->to, &txt, &phrase);
}
int w_acc_log_request(struct sip_msg *rq, char *comment, char *foo)
{
struct acc_param *param = (struct acc_param*)comment;
if (acc_preparse_req(rq)<0)
return -1;
if(acc_get_param_value(rq, param)<0)
return -1;
env_set_to( rq->to );
env_set_comment(param);
env_set_text( ACC_REQUEST, ACC_REQUEST_LEN);
return acc_log_request(rq);
}
/********************************************
* reports for e2e ACKs
********************************************/
void acc_log_ack( struct cell* t , struct sip_msg *ack )
{
struct sip_msg *rq;
struct hdr_field *to;
static str lead={ACC_ACKED, ACC_ACKED_LEN};
str code_str;
rq = t->uas.request;
if (ack->to) to=ack->to; else to=rq->to;
code_str.s=int2str(t->uas.status, &code_str.len);
acc_log_request(ack, to, &lead, &code_str );
}
int w_acc_log_request(struct sip_msg *rq, pv_elem_t* comment, char *foo)
{
struct acc_param accp;
if (acc_preparse_req(rq)<0)
return -1;
acc_pvel_to_acc_param(rq, comment, &accp);
env_set_to( rq->to );
env_set_comment( &accp );
env_set_text( ACC_REQUEST, ACC_REQUEST_LEN);
return acc_log_request( rq, NULL, 0);
}
void acc_log_missed( struct cell* t, struct sip_msg *reply,
unsigned int code )
{
str acc_text;
static str leading_text={ACC_MISSED, ACC_MISSED_LEN};
get_reply_status(&acc_text, reply, code);
if (acc_text.s==0) {
LOG(L_ERR, "ERROR: acc_missed_report: "
"get_reply_status failed\n" );
return;
}
acc_log_request(t->uas.request,
valid_to(t, reply), &leading_text, &acc_text);
pkg_free(acc_text.s);
}
/* initiate a report if we previously enabled accounting for this t */
static inline void acc_onreply( struct cell* t, struct sip_msg *req,
struct sip_msg *reply, int code)
{
str new_uri_bk;
str dst_uri_bk;
struct dlg_cell *dlg = NULL;
str flags_s;
int_str table;
struct usr_avp *avp;
/* acc_onreply is bound to TMCB_REPLY which may be called
from _reply, like when FR hits; we should not miss this
event for missed calls either */
if (is_invite(t) && code>=300 && is_mc_on(req) )
on_missed(t, req, reply, code);
if (!should_acc_reply(req, reply, code))
return;
/* for reply processing, set as new_uri the winning branch */
if (t->relaied_reply_branch>=0) {
new_uri_bk = req->new_uri;
dst_uri_bk = req->dst_uri;
req->new_uri = t->uac[t->relaied_reply_branch].uri;
req->dst_uri = t->uac[t->relaied_reply_branch].duri;
req->parsed_uri_ok = 0;
} else {
new_uri_bk.len = dst_uri_bk.len = -1;
new_uri_bk.s = dst_uri_bk.s = NULL;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
/* search for table avp */
table.s = db_table_acc;
if (db_table_name != -1 && is_db_acc_on(req)) {
avp = search_first_avp(db_table_name_type, db_table_name, &table, 0);
if (!avp) {
LM_DBG("table not set: using default %.*s\n",
db_table_acc.len, db_table_acc.s);
} else {
if (!(avp->flags & AVP_VAL_STR)) {
LM_WARN("invalid integer table name: using default %.*s\n",
db_table_acc.len, db_table_acc.s);
table.s = db_table_acc;
}
}
}
if (is_invite(t) && is_cdr_acc_on(req) && code >= 200 && code < 300
&& (dlg=dlg_api.get_dlg()) != NULL) {
/* if dialog module loaded and INVITE and success reply */
if (store_core_leg_values(dlg, req) < 0) {
LM_ERR("cannot store core and leg values\n");
return;
}
if(is_log_acc_on(req) && store_log_extra_values(dlg,req,reply)<0){
LM_ERR("cannot store string values\n");
return;
}
if(is_aaa_acc_on(req) && store_aaa_extra_values(dlg, req, reply)<0){
LM_ERR("cannot store aaa extra values\n");
return;
}
if (is_db_acc_on(req) && store_db_extra_values(dlg,req,reply)<0) {
LM_ERR("cannot store database extra values\n");
return;
}
flags_s.s = (char*)&req->flags;
flags_s.len = sizeof(unsigned int);
/* store flags into dlg */
if ( dlg_api.store_dlg_value(dlg, &flags_str, &flags_s) < 0) {
LM_ERR("cannot store flag value into dialog\n");
return;
}
/* store flags into dlg */
if ( dlg_api.store_dlg_value(dlg, &table_str, &table.s) < 0) {
LM_ERR("cannot store the table name into dialog\n");
return;
}
/* register database callbacks */
if (dlg_api.register_dlgcb(dlg, DLGCB_TERMINATED |
DLGCB_EXPIRED, acc_dlg_callback,(void *)(long)req->flags,0) != 0) {
LM_ERR("cannot register callback for database accounting\n");
return;
}
} else {
/* do old accounting */
if ( is_log_acc_on(req) ) {
env_set_text( ACC_ANSWERED, ACC_ANSWERED_LEN);
acc_log_request( req, reply );
}
if (is_aaa_acc_on(req))
acc_aaa_request( req, reply );
if (is_db_acc_on(req)) {
env_set_text( table.s.s, table.s.len);
acc_db_request( req, reply, &acc_ins_list);
}
}
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_acc_on(req))
acc_diam_request( req, reply );
#endif
if (new_uri_bk.len>=0) {
req->new_uri = new_uri_bk;
req->dst_uri = dst_uri_bk;
req->parsed_uri_ok = 0;
}
}
/* initiate a report if we previously enabled MC accounting for this t */
static inline void on_missed(struct cell *t, struct sip_msg *req,
struct sip_msg *reply, int code)
{
str new_uri_bk={0,0};
str dst_uri_bk={0,0};
int flags_to_reset = 0;
if (t->nr_of_outgoings) {
/* set as new_uri the last branch */
new_uri_bk = req->new_uri;
dst_uri_bk = req->dst_uri;
req->new_uri = t->uac[t->nr_of_outgoings-1].uri;
req->dst_uri = t->uac[t->nr_of_outgoings-1].duri;
req->parsed_uri_ok = 0;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
/* we report on missed calls when the first
* forwarding attempt fails; we do not wish to
* report on every attempt; so we clear the flags;
*/
if (is_log_mc_on(req)) {
env_set_text( ACC_MISSED, ACC_MISSED_LEN);
acc_log_request( req, reply );
flags_to_reset |= log_missed_flag;
}
if (is_aaa_mc_on(req)) {
acc_aaa_request( req, reply );
flags_to_reset |= aaa_missed_flag;
}
if (is_db_mc_on(req)) {
env_set_text(db_table_mc.s, db_table_mc.len);
acc_db_request( req, reply,&mc_ins_list);
flags_to_reset |= db_missed_flag;
}
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_mc_on(req)) {
acc_diam_request( req, reply );
flags_to_reset |= diameter_missed_flag;
}
#endif
/* Reset the accounting missed_flags
* These can't be reset in the blocks above, because
* it would skip accounting if the flags are identical
*/
reset_acc_flag( req, flags_to_reset );
if (new_uri_bk.s) {
req->new_uri = new_uri_bk;
req->dst_uri = dst_uri_bk;
req->parsed_uri_ok = 0;
}
}
/* initiate a report if we previously enabled accounting for this t */
static inline void acc_onreply( struct cell* t, struct sip_msg *req,
struct sip_msg *reply, int code, acc_ctx_t* ctx)
{
str new_uri_bk;
str dst_uri_bk;
struct dlg_cell *dlg = NULL;
str ctx_s;
str table;
unsigned long long* flags = &ctx->flags;
/* acc_onreply is bound to TMCB_REPLY which may be called
from _reply, like when FR hits; we should not miss this
event for missed calls either */
if (is_invite(t) && code>=300 && is_mc_acc_on(*flags) ) {
on_missed(t, req, reply, code, ctx);
}
if (!should_acc_reply(req, reply, code, flags))
return;
/* for reply processing, set as new_uri the winning branch */
if (t->relaied_reply_branch>=0) {
new_uri_bk = req->new_uri;
dst_uri_bk = req->dst_uri;
req->new_uri = t->uac[t->relaied_reply_branch].uri;
req->dst_uri = t->uac[t->relaied_reply_branch].duri;
req->parsed_uri_ok = 0;
} else {
new_uri_bk.len = dst_uri_bk.len = -1;
new_uri_bk.s = dst_uri_bk.s = NULL;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
/* search for table avp */
if (is_db_acc_on(ctx->flags))
table = ctx->acc_table;
else {
table.s = 0;
table.len = 0;
}
if (is_invite(t) && !has_totag(req) && is_cdr_acc_on(ctx->flags) &&
code >= 200 && code < 300 && (dlg=dlg_api.get_dlg()) != NULL) {
/* if dialog module loaded and INVITE and success reply */
if (store_core_leg_values(dlg, req) < 0) {
LM_ERR("cannot store core and leg values\n");
return;
}
ctx_s.s = (char*)&ctx;
ctx_s.len = sizeof(acc_ctx_t *);
/* store context pointer into dialog */
if (dlg_api.store_dlg_value(dlg, &acc_ctx_str, &ctx_s) < 0) {
LM_ERR("cannot store context pointer into dlg val!\n");
return;
}
/* report that flags shall be freed only by dialog module
* tm must never free it */
set_dialog_context(*flags);
/* register program shutdown callback
* won't register free function since TERMINATED|EXPIRED callback
* free function will be called to free */
if (dlg_api.register_dlgcb(dlg, DLGCB_DB_WRITE_VP,
acc_dlg_onshutdown, ctx, NULL) != 0) {
LM_ERR("cannot register callback for program shutdown!\n");
return;
}
/* register database callbacks */
if (dlg_api.register_dlgcb(dlg, DLGCB_TERMINATED|DLGCB_EXPIRED,
acc_dlg_callback, ctx, dlg_free_acc_ctx) != 0) {
LM_ERR("cannot register callback for database accounting\n");
return;
}
} else {
/* do old accounting */
if ( is_evi_acc_on(*flags) ) {
env_set_event(acc_event);
acc_evi_request( req, reply, 0 );
}
if ( is_log_acc_on(*flags) ) {
env_set_text( ACC_ANSWERED, ACC_ANSWERED_LEN);
acc_log_request( req, reply, 0 );
}
if (is_aaa_acc_on(*flags))
acc_aaa_request( req, reply, 0 );
if (is_db_acc_on(*flags)) {
env_set_text( table.s, table.len);
acc_db_request( req, reply, &acc_ins_list, 0);
}
}
if (new_uri_bk.len>=0) {
req->new_uri = new_uri_bk;
req->dst_uri = dst_uri_bk;
req->parsed_uri_ok = 0;
}
}
/* initiate a report if we previously enabled MC accounting for this t */
static inline void on_missed(struct cell *t, struct sip_msg *req,
struct sip_msg *reply, int code, acc_ctx_t *ctx)
{
str new_uri_bk={0,0};
str dst_uri_bk={0,0};
unsigned long long flags_to_reset=0;
unsigned long long *flags = &ctx->flags;
if (t->nr_of_outgoings) {
/* set as new_uri the last branch */
new_uri_bk = req->new_uri;
dst_uri_bk = req->dst_uri;
req->new_uri = t->uac[t->nr_of_outgoings-1].uri;
req->dst_uri = t->uac[t->nr_of_outgoings-1].duri;
req->parsed_uri_ok = 0;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
/* we report on missed calls when the first
* forwarding attempt fails; we do not wish to
* report on every attempt; so we clear the flags;
*/
if (is_evi_mc_on(*flags)) {
env_set_event(acc_missed_event);
acc_evi_request( req, reply, is_evi_cdr_on(*flags) );
flags_to_reset |= DO_ACC_EVI * DO_ACC_MISSED;
}
if (is_log_mc_on(*flags)) {
env_set_text( ACC_MISSED, ACC_MISSED_LEN);
acc_log_request( req, reply, is_log_cdr_on(*flags) );
flags_to_reset |= DO_ACC_LOG * DO_ACC_MISSED;
}
if (is_aaa_mc_on(*flags)) {
acc_aaa_request( req, reply, is_aaa_cdr_on(*flags) );
flags_to_reset |= DO_ACC_AAA * DO_ACC_MISSED;
}
if (is_db_mc_on(*flags)) {
env_set_text(db_table_mc.s, db_table_mc.len);
acc_db_request( req, reply,&mc_ins_list, is_db_cdr_on(*flags));
flags_to_reset |= DO_ACC_DB * DO_ACC_MISSED;
}
/* Reset the accounting missed_flags
* These can't be reset in the blocks above, because
* it would skip accounting if the flags are identical
*/
if (t->nr_of_outgoings) {
req->new_uri = new_uri_bk;
req->dst_uri = dst_uri_bk;
req->parsed_uri_ok = 0;
}
reset_flags(*flags, flags_to_reset);
}
/* initiate a report if we previously enabled accounting for this t */
static inline void acc_onreply( struct cell* t, struct sip_msg *req,
struct sip_msg *reply, int code)
{
str new_uri_bk;
int br = -1;
hdr_field_t *hdr;
sip_msg_t tmsg;
sip_msg_t *preq;
/* acc_onreply is bound to TMCB_REPLY which may be called
from _reply, like when FR hits; we should not miss this
event for missed calls either */
if (is_invite(t) && code>=300 && is_mc_on(req) )
on_missed(t, req, reply, code);
if (!should_acc_reply(req, reply, code))
return;
if(_acc_clone_msg==1) {
memcpy(&tmsg, req, sizeof(sip_msg_t));
preq = &tmsg;
} else {
preq = req;
}
/* get winning branch index, if set */
if (t->relayed_reply_branch>=0) {
br = t->relayed_reply_branch;
} else {
if(code>=300) {
br = tmb.t_get_picked_branch();
}
}
/* for reply processing, set as new_uri the one from selected branch */
if (br>=0) {
new_uri_bk = preq->new_uri;
preq->new_uri = t->uac[br].uri;
preq->parsed_uri_ok = 0;
} else {
new_uri_bk.len = -1;
new_uri_bk.s = 0;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
if ( is_log_acc_on(preq) ) {
env_set_text( ACC_ANSWERED, ACC_ANSWERED_LEN);
acc_log_request(preq);
}
#ifdef SQL_ACC
if (is_db_acc_on(preq)) {
if(acc_db_set_table_name(preq, db_table_acc_data, &db_table_acc)<0) {
LM_ERR("cannot set acc db table name\n");
} else {
acc_db_request(preq);
}
}
#endif
#ifdef RAD_ACC
if (is_rad_acc_on(preq))
acc_rad_request(preq);
#endif
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_acc_on(preq))
acc_diam_request(preq);
#endif
/* run extra acc engines */
acc_run_engines(preq, 0, NULL);
if (new_uri_bk.len>=0) {
req->new_uri = new_uri_bk;
req->parsed_uri_ok = 0;
}
/* free header's parsed structures that were added by resolving acc attributes */
for( hdr=req->headers ; hdr ; hdr=hdr->next ) {
if ( hdr->parsed && hdr_allocs_parse(hdr) &&
(hdr->parsed<(void*)t->uas.request ||
hdr->parsed>=(void*)t->uas.end_request)) {
/* header parsed filed doesn't point inside uas.request memory
* chunck -> it was added by resolving acc attributes -> free it as pkg */
DBG("removing hdr->parsed %d\n", hdr->type);
clean_hdr_field(hdr);
hdr->parsed = 0;
}
}
}
/* initiate a report if we previously enabled MC accounting for this t */
static inline void on_missed(struct cell *t, struct sip_msg *req,
struct sip_msg *reply, int code)
{
str new_uri_bk = {0, 0};
int flags_to_reset = 0;
int br = -1;
/* get winning branch index, if set */
if (t->relayed_reply_branch>=0) {
br = t->relayed_reply_branch;
} else {
if(code>=300) {
br = tmb.t_get_picked_branch();
}
}
/* set as new_uri the one from selected branch */
if (br>=0) {
new_uri_bk = req->new_uri;
req->new_uri = t->uac[br].uri;
req->parsed_uri_ok = 0;
} else {
new_uri_bk.len = -1;
new_uri_bk.s = 0;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
/* we report on missed calls when the first
* forwarding attempt fails; we do not wish to
* report on every attempt; so we clear the flags;
*/
if (is_log_mc_on(req)) {
env_set_text( ACC_MISSED, ACC_MISSED_LEN);
acc_log_request( req );
flags_to_reset |= log_missed_flag;
}
#ifdef SQL_ACC
if (is_db_mc_on(req)) {
if(acc_db_set_table_name(req, db_table_mc_data, &db_table_mc)<0) {
LM_ERR("cannot set missed call db table name\n");
return;
}
acc_db_request( req );
flags_to_reset |= db_missed_flag;
}
#endif
#ifdef RAD_ACC
if (is_rad_mc_on(req)) {
acc_rad_request( req );
flags_to_reset |= radius_missed_flag;
}
#endif
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_mc_on(req)) {
acc_diam_request( req );
flags_to_reset |= diameter_missed_flag;
}
#endif
/* run extra acc engines */
acc_run_engines(req, 1, &flags_to_reset);
/* Reset the accounting missed_flags
* These can't be reset in the blocks above, because
* it would skip accounting if the flags are identical
*/
reset_acc_flag( req, flags_to_reset );
if (new_uri_bk.len>=0) {
req->new_uri = new_uri_bk;
req->parsed_uri_ok = 0;
}
}
/* initiate a report if we previously enabled accounting for this t */
static void acc_onreply(tm_cell_t *t, sip_msg_t *req, sip_msg_t *reply, int code)
{
str new_uri_bk;
int br = -1;
hdr_field_t *hdr;
sip_msg_t *cmsg = 0;
int cmsg_len = 0;
sip_msg_t *preq = 0;
void *mstart;
void *mend;
/* acc_onreply is bound to TMCB_REPLY which may be called
from _reply, like when FR hits; we should not miss this
event for missed calls either */
if (is_invite(t) && code>=300 && is_mc_on(req) )
on_missed(t, req, reply, code);
if (!should_acc_reply(req, reply, code))
return;
if(_acc_clone_msg==1) {
/* make a clone so eventual new parsed headers in pkg are not visible
* to other processes -- other attributes should be already parsed,
* available in the req structure and propagated by cloning */
cmsg = sip_msg_shm_clone(req, &cmsg_len, 1);
if(cmsg==NULL) {
LM_ERR("failed to clone the request - acc aborted\n");
return;
}
mstart = cmsg;
mend = ((char*)cmsg) + cmsg_len;
preq = cmsg;
} else {
mstart = t->uas.request;
mend = t->uas.end_request;
preq = req;
}
/* get winning branch index, if set */
if (t->relayed_reply_branch>=0) {
br = t->relayed_reply_branch;
} else {
if(code>=300) {
br = tmb.t_get_picked_branch();
}
}
/* for reply processing, set as new_uri the one from selected branch */
if (br>=0) {
new_uri_bk = preq->new_uri;
preq->new_uri = t->uac[br].uri;
preq->parsed_uri_ok = 0;
} else {
new_uri_bk.len = -1;
new_uri_bk.s = 0;
}
/* set env variables */
env_set_to( get_rpl_to(t,reply) );
env_set_code_status( code, reply);
if ( is_log_acc_on(preq) ) {
env_set_text( ACC_ANSWERED, ACC_ANSWERED_LEN);
acc_log_request(preq);
}
#ifdef SQL_ACC
if (is_db_acc_on(preq)) {
if(acc_db_set_table_name(preq, db_table_acc_data, &db_table_acc)<0) {
LM_ERR("cannot set acc db table name\n");
} else {
acc_db_request(preq);
}
}
#endif
/* DIAMETER */
#ifdef DIAM_ACC
if (is_diam_acc_on(preq))
acc_diam_request(preq);
#endif
/* run extra acc engines */
acc_run_engines(preq, 0, NULL);
if (new_uri_bk.len>=0) {
preq->new_uri = new_uri_bk;
preq->parsed_uri_ok = 0;
}
/* free header's parsed structures that were added by resolving acc attributes */
for( hdr=preq->headers ; hdr ; hdr=hdr->next ) {
if (hdr->parsed && hdr_allocs_parse(hdr) &&
(hdr->parsed<mstart || hdr->parsed>=mend)) {
/* header parsed filed doesn't point inside cloned request memory
* chunck -> it was added by resolving acc attributes -> free it as pkg */
DBG("removing hdr->parsed %d\n", hdr->type);
clean_hdr_field(hdr);
hdr->parsed = 0;
}
}
if(cmsg!=NULL) {
shm_free(cmsg);
}
}
