route[10]
{
  $var(peers)="["+$fU+" to "+$tU+"]";
  if($cl=="")
    $var(sz)="("+$ml+" bytes)";
  else if($cl=="0")
    $var(sz)="("+$ml+" bytes)";
  else
    $var(sz)="("+$ml+"-"+$cl+" bytes)";
}

onreply_route[1]
{
  route(10);

  if($(rr{s.len})>12)
    $var(rr)=$(rr{s.substr,0,10})+"..";
  else
    $var(rr)=$rr;
  xlog("L_NOTICE","$var(peers) $rs ($var(rr)) for $rm from $si to $Ri $var(sz)\n");

  if($hdr(Record-Route[0])!="") $var(rr0)=$hdr(Record-Route[0]); else $var(rr0)="0";
  if($hdr(Record-Route[1])!="") $var(rr1)=$hdr(Record-Route[1]); else $var(rr1)="0";
  if($hdr(Record-Route[2])!="") $var(rr2)=$hdr(Record-Route[2]); else $var(rr2)="0";
  if($hdr(Record-Route[3])!="") $var(rr3)=$hdr(Record-Route[3]); else $var(rr3)="0";
  if($hdr(Record-Route[4])!="") $var(rr4)=$hdr(Record-Route[4]); else $var(rr4)="0";
  
  if( $var(rr0)!="0" && $var(rr1)=="0" )
  {
    $var(rr00)=$(var(rr0){s.select,0,,});
    $var(rr01)=$(var(rr0){s.select,1,,});
    $var(rr02)=$(var(rr0){s.select,2,,});
    $var(rr03)=$(var(rr0){s.select,3,,});
    $var(rr04)=$(var(rr0){s.select,4,,});
    remove_hf("Record-Route");
    if($var(rr00)!="")
      append_hf("Record-Route: $var(rr00)\r\n");
    if($var(rr01)!="")
      append_hf("Record-Route: $var(rr01)\r\n");
    if($var(rr02)!="")
      append_hf("Record-Route: $var(rr02)\r\n");
    if($var(rr03)!="")
      append_hf("Record-Route: $var(rr03)\r\n");
    if($var(rr04)!="")
      append_hf("Record-Route: $var(rr04)\r\n");
  }
}