/*
* Free all memory
*/
void free_contact(contact_body_t** _c)
{
if ((*_c)->contacts) {
free_contacts(&((*_c)->contacts));
}
pkg_free(*_c);
*_c = 0;
}
/*
* Parse contacts in a Contact HF
*/
int parse_contacts(str* _s, contact_t** _c)
{
contact_t* c;
contact_t* last;
param_hooks_t hooks;
last = NULL;
while(1) {
/* Allocate and clear contact structure */
c = (contact_t*)pkg_malloc(sizeof(contact_t));
if (c == 0) {
LM_ERR("no pkg memory left\n");
goto error;
}
memset(c, 0, sizeof(contact_t));
c->name.s = _s->s;
if (skip_name(_s) < 0) {
LM_ERR("failed to skip name part\n");
goto error;
}
c->uri.s = _s->s;
c->name.len = _s->s - c->name.s;
trim_trailing(&c->name);
/* Find the end of the URI */
if (skip_uri(_s) < 0) {
LM_ERR("failed to skip URI\n");
goto error;
}
c->uri.len = _s->s - c->uri.s; /* Calculate URI length */
trim_trailing(&(c->uri)); /* Remove any trailing spaces from URI */
/* Remove <> if any */
if ((c->uri.len >= 2) && (c->uri.s[0] == '<') &&
(c->uri.s[c->uri.len - 1] == '>')) {
c->uri.s++;
c->uri.len -= 2;
}
trim(&c->uri);
/* RFC3261 grammar enforces the existance of an URI */
if (c->uri.len==0) {
LM_ERR("Empty URI found in contact body\n");
goto error;
}
if (_s->len == 0) goto ok;
if (_s->s[0] == ';') { /* Contact parameter found */
_s->s++;
_s->len--;
trim_leading(_s);
if (_s->len == 0) {
LM_ERR("failed to parse params\n");
goto error;
}
if (parse_params(_s, CLASS_CONTACT, &hooks, &c->params) < 0) {
LM_ERR("failed to parse contact parameters\n");
goto error;
}
c->q = hooks.contact.q;
c->expires = hooks.contact.expires;
c->received = hooks.contact.received;
c->methods = hooks.contact.methods;
c->instance = hooks.contact.instance;
if (_s->len == 0) goto ok;
}
/* Next character is comma */
c->len = _s->s - c->name.s;
_s->s++;
_s->len--;
trim_leading(_s);
if (_s->len == 0) {
LM_ERR("text after comma missing\n");
goto error;
}
if (last) {last->next=c;} else {*_c = c;}
last = c;
}
error:
if (c) pkg_free(c);
free_contacts(_c); /* Free any contacts created so far */
return -1;
ok:
c->len = _s->s - c->name.s;
if (last) {last->next=c;} else {*_c = c;}
last = c;
return 0;
}
int save_aux(struct sip_msg* _m, str* forced_binding, char* _d, char* _f, char* _s)
{
struct save_ctx sctx;
contact_t* c;
contact_t* forced_c = NULL;
int st;
str uri;
str flags_s;
pv_value_t val;
rerrno = R_FINE;
memset( &sctx, 0 , sizeof(sctx));
sctx.max_contacts = -1;
sctx.flags = 0;
sctx.min_expires = min_expires;
sctx.max_expires = max_expires;
if ( _f ) {
if (fixup_get_svalue( _m, (gparam_p)_f, &flags_s)!=0) {
LM_ERR("invalid flags parameter");
return -1;
}
for( st=0 ; st< flags_s.len ; st++ ) {
switch (flags_s.s[st]) {
case 'm': sctx.flags |= REG_SAVE_MEMORY_FLAG; break;
case 'r': sctx.flags |= REG_SAVE_NOREPLY_FLAG; break;
case 's': sctx.flags |= REG_SAVE_SOCKET_FLAG; break;
case 'v': sctx.flags |= REG_SAVE_PATH_RECEIVED_FLAG; break;
case 'f': sctx.flags |= REG_SAVE_FORCE_REG_FLAG; break;
case 'c':
sctx.max_contacts = 0;
while (st<flags_s.len-1 && isdigit(flags_s.s[st+1])) {
sctx.max_contacts = sctx.max_contacts*10 +
flags_s.s[st+1] - '0';
st++;
}
break;
case 'e':
sctx.min_expires = 0;
while (st<flags_s.len-1 && isdigit(flags_s.s[st+1])) {
sctx.min_expires = sctx.min_expires*10 +
flags_s.s[st+1] - '0';
st++;
}
break;
case 'E':
sctx.max_expires = 0;
while (st<flags_s.len-1 && isdigit(flags_s.s[st+1])) {
sctx.max_expires = sctx.max_expires*10 +
flags_s.s[st+1] - '0';
st++;
}
break;
case 'p':
if (st<flags_s.len-1) {
st++;
if (flags_s.s[st]=='2') {
sctx.flags |= REG_SAVE_PATH_STRICT_FLAG; break; }
if (flags_s.s[st]=='1') {
sctx.flags |= REG_SAVE_PATH_LAZY_FLAG; break; }
if (flags_s.s[st]=='0') {
sctx.flags |= REG_SAVE_PATH_OFF_FLAG; break; }
}
default: LM_WARN("unsuported flag %c \n",flags_s.s[st]);
}
}
}
if(route_type == ONREPLY_ROUTE)
sctx.flags |= REG_SAVE_NOREPLY_FLAG;
/* if no max_contact per AOR is defined, use the global one */
if (sctx.max_contacts == -1)
sctx.max_contacts = max_contacts;
if (parse_message(_m) < 0) {
goto error;
}
if (forced_binding) {
if (parse_contacts(forced_binding, &forced_c) < 0) {
LM_ERR("Unable to parse forced binding [%.*s]\n",
forced_binding->len, forced_binding->s);
goto error;
}
/* prevent processing all the headers from the message */
reset_first_contact();
st = 0;
c = forced_c;
} else {
if (check_contacts(_m, &st) > 0) {
goto error;
}
c = get_first_contact(_m);
}
get_act_time();
if (_s) {
if (pv_get_spec_value( _m, (pv_spec_p)_s, &val)!=0) {
LM_ERR("failed to get PV value\n");
goto return_minus_one;
}
if ( (val.flags&PV_VAL_STR)==0 ) {
LM_ERR("PV vals is not string\n");
goto return_minus_one;
}
uri = val.rs;
} else {
uri = get_to(_m)->uri;
}
if (extract_aor( &uri, &sctx.aor,0,0) < 0) {
LM_ERR("failed to extract Address Of Record\n");
goto error;
}
if (c == 0) {
if (st) {
if (star((udomain_t*)_d, &sctx,_m) < 0) goto error;
} else {
if (no_contacts((udomain_t*)_d, &sctx.aor,_m) < 0) goto error;
}
} else {
if (add_contacts(_m, c, (udomain_t*)_d, &sctx) < 0) goto error;
}
update_stat(accepted_registrations, 1);
if (!is_cflag_set(REG_SAVE_NOREPLY_FLAG) && (send_reply(_m,sctx.flags)<0))
goto return_minus_one;
if (forced_c) free_contacts(&forced_c);
return 1;
error:
update_stat(rejected_registrations, 1);
if ( !is_cflag_set(REG_SAVE_NOREPLY_FLAG) )
send_reply(_m,sctx.flags);
if (forced_c) free_contacts(&forced_c);
return -2;
return_minus_one:
if (forced_c) free_contacts(&forced_c);
return -1;
}
int save_aux(struct sip_msg* _m, str* forced_binding, void* _d, str* flags_s,
str* uri, str* _owtag)
{
struct save_ctx sctx;
contact_t* c;
contact_t* forced_c = NULL;
int st;
rerrno = R_FINE;
memset( &sctx, 0 , sizeof(sctx));
sctx.max_contacts = -1;
sctx.flags = 0;
sctx.min_expires = min_expires;
sctx.max_expires = max_expires;
if ( flags_s ) {
for( st=0 ; st< flags_s->len ; st++ ) {
switch (flags_s->s[st]) {
case 'm': sctx.flags |= REG_SAVE_MEMORY_FLAG; break;
case 'r': sctx.flags |= REG_SAVE_NOREPLY_FLAG; break;
case 's': sctx.flags |= REG_SAVE_SOCKET_FLAG; break;
case 'v': sctx.flags |= REG_SAVE_PATH_RECEIVED_FLAG; break;
case 'f': sctx.flags |= REG_SAVE_FORCE_REG_FLAG; break;
case 'c':
sctx.max_contacts = 0;
while (st<flags_s->len-1 && isdigit(flags_s->s[st+1])) {
sctx.max_contacts = sctx.max_contacts*10 +
flags_s->s[st+1] - '0';
st++;
}
break;
case 'e':
sctx.min_expires = 0;
while (st<flags_s->len-1 && isdigit(flags_s->s[st+1])) {
sctx.min_expires = sctx.min_expires*10 +
flags_s->s[st+1] - '0';
st++;
}
break;
case 'E':
sctx.max_expires = 0;
while (st<flags_s->len-1 && isdigit(flags_s->s[st+1])) {
sctx.max_expires = sctx.max_expires*10 +
flags_s->s[st+1] - '0';
st++;
}
break;
case 'p':
if (st<flags_s->len-1) {
st++;
if (flags_s->s[st]=='2') {
sctx.flags |= REG_SAVE_PATH_STRICT_FLAG; break; }
if (flags_s->s[st]=='1') {
sctx.flags |= REG_SAVE_PATH_LAZY_FLAG; break; }
if (flags_s->s[st]=='0') {
sctx.flags |= REG_SAVE_PATH_OFF_FLAG; break; }
}
default: LM_WARN("unsupported flag %c \n",flags_s->s[st]);
}
}
}
if(route_type == ONREPLY_ROUTE)
sctx.flags |= REG_SAVE_NOREPLY_FLAG;
/* if no max_contact per AOR is defined, use the global one */
if (sctx.max_contacts == -1)
sctx.max_contacts = max_contacts;
if (parse_reg_headers(_m) < 0) {
goto error;
}
if (forced_binding) {
if (parse_contacts(forced_binding, &forced_c) < 0) {
LM_ERR("Unable to parse forced binding [%.*s]\n",
forced_binding->len, forced_binding->s);
goto error;
}
/* prevent processing all the headers from the message */
reset_first_contact();
st = 0;
c = forced_c;
} else {
if (check_contacts(_m, &st) > 0) {
goto error;
}
c = get_first_contact(_m);
}
update_act_time();
if (!uri)
uri = &(get_to(_m)->uri);
if (_owtag)
sctx.ownership_tag = *_owtag;
if (extract_aor(uri, &sctx.aor,0,0) < 0) {
LM_ERR("failed to extract Address Of Record\n");
goto error;
}
if (c == 0) {
if (st) {
if (star((udomain_t*)_d, &sctx,_m) < 0) goto error;
} else {
if (no_contacts((udomain_t*)_d, &sctx.aor,_m) < 0) goto error;
}
} else {
if (add_contacts(_m, c, (udomain_t*)_d, &sctx) < 0) goto error;
}
update_stat(accepted_registrations, 1);
if (!is_cflag_set(REG_SAVE_NOREPLY_FLAG) && (send_reply(_m,sctx.flags)<0))
goto return_minus_one;
if (forced_c) free_contacts(&forced_c);
return 1;
error:
update_stat(rejected_registrations, 1);
if ( !is_cflag_set(REG_SAVE_NOREPLY_FLAG) )
send_reply(_m,sctx.flags);
if (forced_c) free_contacts(&forced_c);
return -2;
return_minus_one:
if (forced_c) free_contacts(&forced_c);
return -1;
}
