@@ -468,6 +468,7 @@ REPLY_ROUTE_CALLBACK	"reply_route_callback"

 EVENT_ROUTE_CALLBACK	"event_route_callback"

 RECEIVED_ROUTE_CALLBACK	"received_route_callback"

 RECEIVED_ROUTE_MODE		"received_route_mode"

+PRE_ROUTING_CALLBACK	"pre_routing_callback"

 MAX_RECURSIVE_LEVEL		"max_recursive_level"

 MAX_BRANCHES_PARAM		"max_branches"

@@ -986,6 +987,7 @@ IMPORTFILE      "import_file"

 <INITIAL>{EVENT_ROUTE_CALLBACK}  { count(); yylval.strval=yytext; return EVENT_ROUTE_CALLBACK;}

 <INITIAL>{RECEIVED_ROUTE_CALLBACK}  { count(); yylval.strval=yytext; return RECEIVED_ROUTE_CALLBACK;}

 <INITIAL>{RECEIVED_ROUTE_MODE}  { count(); yylval.strval=yytext; return RECEIVED_ROUTE_MODE;}

+<INITIAL>{PRE_ROUTING_CALLBACK}  { count(); yylval.strval=yytext; return PRE_ROUTING_CALLBACK;}

 <INITIAL>{MAX_RECURSIVE_LEVEL}  { count(); yylval.strval=yytext; return MAX_RECURSIVE_LEVEL;}

 <INITIAL>{MAX_BRANCHES_PARAM}  { count(); yylval.strval=yytext; return MAX_BRANCHES_PARAM;}

 <INITIAL>{LATENCY_LOG}  { count(); yylval.strval=yytext; return LATENCY_LOG;}

@@ -501,6 +501,7 @@ extern char *default_routename;

 %token EVENT_ROUTE_CALLBACK

 %token RECEIVED_ROUTE_CALLBACK

 %token RECEIVED_ROUTE_MODE

+%token PRE_ROUTING_CALLBACK

 %token MAX_RECURSIVE_LEVEL

 %token MAX_BRANCHES_PARAM

 %token LATENCY_CFG_LOG

@@ -1735,6 +1736,16 @@ assign_stm:

 			}

 		}

 	| KEMI DOT RECEIVED_ROUTE_CALLBACK EQUAL error { yyerror("string expected"); }

+	| KEMI DOT PRE_ROUTING_CALLBACK EQUAL STRING {

+			kemi_pre_routing_callback.s = $5;

+			kemi_pre_routing_callback.len = strlen($5);

+			if(kemi_pre_routing_callback.len==4

+					&& strcasecmp(kemi_pre_routing_callback.s, "none")==0) {

+				kemi_pre_routing_callback.s = "";

+				kemi_pre_routing_callback.len = 0;

+			}

+		}

+	| KEMI DOT PRE_ROUTING_CALLBACK EQUAL error { yyerror("string expected"); }

     | RECEIVED_ROUTE_MODE EQUAL intno { ksr_evrt_received_mode=$3; }

 	| RECEIVED_ROUTE_MODE EQUAL error  { yyerror("number  expected"); }

     | MAX_RECURSIVE_LEVEL EQUAL NUMBER { set_max_recursive_level($3); }

@@ -198,6 +198,7 @@ extern int onsend_route_reply;

 extern int ksr_evrt_received_mode;

 extern str kemi_received_route_callback;

+extern str kemi_pre_routing_callback;

 /* real time stuff */

 extern int real_time;

@@ -147,7 +147,8 @@ typedef struct snd_flags {

 /* recv flags */

 typedef enum recv_flags {

-	RECV_F_INTERNAL   = (1 << 0), /*  */

+	RECV_F_INTERNAL     = (1 << 0), /* message dispatched internally */

+	RECV_F_PREROUTING   = (1 << 1), /* message in pre-routing */

 } recv_flags_t;

 typedef struct receive_info {

@@ -217,6 +217,68 @@ int ksr_evrt_received(char *buf, unsigned int len, receive_info_t *rcv_info)

 	return ret;

 }

+

+static int ksr_evrt_pre_routing_idx = -1;

+str kemi_pre_routing_callback = STR_NULL;

+

+

+/**

+ *

+ */

+int ksr_evrt_pre_routing(sip_msg_t *msg)

+{

+	int ret = 0;

+	int rt = -1;

+	run_act_ctx_t ra_ctx;

+	run_act_ctx_t *bctx = NULL;

+	sr_kemi_eng_t *keng = NULL;

+	str evname = str_init("core:pre-routing");

+	recv_flags_t brflags;

+

+	if(kemi_pre_routing_callback.len>0) {

+		keng = sr_kemi_eng_get();

+		if(keng == NULL) {

+			LM_DBG("kemi enabled with no core:pre-routing event route callback\n");

+			return 0;

+		}

+	} else {

+		if(ksr_evrt_pre_routing_idx == -1) {

+			rt = route_lookup(&event_rt, evname.s);

+			if (rt < 0 || event_rt.rlist[rt] == NULL) {

+				ksr_evrt_pre_routing_idx = -2;

+			}

+		} else {

+			rt = ksr_evrt_pre_routing_idx;

+		}

+		if (rt < 0 || event_rt.rlist[rt] == NULL) {

+			LM_DBG("event route core:pre-routing not defined\n");

+			return 0;

+		}

+	}

+

+	set_route_type(REQUEST_ROUTE);

+	init_run_actions_ctx(&ra_ctx);

+	brflags = msg->rcv.rflags;

+	msg->rcv.rflags |= RECV_F_PREROUTING;

+	if(keng) {

+		bctx = sr_kemi_act_ctx_get();

+		sr_kemi_act_ctx_set(&ra_ctx);

+		ret=sr_kemi_route(keng, msg, REQUEST_ROUTE,

+				&kemi_pre_routing_callback, &evname);

+		sr_kemi_act_ctx_set(bctx);

+	} else {

+		ret=run_actions(&ra_ctx, event_rt.rlist[rt], msg);

+	}

+	msg->rcv.rflags = brflags;

+	if(ra_ctx.run_flags&DROP_R_F) {

+		LM_DBG("drop was used\n");

+		return 1;

+	}

+	LM_DBG("execution returned %d\n", ret);

+

+	return 0;

+}

+

 /** Receive message

  *  WARNING: buf must be 0 terminated (buf[len]=0) or some things might

  * break (e.g.: modules/textops)

@@ -330,6 +392,15 @@ int receive_msg(char *buf, unsigned int len, receive_info_t *rcv_info)

 	/* ... clear branches from previous message */

 	clear_branches();

+	ret = ksr_evrt_pre_routing(msg);

+	if(ret<0) {

+		goto error02;

+	}

+	if(ret == 1) {

+		/* finished */

+		goto end;

+	}

+

 	if(unlikely(ksr_route_locks_set!=NULL && msg->callid && msg->callid->body.s

 			&& msg->callid->body.len >0)) {

 		cidlockidx = get_hash1_raw(msg->callid->body.s, msg->callid->body.len);