/* returns 0 if ok , <0 on error */
int fix_rls()
{
int i,ret;
for(i=0;i<RT_NO;i++){
if(rlist[i]){
if ((ret=fix_actions(rlist[i]))!=0){
return ret;
}
}
}
for(i=0;i<ONREPLY_RT_NO;i++){
if(onreply_rlist[i]){
if ((ret=fix_actions(onreply_rlist[i]))!=0){
return ret;
}
}
}
for(i=0;i<FAILURE_RT_NO;i++){
if(failure_rlist[i]){
if ((ret=fix_actions(failure_rlist[i]))!=0){
return ret;
}
}
}
for(i=0;i<BRANCH_RT_NO;i++){
if(branch_rlist[i]){
if ((ret=fix_actions(branch_rlist[i]))!=0){
return ret;
}
}
}
return 0;
}
int add_actions(struct action* a, struct action** head)
{
int ret;
LOG(L_DBG, "add_actions: fixing actions...\n");
if ((ret=fix_actions(a))!=0) goto error;
push(a,head);
return 0;
error:
return ret;
}
/*! \brief Adds the proxies in the proxy list & resolves the hostnames
* \return 0 if ok, <0 on error */
static int fix_actions(struct action* a)
{
struct action *t;
int ret;
cmd_export_t* cmd;
struct hostent* he;
struct ip_addr ip;
struct socket_info* si;
str host;
int proto=PROTO_NONE, port;
struct proxy_l *p;
struct bl_head *blh;
int i;
str s;
pv_elem_t *model=NULL;
pv_elem_t *models[5];
xl_level_p xlp;
if (a==0){
LM_CRIT("null pointer\n");
return E_BUG;
}
for(t=a; t!=0; t=t->next){
switch(t->type){
case ROUTE_T:
if (t->elem[0].type!=NUMBER_ST){
LM_ALERT("BUG in route() type %d\n",
t->elem[0].type);
ret = E_BUG;
goto error;
}
if ((t->elem[0].u.number>RT_NO)||(t->elem[0].u.number<0)){
LM_ALERT("invalid routing table number in"
"route(%lu)\n", t->elem[0].u.number);
ret = E_CFG;
goto error;
}
if ( rlist[t->elem[0].u.number].a==NULL ) {
LM_ERR("called route %d is not defined\n",
(int)t->elem[0].u.number);
ret = E_CFG;
goto error;
}
break;
case FORWARD_T:
if (sl_fwd_disabled>0) {
LM_ERR("stateless forwarding disabled, but forward() "
"is used!!\n");
ret = E_CFG;
goto error;
}
sl_fwd_disabled = 0;
if (t->elem[0].type==NOSUBTYPE)
break;
case SEND_T:
if (t->elem[0].type!=STRING_ST) {
LM_CRIT("invalid type %d (should be string)\n", t->type);
ret = E_BUG;
goto error;
}
ret = parse_phostport( t->elem[0].u.string,
strlen(t->elem[0].u.string),
&host.s, &host.len, &port, &proto);
if (ret!=0) {
LM_ERR("ERROR:fix_actions: FORWARD/SEND bad "
"argument\n");
ret = E_CFG;
goto error;
}
p = add_proxy( &host,(unsigned short)port, proto);
if (p==0) {
LM_ERR("forward/send failed to add proxy");
ret = E_CFG;
goto error;
}
t->elem[0].type = PROXY_ST;
t->elem[0].u.data = (void*)p;
break;
case IF_T:
if (t->elem[0].type!=EXPR_ST){
LM_CRIT("invalid subtype %d for if (should be expr)\n",
t->elem[0].type);
ret = E_BUG;
goto error;
}else if( (t->elem[1].type!=ACTIONS_ST)
&&(t->elem[1].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for if() {...} (should be"
"action)\n", t->elem[1].type);
ret = E_BUG;
goto error;
}else if( (t->elem[2].type!=ACTIONS_ST)
&&(t->elem[2].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for if() {} else{...}(should"
"be action)\n", t->elem[2].type);
ret = E_BUG;
goto error;
}
if (t->elem[0].u.data){
if ((ret=fix_expr((struct expr*)t->elem[0].u.data))<0)
return ret;
}
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
if ( (t->elem[2].type==ACTIONS_ST)&&(t->elem[2].u.data) ){
if((ret=fix_actions((struct action*)t->elem[2].u.data))<0)
return ret;
}
break;
case WHILE_T:
if (t->elem[0].type!=EXPR_ST){
LM_CRIT("invalid subtype %d for while (should be expr)\n",
t->elem[0].type);
ret = E_BUG;
goto error;
}else if( (t->elem[1].type!=ACTIONS_ST)
&&(t->elem[1].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for while() {...} (should be"
"action)\n", t->elem[1].type);
ret = E_BUG;
goto error;
}
if (t->elem[0].u.data){
if ((ret=fix_expr((struct expr*)t->elem[0].u.data))<0)
return ret;
}
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case SWITCH_T:
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case CASE_T:
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case DEFAULT_T:
if ( (t->elem[0].type==ACTIONS_ST)&&(t->elem[0].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[0].u.data))<0)
return ret;
}
break;
case MODULE_T:
cmd = (cmd_export_t*)t->elem[0].u.data;
LM_DBG("fixing %s, line %d\n", cmd->name, t->line);
if (cmd->fixup){
if (cmd->param_no==0){
ret=cmd->fixup( 0, 0);
if (ret<0) goto error;
}
else {
for (i=1; i<=cmd->param_no; i++) {
ret=cmd->fixup(&t->elem[i].u.data, i);
t->elem[i].type=MODFIXUP_ST;
if (ret<0) goto error;
}
}
}
break;
case FORCE_SEND_SOCKET_T:
if (t->elem[0].type!=SOCKID_ST){
LM_CRIT("invalid subtype %d for force_send_socket\n",
t->elem[0].type);
ret = E_BUG;
goto error;
}
he=resolvehost(((struct socket_id*)t->elem[0].u.data)->name,0);
if (he==0){
LM_ERR(" could not resolve %s\n",
((struct socket_id*)t->elem[0].u.data)->name);
ret = E_BAD_ADDRESS;
goto error;
}
hostent2ip_addr(&ip, he, 0);
si=find_si(&ip, ((struct socket_id*)t->elem[0].u.data)->port,
((struct socket_id*)t->elem[0].u.data)->proto);
if (si==0){
LM_ERR("bad force_send_socket"
" argument: %s:%d (opensips doesn't listen on it)\n",
((struct socket_id*)t->elem[0].u.data)->name,
((struct socket_id*)t->elem[0].u.data)->port);
ret = E_BAD_ADDRESS;
goto error;
}
t->elem[0].u.data=si;
t->elem[0].type=SOCKETINFO_ST;
break;
case SET_DEBUG_T:
if (t->elem[0].type==NOSUBTYPE)
break;
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("fix_actions: BUG in setdebug() type %d\n",
t->elem[0].type );
ret=E_BUG;
goto error;
}
/* normalize the value */
if (t->elem[0].u.number>L_DBG)
t->elem[0].u.number = L_DBG;
else if (t->elem[0].u.number<L_ALERT)
t->elem[0].u.number = L_ALERT;
break;
case SETFLAG_T:
case RESETFLAG_T:
case ISFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("bad xxxflag() type %d\n", t->elem[0].type );
ret=E_BUG;
goto error;
}
if (!flag_in_range( t->elem[0].u.number )) {
ret=E_CFG;
goto error;
}
break;
case SETSFLAG_T:
case RESETSFLAG_T:
case ISSFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("bad xxxsflag() type %d\n", t->elem[0].type );
ret=E_BUG;
goto error;
}
t->elem[0].u.number = fixup_flag( t->elem[0].u.number );
if (t->elem[0].u.data==0) {
ret=E_CFG;
goto error;
}
break;
case SETBFLAG_T:
case RESETBFLAG_T:
case ISBFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST || t->elem[1].type!=NUMBER_ST) {
LM_CRIT("bad xxxbflag() type "
"%d,%d\n", t->elem[0].type, t->elem[0].type);
ret=E_BUG;
goto error;
}
t->elem[1].u.number = fixup_flag( t->elem[1].u.number );
if (t->elem[1].u.data==0) {
ret=E_CFG;
goto error;
}
break;
case EQ_T:
case COLONEQ_T:
case PLUSEQ_T:
case MINUSEQ_T:
case DIVEQ_T:
case MULTEQ_T:
case MODULOEQ_T:
case BANDEQ_T:
case BOREQ_T:
case BXOREQ_T:
if (t->elem[1].u.data){
if ((ret=fix_expr((struct expr*)t->elem[1].u.data))<0)
return ret;
}
break;
case USE_BLACKLIST_T:
case UNUSE_BLACKLIST_T:
if (t->elem[0].type!=STRING_ST) {
LM_CRIT("bad [UN]USE_BLACKLIST type %d\n",t->elem[0].type);
ret=E_BUG;
goto error;
}
host.s = t->elem[0].u.string;
host.len = strlen(host.s);
if ( strcasecmp(host.s,"all")==0 ) {
blh = NULL;
} else {
blh = get_bl_head_by_name(&host);
if (blh==NULL) {
LM_ERR("[UN]USE_BLACKLIST - list "
"%s not configured\n", t->elem[0].u.string);
ret=E_CFG;
goto error;
}
}
t->elem[0].type = BLACKLIST_ST;
t->elem[0].u.data = blh;
break;
case CACHE_STORE_T:
case CACHE_FETCH_T:
case CACHE_REMOVE_T:
/* attr name */
s.s = (char*)t->elem[1].u.data;
s.len = strlen(s.s);
if(s.len==0) {
LM_ERR("param 2 is empty string!\n");
return E_CFG;
}
if(pv_parse_format(&s ,&model) || model==NULL) {
LM_ERR("wrong format [%s] for value param!\n", s.s);
ret=E_BUG;
goto error;
}
t->elem[1].u.data = (void*)model;
if (t->type==CACHE_REMOVE_T)
break;
/* value */
if (t->type==CACHE_FETCH_T) {
if(((pv_spec_p)t->elem[2].u.data)->type!= PVT_AVP)
{
LM_ERR("Wrong type for the third argument - "
"must be an AVP\n");
ret=E_BUG;
goto error;
}
} else {
s.s = (char*)t->elem[2].u.data;
s.len = strlen(s.s);
if(s.len==0) {
LM_ERR("param 2 is empty string!\n");
return E_CFG;
}
if(pv_parse_format(&s ,&model) || model==NULL) {
LM_ERR("wrong format [%s] for value param!\n",s.s);
ret=E_BUG;
goto error;
}
t->elem[2].u.data = (void*)model;
}
break;
case XDBG_T:
case XLOG_T:
s.s = (char*)t->elem[1].u.data;
if (s.s == NULL)
{
/* commands have only one parameter */
s.s = (char *)t->elem[0].u.data;
s.len = strlen(s.s);
if(s.len==0)
{
LM_ERR("param is empty string!\n");
return E_CFG;
}
if(pv_parse_format(&s ,&model) || model==NULL)
{
LM_ERR("wrong format [%s] for value param!\n", s.s);
ret=E_BUG;
goto error;
}
t->elem[0].u.data = (void*)model;
t->elem[0].type = SCRIPTVAR_ELEM_ST;
}
else
{
/* there are two parameters */
s.s = (char *)t->elem[0].u.data;
s.len = strlen(s.s);
if (s.len == 0)
{
LM_ERR("param is empty string\n");
return E_CFG;
}
xlp = (xl_level_p)pkg_malloc(sizeof(xl_level_t));
if(xlp == NULL)
{
LM_ERR("no more memory\n");
return E_UNSPEC;
}
memset(xlp, 0, sizeof(xl_level_t));
if(s.s[0]==PV_MARKER)
{
xlp->type = 1;
if(pv_parse_spec(&s, &xlp->v.sp)==NULL)
{
LM_ERR("invalid level param\n");
return E_UNSPEC;
}
}
else
{
xlp->type = 0;
switch(s.s[2])
{
case 'A': xlp->v.level = L_ALERT; break;
case 'C': xlp->v.level = L_CRIT; break;
case 'E': xlp->v.level = L_ERR; break;
case 'W': xlp->v.level = L_WARN; break;
case 'N': xlp->v.level = L_NOTICE; break;
case 'I': xlp->v.level = L_INFO; break;
case 'D': xlp->v.level = L_DBG; break;
default:
LM_ERR("unknown log level\n");
return E_UNSPEC;
}
}
t->elem[0].u.data = xlp;
s.s = t->elem[1].u.data;
s.len = strlen(s.s);
if (pv_parse_format(&s, &model) || model == NULL)
{
LM_ERR("wrong fomat [%s] for value param\n",s.s);
ret=E_BUG;
goto error;
}
t->elem[1].u.data = model;
t->elem[1].type = SCRIPTVAR_ELEM_ST;
}
break;
case CONSTRUCT_URI_T:
for (i=0;i<5;i++)
{
s.s = (char*)t->elem[i].u.data;
s.len = strlen(s.s);
if(s.len==0)
continue;
if(pv_parse_format(&s ,&(models[i])) || models[i]==NULL)
{
LM_ERR("wrong format [%s] for value param!\n",s.s);
ret=E_BUG;
goto error;
}
t->elem[i].u.data = (void*)models[i];
}
if (((pv_spec_p)t->elem[5].u.data)->type != PVT_AVP)
{
LM_ERR("Wrong type for the third argument - "
"must be an AVP\n");
ret=E_BUG;
goto error;
}
break;
}
}
return 0;
error:
LM_ERR("fixing failed (code=%d) at cfg line %d\n", ret, t->line);
return ret;
}
/*! \brief traverses an expression tree and compiles the REs where necessary)
* \return 0 for ok, <0 if errors
*/
static int fix_expr(struct expr* exp)
{
regex_t* re;
int ret;
ret=E_BUG;
if (exp==0){
LM_CRIT("null pointer\n");
return E_BUG;
}
if (exp->type==EXP_T){
switch(exp->op){
case AND_OP:
case OR_OP:
if ((ret=fix_expr(exp->left.v.expr))!=0)
return ret;
ret=fix_expr(exp->right.v.expr);
break;
case NOT_OP:
case EVAL_OP:
ret=fix_expr(exp->left.v.expr);
break;
default:
LM_CRIT("unknown op %d\n", exp->op);
}
}else if (exp->type==ELEM_T){
if (exp->op==MATCH_OP || exp->op==NOTMATCH_OP){
if (exp->right.type==STR_ST){
re=(regex_t*)pkg_malloc(sizeof(regex_t));
if (re==0){
LM_CRIT("out of pkg memory\n");
return E_OUT_OF_MEM;
}
if (regcomp(re, (char*) exp->right.v.data,
REG_EXTENDED|REG_NOSUB|REG_ICASE) ){
LM_CRIT("bad re \"%s\"\n", (char*) exp->right.v.data);
pkg_free(re);
return E_BAD_RE;
}
/* replace the string with the re */
pkg_free(exp->right.v.data);
exp->right.v.data=re;
exp->right.type=RE_ST;
}else if (exp->right.type!=RE_ST
&& exp->right.type!=SCRIPTVAR_ST){
LM_CRIT("invalid type for match\n");
return E_BUG;
}
}
if (exp->left.type==ACTION_O){
ret=fix_actions((struct action*)exp->right.v.data);
if (ret!=0){
LM_CRIT("fix_actions error\n");
return ret;
}
}
if (exp->left.type==EXPR_O){
ret=fix_expr(exp->left.v.expr);
if (ret!=0){
LM_CRIT("fix left exp error\n");
return ret;
}
}
if (exp->right.type==EXPR_ST){
ret=fix_expr(exp->right.v.expr);
if (ret!=0){
LM_CRIT("fix rigth exp error\n");
return ret;
}
}
ret=0;
}
return ret;
}
/* traverses an expr tree and compiles the REs where necessary)
* returns: 0 for ok, <0 if errors */
static int fix_expr(struct expr* exp)
{
regex_t* re;
int ret;
ret=E_BUG;
if (exp==0){
LOG(L_CRIT, "BUG: fix_expr: null pointer\n");
return E_BUG;
}
if (exp->type==EXP_T){
switch(exp->op){
case AND_OP:
case OR_OP:
if ((ret=fix_expr(exp->l.expr))!=0)
return ret;
ret=fix_expr(exp->r.expr);
break;
case NOT_OP:
ret=fix_expr(exp->l.expr);
break;
default:
LOG(L_CRIT, "BUG: fix_expr: unknown op %d\n",
exp->op);
}
}else if (exp->type==ELEM_T){
if (exp->op==MATCH_OP){
if (exp->subtype==STRING_ST){
re=(regex_t*)pkg_malloc(sizeof(regex_t));
if (re==0){
LOG(L_CRIT, "ERROR: fix_expr: memory allocation"
" failure\n");
return E_OUT_OF_MEM;
}
if (regcomp(re, (char*) exp->r.param,
REG_EXTENDED|REG_NOSUB|REG_ICASE) ){
LOG(L_CRIT, "ERROR: fix_expr : bad re \"%s\"\n",
(char*) exp->r.param);
pkg_free(re);
return E_BAD_RE;
}
/* replace the string with the re */
pkg_free(exp->r.param);
exp->r.param=re;
exp->subtype=RE_ST;
}else if (exp->subtype!=RE_ST){
LOG(L_CRIT, "BUG: fix_expr : invalid type for match\n");
return E_BUG;
}
}
if (exp->l.operand==ACTION_O){
ret=fix_actions((struct action*)exp->r.param);
if (ret!=0){
LOG(L_CRIT, "ERROR: fix_expr : fix_actions error\n");
return ret;
}
}
ret=0;
}
return ret;
}
/* returns 0 if ok, <0 on error */
static int fix_actions(struct action* a)
{
struct action *t;
struct proxy_l* p;
char *tmp;
int ret;
cmd_export_t* cmd;
struct sr_module* mod;
str s;
struct hostent* he;
struct ip_addr ip;
struct socket_info* si;
if (a==0){
LOG(L_CRIT,"BUG: fix_actions: null pointer\n");
return E_BUG;
}
for(t=a; t!=0; t=t->next){
switch(t->type){
case FORWARD_T:
case FORWARD_TLS_T:
case FORWARD_TCP_T:
case FORWARD_UDP_T:
case SEND_T:
case SEND_TCP_T:
switch(t->p1_type){
case IP_ST:
tmp=strdup(ip_addr2a(
(struct ip_addr*)t->p1.data));
if (tmp==0){
LOG(L_CRIT, "ERROR: fix_actions:"
"memory allocation failure\n");
return E_OUT_OF_MEM;
}
t->p1_type=STRING_ST;
t->p1.string=tmp;
/* no break */
case STRING_ST:
s.s = t->p1.string;
s.len = strlen(s.s);
p=add_proxy(&s, t->p2.number, 0); /* FIXME proto*/
if (p==0) return E_BAD_ADDRESS;
t->p1.data=p;
t->p1_type=PROXY_ST;
break;
case URIHOST_ST:
break;
default:
LOG(L_CRIT, "BUG: fix_actions: invalid type"
"%d (should be string or number)\n",
t->type);
return E_BUG;
}
break;
case IF_T:
if (t->p1_type!=EXPR_ST){
LOG(L_CRIT, "BUG: fix_actions: invalid subtype"
"%d for if (should be expr)\n",
t->p1_type);
return E_BUG;
}else if( (t->p2_type!=ACTIONS_ST)&&(t->p2_type!=NOSUBTYPE) ){
LOG(L_CRIT, "BUG: fix_actions: invalid subtype"
"%d for if() {...} (should be action)\n",
t->p2_type);
return E_BUG;
}else if( (t->p3_type!=ACTIONS_ST)&&(t->p3_type!=NOSUBTYPE) ){
LOG(L_CRIT, "BUG: fix_actions: invalid subtype"
"%d for if() {} else{...}(should be action)\n",
t->p3_type);
return E_BUG;
}
if (t->p1.data){
if ((ret=fix_expr((struct expr*)t->p1.data))<0)
return ret;
}
if ( (t->p2_type==ACTIONS_ST)&&(t->p2.data) ){
if ((ret=fix_actions((struct action*)t->p2.data))<0)
return ret;
}
if ( (t->p3_type==ACTIONS_ST)&&(t->p3.data) ){
if ((ret=fix_actions((struct action*)t->p3.data))<0)
return ret;
}
break;
case MODULE_T:
if ((mod=find_module(t->p1.data, &cmd))!=0){
DBG("fixing %s %s\n", mod->path, cmd->name);
if (cmd->fixup){
if (cmd->param_no>0){
ret=cmd->fixup(&t->p2.data, 1);
t->p2_type=MODFIXUP_ST;
if (ret<0) return ret;
}
if (cmd->param_no>1){
ret=cmd->fixup(&t->p3.data, 2);
t->p3_type=MODFIXUP_ST;
if (ret<0) return ret;
}
}
}
break;
case FORCE_SEND_SOCKET_T:
if (t->p1_type!=SOCKID_ST){
LOG(L_CRIT, "BUG: fix_actions: invalid subtype"
"%d for force_send_socket\n",
t->p1_type);
return E_BUG;
}
he=resolvehost(((struct socket_id*)t->p1.data)->name);
if (he==0){
LOG(L_ERR, "ERROR: fix_actions: force_send_socket:"
" could not resolve %s\n",
((struct socket_id*)t->p1.data)->name);
return E_BAD_ADDRESS;
}
hostent2ip_addr(&ip, he, 0);
si=find_si(&ip, ((struct socket_id*)t->p1.data)->port,
((struct socket_id*)t->p1.data)->proto);
if (si==0){
LOG(L_ERR, "ERROR: fix_actions: bad force_send_socket"
" argument: %s:%d (ser doesn't listen on it)\n",
((struct socket_id*)t->p1.data)->name,
((struct socket_id*)t->p1.data)->port);
return E_BAD_ADDRESS;
}
t->p1.data=si;
t->p1_type=SOCKETINFO_ST;
break;
}
}
return 0;
}
/* returns 0 if ok, <0 on error */
static int fix_actions(struct action* a)
{
struct action *t;
int ret;
cmd_export_t* cmd;
struct hostent* he;
struct ip_addr ip;
struct socket_info* si;
str host;
int proto=PROTO_NONE, port;
struct proxy_l *p;
struct bl_head *blh;
if (a==0){
LM_CRIT("null pointer\n");
return E_BUG;
}
for(t=a; t!=0; t=t->next){
switch(t->type){
case FORWARD_T:
if (t->elem[0].type==NOSUBTYPE)
break;
case SEND_T:
if (t->elem[0].type!=STRING_ST) {
LM_CRIT("invalid type %d (should be string)\n", t->type);
return E_BUG;
}
ret = parse_phostport( t->elem[0].u.string,
strlen(t->elem[0].u.string),
&host.s, &host.len, &port, &proto);
if (ret!=0) {
LM_ERR("ERROR:fix_actions: FORWARD/SEND bad "
"argument\n");
return E_CFG;
}
p = add_proxy( &host,(unsigned short)port, proto);
if (p==0) {
LM_ERR("forward/send failed to add proxy");
return E_CFG;
}
t->elem[0].type = PROXY_ST;
t->elem[0].u.data = (void*)p;
break;
case IF_T:
if (t->elem[0].type!=EXPR_ST){
LM_CRIT("invalid subtype %d for if (should be expr)\n",
t->elem[0].type);
return E_BUG;
}else if( (t->elem[1].type!=ACTIONS_ST)
&&(t->elem[1].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for if() {...} (should be"
"action)\n", t->elem[1].type);
return E_BUG;
}else if( (t->elem[2].type!=ACTIONS_ST)
&&(t->elem[2].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for if() {} else{...}(should"
"be action)\n", t->elem[2].type);
return E_BUG;
}
if (t->elem[0].u.data){
if ((ret=fix_expr((struct expr*)t->elem[0].u.data))<0)
return ret;
}
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
if ( (t->elem[2].type==ACTIONS_ST)&&(t->elem[2].u.data) ){
if((ret=fix_actions((struct action*)t->elem[2].u.data))<0)
return ret;
}
break;
case WHILE_T:
if (t->elem[0].type!=EXPR_ST){
LM_CRIT("invalid subtype %d for while (should be expr)\n",
t->elem[0].type);
return E_BUG;
}else if( (t->elem[1].type!=ACTIONS_ST)
&&(t->elem[1].type!=NOSUBTYPE) ){
LM_CRIT("invalid subtype %d for while() {...} (should be"
"action)\n", t->elem[1].type);
return E_BUG;
}
if (t->elem[0].u.data){
if ((ret=fix_expr((struct expr*)t->elem[0].u.data))<0)
return ret;
}
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case SWITCH_T:
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case CASE_T:
if ( (t->elem[1].type==ACTIONS_ST)&&(t->elem[1].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[1].u.data))<0)
return ret;
}
break;
case DEFAULT_T:
if ( (t->elem[0].type==ACTIONS_ST)&&(t->elem[0].u.data) ){
if ((ret=fix_actions((struct action*)t->elem[0].u.data))<0)
return ret;
}
break;
case MODULE_T:
cmd = (cmd_export_t*)t->elem[0].u.data;
LM_DBG("fixing %s, line %d\n", cmd->name, t->line);
if (cmd->fixup){
if (cmd->param_no>0){
ret=cmd->fixup(&t->elem[1].u.data, 1);
t->elem[1].type=MODFIXUP_ST;
if (ret<0) goto error;
}
if (cmd->param_no>1){
ret=cmd->fixup(&t->elem[2].u.data, 2);
t->elem[2].type=MODFIXUP_ST;
if (ret<0) goto error;
}
if (cmd->param_no==0){
ret=cmd->fixup( 0, 0);
if (ret<0) goto error;
}
}
break;
case FORCE_SEND_SOCKET_T:
if (t->elem[0].type!=SOCKID_ST){
LM_CRIT("invalid subtype %d for force_send_socket\n",
t->elem[0].type);
return E_BUG;
}
he=resolvehost(((struct socket_id*)t->elem[0].u.data)->name,0);
if (he==0){
LM_ERR(" could not resolve %s\n",
((struct socket_id*)t->elem[0].u.data)->name);
ret = E_BAD_ADDRESS;
goto error;
}
hostent2ip_addr(&ip, he, 0);
si=find_si(&ip, ((struct socket_id*)t->elem[0].u.data)->port,
((struct socket_id*)t->elem[0].u.data)->proto);
if (si==0){
LM_ERR("bad force_send_socket"
" argument: %s:%d (ser doesn't listen on it)\n",
((struct socket_id*)t->elem[0].u.data)->name,
((struct socket_id*)t->elem[0].u.data)->port);
ret = E_BAD_ADDRESS;
goto error;
}
t->elem[0].u.data=si;
t->elem[0].type=SOCKETINFO_ST;
break;
case SET_DEBUG_T:
if (t->elem[0].type==NOSUBTYPE)
break;
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("fix_actions: BUG in setdebug() type %d\n",
t->elem[0].type );
ret=E_BUG;
goto error;
}
/* normalize the value */
if (t->elem[0].u.number>L_DBG)
t->elem[0].u.number = L_DBG;
else if (t->elem[0].u.number<L_ALERT)
t->elem[0].u.number = L_ALERT;
break;
case SETFLAG_T:
case RESETFLAG_T:
case ISFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("bad xxxflag() type %d\n", t->elem[0].type );
ret=E_BUG;
goto error;
}
if (!flag_in_range( t->elem[0].u.number )) {
ret=E_CFG;
goto error;
}
break;
case SETSFLAG_T:
case RESETSFLAG_T:
case ISSFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST) {
LM_CRIT("bad xxxsflag() type %d\n", t->elem[0].type );
ret=E_BUG;
goto error;
}
t->elem[0].u.number = fixup_flag( t->elem[0].u.number );
if (t->elem[0].u.data==0) {
ret=E_CFG;
goto error;
}
break;
case SETBFLAG_T:
case RESETBFLAG_T:
case ISBFLAGSET_T:
if (t->elem[0].type!=NUMBER_ST || t->elem[1].type!=NUMBER_ST) {
LM_CRIT("bad xxxbflag() type "
"%d,%d\n", t->elem[0].type, t->elem[0].type);
ret=E_BUG;
goto error;
}
t->elem[1].u.number = fixup_flag( t->elem[1].u.number );
if (t->elem[1].u.data==0) {
ret=E_CFG;
goto error;
}
break;
case EQ_T:
case COLONEQ_T:
case PLUSEQ_T:
case MINUSEQ_T:
case DIVEQ_T:
case MULTEQ_T:
case MODULOEQ_T:
case BANDEQ_T:
case BOREQ_T:
case BXOREQ_T:
if (t->elem[1].u.data){
if ((ret=fix_expr((struct expr*)t->elem[1].u.data))<0)
return ret;
}
break;
case USE_BLACKLIST_T:
if (t->elem[0].type!=STRING_ST) {
LM_CRIT("bad USE_BLACKLIST type %d\n", t->elem[0].type);
ret=E_BUG;
goto error;
}
host.s = t->elem[0].u.string;
host.len = strlen(host.s);
blh = get_bl_head_by_name(&host);
if (blh==NULL) {
LM_ERR("USE_BLACKLIST - list "
"%s not configured\n", t->elem[0].u.string);
ret=E_CFG;
goto error;
}
t->elem[0].type = BLACKLIST_ST;
t->elem[0].u.data = blh;
break;
}
}
return 0;
error:
LM_ERR("fixing failed (code=%d) at cfg line %d\n", ret, t->line);
return ret;
}