KAZOO-3308 call-park redirect in kamailio

kamailio/default.cfg

@@ -530,6 +530,14 @@ route[EXTERNAL_TO_INTERNAL_RELAY]
     }
     #!endif
 
+    #!ifdef CALL-PARK-REDIRECT-ROLE
+    if(is_method("REFER")) {
+       $avp(refer_to) = $hdr(Refer-To);
+       $avp(refer_to_uri) = $rt;
+       $avp(referred_by) = $hdr(Referred-By);
+    }
+    #!endif
+
     remove_hf_re("^X-.*");
     append_hf("X-AUTH-IP: $si\r\n");
 
@@ -578,6 +586,13 @@ onreply_route[INTERNAL_REPLY]
         setflag(FLAG_SESSION_PROGRESS);
     }
 
+    #!ifdef CALL-PARK-REDIRECT-ROLE
+    if (is_method("REFER") && $T_reply_code == "202" ) {
+        $sht(park=>$(avp(refer_to_uri){uri.user})@$(avp(refer_to_uri){uri.domain})) = "sip:" + $(ct{tobody.uri}{uri.host}) + ":" + $(ct{tobody.uri}{uri.port});
+        xlog("L_INFO", "PARK $(avp(refer_to_uri){uri.user})@$(avp(refer_to_uri){uri.domain}) = sip:$(ct{tobody.uri}{uri.host}):$(ct{tobody.uri}{uri.port})");
+    }
+    #!endif
+
     if ($rs < 300) {
         xlog("L_INFO", "$ci|pass|$T_req($si):$T_req($sp)");
     }

kamailio/dispatcher-role.cfg

@@ -1,6 +1,10 @@
 ######## Generic Hash Table container in shared memory ########
 modparam("htable", "htable", "failover=>size=16;autoexpire=120")
 
+#!ifdef CALL-PARK-REDIRECT-ROLE
+modparam("htable", "htable", "park=>size=4;autoexpire=600")
+#!endif
+
 ####### Dispatcher module  ########
 loadmodule "dispatcher.so"
 modparam("dispatcher", "list_file", "/etc/kazoo/kamailio/dbtext/dispatcher")
@@ -69,6 +73,7 @@ route[DISPATCHER_FIND_ROUTES]
     #!endif
 
     if (is_method("INVITE")) {
+    
        if($hdr(Replaces)!= $null) {
           $var(replaced_call_id) = $(hdr(Replaces){s.select,0,;});
           xlog("L_INFO", "$ci|log|replaces call-id $var(replaced_call_id)");
@@ -82,6 +87,17 @@ route[DISPATCHER_FIND_ROUTES]
                }
           }
        }
+       
+       ##### CALL-PARK ####
+       #!ifdef CALL-PARK-REDIRECT-ROLE
+       if($(ru{uri.user}) =~ "\*3" && $sht(park=>$(ru{uri.user})@$(ru{uri.domain})) != $null) {
+           $du = $sht(park=>$(ru{uri.user})@$(ruri{uri.domain}));
+           $sht(park=>$(ru{uri.user})@$(ruri{uri.domain})) = $null;
+           xlog("L_INFO", "$ci|log|redirecting park request to $du");
+           return;
+       }
+       #!endif
+       
     }
 
     if (!ds_select_dst("$var(ds_group)", "0") || $(avp(ds_dst)[0]) == $null) {

kamailio/local.cfg

@@ -18,6 +18,7 @@ debug = L_INFO
 # # #!trydef TLS-ROLE
 # # #!trydef ANTIFLOOD-ROLE
 # # #!trydef MESSAGE-ROLE
+# # #!trydef CALL-PARK-REDIRECT-ROLE
 
 ################################################################################
 ## SERVER INFORMATION