Someone

route[4]
{
        xlog("L_INFO", "Entering dialplan checks $ru $tu $rU $tU \n");
        dp_translate("0", "$si/$avp(s:mod)");
        if($avp(s:mod)){
                $var(x) = $avp(s:mod);
                $var(prefix) = "";
                if($(var(x){s.select,0,,})){
                        $var(prefix) = $(var(x){s.select,0,,});
        }
        $var(strip) = 0;
        if($(var(x){s.select,1,,})){
                $var(strip) = $(var(x){s.select,1,,});
                $var(stripl) = $(var(strip){s.int});
                $var(dig) = 3;
                $rU = $(rU{s.substr,$(var(strip){s.int}),0});
        }
        xlog("L_INFO", "dialplan[$si] strip[$var(strip)] prefix[$var(prefix)]\n");
        $rU  =  $var(prefix) + $rU ;
        xlog("L_INFO", "dialplan Updated : [$si][$rU]\n");
        }
        else
        {
                xlog("L_INFO", "no prefix for IP[$src_ip] :: ROUTE 4 End - killing call\n");
                #sl_send_reply("403", "Request illegal - we are investigating");
                sl_send_reply("403", "What is wrong with you?");
                exit();
        }
}