/*! \brief
* Allocate a memory buffer and print Contact
* header fields into it
*/
int build_contact(sip_msg_t *msg, ucontact_t* c, str *host)
{
char *p, *cp;
char *a;
int fl, len;
str user;
str inst;
unsigned int ahash;
unsigned short digit;
int mode;
sr_xavp_t *xavp=NULL;
sr_xavp_t *list=NULL;
str xname = {"ruid", 4};
sr_xval_t xval;
if(msg!=NULL && parse_supported(msg)==0
&& (get_supported(msg) & F_OPTION_TAG_GRUU))
mode = 1;
else
mode = 0;
contact.data_len = calc_buf_len(c, host, mode);
if (!contact.data_len) return 0;
if (!contact.buf || (contact.buf_len < contact.data_len)) {
if (contact.buf) pkg_free(contact.buf);
contact.buf = (char*)pkg_malloc(contact.data_len);
if (!contact.buf) {
contact.data_len = 0;
contact.buf_len = 0;
LM_ERR("no pkg memory left\n");
return -1;
} else {
contact.buf_len = contact.data_len;
}
}
p = contact.buf;
memcpy(p, CONTACT_BEGIN, CONTACT_BEGIN_LEN);
p += CONTACT_BEGIN_LEN;
/* add xavp with details of the record (ruid, ...) */
if(reg_xavp_rcd.s!=NULL)
{
list = xavp_get(®_xavp_rcd, NULL);
xavp = list;
}
fl = 0;
while(c) {
if (VALID_CONTACT(c, act_time)) {
if (fl) {
memcpy(p, CONTACT_SEP, CONTACT_SEP_LEN);
p += CONTACT_SEP_LEN;
} else {
fl = 1;
}
*p++ = '<';
memcpy(p, c->c.s, c->c.len);
p += c->c.len;
*p++ = '>';
len = len_q(c->q);
if (len) {
memcpy(p, Q_PARAM, Q_PARAM_LEN);
p += Q_PARAM_LEN;
memcpy(p, q2str(c->q, 0), len);
p += len;
}
memcpy(p, EXPIRES_PARAM, EXPIRES_PARAM_LEN);
p += EXPIRES_PARAM_LEN;
cp = int2str((int)(c->expires - act_time), &len);
memcpy(p, cp, len);
p += len;
if (rcv_param.len>0 && c->received.s) {
*p++ = ';';
memcpy(p, rcv_param.s, rcv_param.len);
p += rcv_param.len;
*p++ = '=';
*p++ = '\"';
memcpy(p, c->received.s, c->received.len);
p += c->received.len;
*p++ = '\"';
}
if (reg_gruu_enabled==1 && c->instance.len>0 && mode==1) {
user.s = c->aor->s;
a = memchr(c->aor->s, '@', c->aor->len);
if(a!=NULL) {
user.len = a - user.s;
} else {
user.len = c->aor->len;
}
/* pub-gruu */
memcpy(p, PUB_GRUU_PARAM, PUB_GRUU_PARAM_LEN);
p += PUB_GRUU_PARAM_LEN;
*p++ = '\"';
memcpy(p, "sip:", 4);
p += 4;
if(a!=NULL) {
memcpy(p, c->aor->s, c->aor->len);
p += c->aor->len;
} else {
memcpy(p, user.s, user.len);
p += user.len;
*p++ = '@';
memcpy(p, host->s, host->len);
p += host->len;
}
memcpy(p, GR_PARAM, GR_PARAM_LEN);
p += GR_PARAM_LEN;
inst = c->instance;
if(inst.s[0]=='<' && inst.s[inst.len-1]=='>') {
inst.s++;
inst.len -= 2;
}
memcpy(p, inst.s, inst.len);
p += inst.len;
*p++ = '\"';
/* temp-gruu */
memcpy(p, TMP_GRUU_PARAM, TMP_GRUU_PARAM_LEN);
p += TMP_GRUU_PARAM_LEN;
*p++ = '\"';
memcpy(p, "sip:", 4);
p += 4;
memcpy(p, c->ruid.s, c->ruid.len);
p += c->ruid.len;
*p++ = '-';
ahash = ul.get_aorhash(c->aor);
while(ahash!=0)
{
digit = ahash & 0x0f;
*p++ = (digit >= 10) ? digit + 'a' - 10 : digit + '0';
ahash >>= 4;
}
*p++ = '@';
memcpy(p, host->s, host->len);
p += host->len;
memcpy(p, GR_PARAM, GR_PARAM_LEN);
p += GR_PARAM_LEN - 1;
*p++ = '\"';
}
if (c->instance.len>0) {
/* +sip-instance */
memcpy(p, SIP_INSTANCE_PARAM, SIP_INSTANCE_PARAM_LEN);
p += SIP_INSTANCE_PARAM_LEN;
*p++ = '\"';
memcpy(p, c->instance.s, c->instance.len);
p += c->instance.len;
*p++ = '\"';
}
if (c->reg_id>0) {
/* reg-id */
memcpy(p, REG_ID_PARAM, REG_ID_PARAM_LEN);
p += REG_ID_PARAM_LEN;
cp = int2str(c->reg_id, &len);
memcpy(p, cp, len);
p += len;
}
if(reg_xavp_rcd.s!=NULL)
{
memset(&xval, 0, sizeof(sr_xval_t));
xval.type = SR_XTYPE_STR;
xval.v.s = c->ruid;
if(xavp_add_value(&xname, &xval, &xavp)==NULL) {
LM_ERR("cannot add ruid value to xavp\n");
}
}
}
c = c->next;
}
int build_contact(ucontact_t* c, contact_for_header_t** contact_header) {
char *p, *cp;
int fl, len;
*contact_header = 0;
contact_for_header_t* tmp_contact_header = shm_malloc(sizeof (contact_for_header_t));
if (!tmp_contact_header) {
LM_ERR("no more memory\n");
return -1;
}
memset(tmp_contact_header, 0, sizeof (contact_for_header_t));
tmp_contact_header->data_len = calc_buf_len(c);
tmp_contact_header->buf = (char*)shm_malloc(tmp_contact_header->data_len);
p = tmp_contact_header->buf;
memcpy(p, CONTACT_BEGIN, CONTACT_BEGIN_LEN);
p += CONTACT_BEGIN_LEN;
fl = 0;
while (c) {
if (VALID_CONTACT(c, act_time)) {
if (fl) {
memcpy(p, CONTACT_SEP, CONTACT_SEP_LEN);
p += CONTACT_SEP_LEN;
} else {
fl = 1;
}
*p++ = '<';
memcpy(p, c->c.s, c->c.len);
p += c->c.len;
*p++ = '>';
len = len_q(c->q);
if (len) {
memcpy(p, Q_PARAM, Q_PARAM_LEN);
p += Q_PARAM_LEN;
memcpy(p, q2str(c->q, 0), len);
p += len;
}
memcpy(p, EXPIRES_PARAM, EXPIRES_PARAM_LEN);
p += EXPIRES_PARAM_LEN;
cp = int2str((int) (c->expires - act_time), &len);
memcpy(p, cp, len);
p += len;
if (c->received.s) {
*p++ = ';';
memcpy(p, rcv_param.s, rcv_param.len);
p += rcv_param.len;
*p++ = '=';
*p++ = '\"';
memcpy(p, c->received.s, c->received.len);
p += c->received.len;
*p++ = '\"';
}
}
c = c->next;
}
memcpy(p, CRLF, CRLF_LEN);
p += CRLF_LEN;
tmp_contact_header->data_len = p - tmp_contact_header->buf;
LM_DBG("created Contact HF: %.*s\n", tmp_contact_header->data_len, tmp_contact_header->buf);
*contact_header = tmp_contact_header;
return 0;
}
/*! \brief
* Allocate a memory buffer and print Contact
* header fields into it
*/
int build_contact(ucontact_t* c)
{
char *p, *cp;
int fl, len;
contact.data_len = calc_buf_len(c);
if (!contact.data_len) return 0;
if (!contact.buf || (contact.buf_len < contact.data_len)) {
if (contact.buf) pkg_free(contact.buf);
contact.buf = (char*)pkg_malloc(contact.data_len);
if (!contact.buf) {
contact.data_len = 0;
contact.buf_len = 0;
LM_ERR("no pkg memory left\n");
return -1;
} else {
contact.buf_len = contact.data_len;
}
}
p = contact.buf;
memcpy(p, CONTACT_BEGIN, CONTACT_BEGIN_LEN);
p += CONTACT_BEGIN_LEN;
fl = 0;
while(c) {
if (VALID_CONTACT(c, act_time)) {
if (fl) {
memcpy(p, CONTACT_SEP, CONTACT_SEP_LEN);
p += CONTACT_SEP_LEN;
} else {
fl = 1;
}
*p++ = '<';
memcpy(p, c->c.s, c->c.len);
p += c->c.len;
*p++ = '>';
len = len_q(c->q);
if (len) {
memcpy(p, Q_PARAM, Q_PARAM_LEN);
p += Q_PARAM_LEN;
memcpy(p, q2str(c->q, 0), len);
p += len;
}
memcpy(p, EXPIRES_PARAM, EXPIRES_PARAM_LEN);
p += EXPIRES_PARAM_LEN;
cp = int2str((int)(c->expires - act_time), &len);
memcpy(p, cp, len);
p += len;
if (c->received.s) {
*p++ = ';';
memcpy(p, rcv_param.s, rcv_param.len);
p += rcv_param.len;
*p++ = '=';
*p++ = '\"';
memcpy(p, c->received.s, c->received.len);
p += c->received.len;
*p++ = '\"';
}
}
c = c->next;
}
memcpy(p, CRLF, CRLF_LEN);
p += CRLF_LEN;
contact.data_len = p - contact.buf;
LM_DBG("created Contact HF: %.*s\n", contact.data_len, contact.buf);
return 0;
}
/*! \brief
* Allocate a memory buffer and print Contact
* header fields into it
*/
int build_contact(ucontact_t* c,struct sip_msg *_m)
{
char *p, *cp, *tmpgr;
int fl, len,grlen;
int build_gruu = 0;
struct socket_info *sock;
if (!disable_gruu && _m->supported && parse_supported(_m) == 0 &&
(get_supported(_m) & F_SUPPORTED_GRUU))
build_gruu=1;
contact.data_len = calc_buf_len(c,build_gruu,_m);
if (!contact.data_len) return 0;
if (!contact.buf || (contact.buf_len < contact.data_len)) {
if (contact.buf) pkg_free(contact.buf);
contact.buf = (char*)pkg_malloc(contact.data_len);
if (!contact.buf) {
contact.data_len = 0;
contact.buf_len = 0;
LM_ERR("no pkg memory left\n");
return -1;
} else {
contact.buf_len = contact.data_len;
}
}
p = contact.buf;
memcpy(p, CONTACT_BEGIN, CONTACT_BEGIN_LEN);
p += CONTACT_BEGIN_LEN;
fl = 0;
while(c) {
if (VALID_CONTACT(c, get_act_time())) {
if (fl) {
memcpy(p, CONTACT_SEP, CONTACT_SEP_LEN);
p += CONTACT_SEP_LEN;
} else {
fl = 1;
}
*p++ = '<';
memcpy(p, c->c.s, c->c.len);
p += c->c.len;
*p++ = '>';
len = len_q(c->q);
if (len) {
memcpy(p, Q_PARAM, Q_PARAM_LEN);
p += Q_PARAM_LEN;
memcpy(p, q2str(c->q, 0), len);
p += len;
}
memcpy(p, EXPIRES_PARAM, EXPIRES_PARAM_LEN);
p += EXPIRES_PARAM_LEN;
cp = int2str((int)(c->expires - get_act_time()), &len);
memcpy(p, cp, len);
p += len;
if (c->received.s) {
*p++ = ';';
memcpy(p, rcv_param.s, rcv_param.len);
p += rcv_param.len;
*p++ = '=';
*p++ = '\"';
memcpy(p, c->received.s, c->received.len);
p += c->received.len;
*p++ = '\"';
}
if (build_gruu && c->instance.s) {
sock = (c->sock)?(c->sock):(_m->rcv.bind_address);
/* build pub GRUU */
memcpy(p,PUB_GRUU,PUB_GRUU_SIZE);
p += PUB_GRUU_SIZE;
*p++ = '\"';
memcpy(p,SIP_PROTO,SIP_PROTO_SIZE);
p += SIP_PROTO_SIZE;
memcpy(p,c->aor->s,c->aor->len);
p += c->aor->len;
if (!reg_use_domain) {
*p++ = '@';
memcpy(p,sock->name.s,sock->name.len);
p += sock->name.len;
*p++ = ':';
memcpy(p,sock->port_no_str.s,sock->port_no_str.len);
p += sock->port_no_str.len;
}
memcpy(p,GR_PARAM,GR_PARAM_SIZE);
p += GR_PARAM_SIZE;
memcpy(p,c->instance.s+1,c->instance.len-2);
p += c->instance.len-2;
*p++ = '\"';
/* build temp GRUU */
memcpy(p,TEMP_GRUU,TEMP_GRUU_SIZE);
p += TEMP_GRUU_SIZE;
*p++ = '\"';
memcpy(p,SIP_PROTO,SIP_PROTO_SIZE);
p += SIP_PROTO_SIZE;
memcpy(p,TEMP_GRUU_HEADER,TEMP_GRUU_HEADER_SIZE);
p += TEMP_GRUU_HEADER_SIZE;
tmpgr = build_temp_gruu(c->aor,&c->instance,&c->callid,&grlen);
base64encode((unsigned char *)p,
(unsigned char *)tmpgr,grlen);
p += calc_temp_gruu_len(c->aor,&c->instance,&c->callid);
*p++ = '@';
memcpy(p,sock->name.s,sock->name.len);
p += sock->name.len;
*p++ = ':';
memcpy(p,sock->port_no_str.s,sock->port_no_str.len);
p += sock->port_no_str.len;
memcpy(p,GR_NO_VAL,GR_NO_VAL_SIZE);
p += GR_NO_VAL_SIZE;
*p++ = '\"';
/* build +sip.instance */
memcpy(p,SIP_INSTANCE,SIP_INSTANCE_SIZE);
p += SIP_INSTANCE_SIZE;
*p++ = '\"';
memcpy(p,c->instance.s+1,c->instance.len-2);
p += c->instance.len-2;
*p++ = '\"';
}
}
c = c->next;
}
memcpy(p, CRLF, CRLF_LEN);
p += CRLF_LEN;
contact.data_len = p - contact.buf;
LM_DBG("created Contact HF: %.*s\n", contact.data_len, contact.buf);
return 0;
}
