debug=3
fork=no
log_stderror=yes

listen=192.168.1.15
port=5060
children=4

dns=no
rev_dns=no

mpath="/usr/lib/openser/modules/"

loadmodule "sl.so"
loadmodule "tm.so"
loadmodule "rr.so"
loadmodule "maxfwd.so"
loadmodule "usrloc.so"
loadmodule "registrar.so"
loadmodule "textops.so"
loadmodule "xlog.so"
loadmodule "avpops.so"
loadmodule "mi_fifo.so"

modparam("mi_fifo","fifo_name","/tmp/openser_fifo")
modparam("usrloc","db_mode",0)
modparam("rr","enable_full_lr",1)

route{

  if($cl==0)
    $var(message)=$mb;
  else
    $var(message)=$mb + $Cyx + "{end}" + $Cxx + "\n";
  xlog("L_INFO","\n\n$Cbg[  Method $rm from $si:$sp  ]$Cxx\n$var(message)$Cbg[  End of Request  ]$Cxx\n");

  t_on_reply("1");

  if(!mf_process_maxfwd_header("10"))
  {
    sl_send_reply("483","Too Many Hops");
    xlog("L_INFO","$CrxToo Many Hops$Cxx\n");
    return;
  };

  if(msg:len > max_len) {
    sl_send_reply("513","Message Overflow");
    xlog("L_INFO","$CrxMessage Overflow$Cxx\n");
    return;
  }

  if(method=="INVITE") {
    xlog("L_INFO","$CbxAdding Record-Route headers$Cxx\n");
    #record_route();
    $var(rr-1)="Record-Route: <sip:192.168.1.15;lr=on;hop=first-proxy>\r\n";
    $var(rr-2)="Record-Route: <sip:192.168.1.15;lr=on;hop=second-proxy>\r\n";
    $var(rr-3)="Record-Route: <sip:192.168.1.15;lr=on;hop=third-proxy>\r\n";
    $var(rr-4)="Record-Route: <sip:192.168.1.15;lr=on;hop=fourth-proxy>\r\n";
    insert_hf(
      "$var(rr-4)$var(rr-3)$var(rr-2)$var(rr-1)",
      "From"
    );
  }

  if($hdr(Route[1])!="")
  {
    xlog("L_INFO","$CyxRoute header fields need processing$Cxx\n");
    if(!search("^P-hint: "))
      $var(hint-id)=1;
    else
      $var(hint-id)=$(hdr(P-hint[-1]){s.select,0,]}{s.select,1,[}{s.int}) + 1;
    $var(lr-cleanup)="[" + $var(hint-id) + "] lr-cleanup " + $hdr(Route[0]);
    $var(rr-enforce)="[" + $var(hint-id) + "] rr-enforce " + $hdr(Route[1]);
    append_hf("P-hint: $var(lr-cleanup)\r\nP-hint: $var(rr-enforce)\r\n");
  }
  else
  {
    xlog("L_INFO","$CrxRoute header fields are expired$Cxx\n");
  }

  if(loose_route()) {
    xlog("L_INFO","$CbxLoose Route$Cxx\n");
    route(1);
  }

  if(uri!=myself) {
    xlog("L_INFO","$CrxNot my URI$Cxx\n");
    route(1);
  }

  if(method=="ACK") {
    xlog("L_INFO","$CbxMethod is ACK$Cxx\n");
    route(1);
  }

  if(method=="REGISTER") {
    route(2);
  }

  lookup("aliases");
  if(uri!=myself) {
    xlog("L_INFO","$CrxNot my URI after the lookup$Cxx\n");
    route(1);
  }

  if(!lookup("location"))
  {
    sl_send_reply("404","User Not Found");
    xlog("L_INFO","$CrxUser Not Found$Cxx\n");
    return;
  }

  route(1);
}

route[1]
{
  if(!t_relay())
    sl_reply_error();
  xlog("L_INFO","$CbxMessage is relayed; now exiting$Cxx\n");
  exit;
}

route[2]
{
  if(!save("location"))
    sl_reply_error();
  xlog("L_INFO","$CbxLocation is saved; now exiting$Cxx\n");
  exit;
}

onreply_route[1]
{
  if($cl==0)
    $var(message)=$mb;
  else
    $var(message)=$mb + $Cyx + "{end}" + $Cxx + "\n";
  xlog("L_INFO","\n\n$Cbc[  Reply $rs ($rr) from $si:$sp concerning $rm  ]$Cxx\n$var(message)$Cbc[  End of Reply  ]$Cxx\n");
}