sub virtual_host
{
 local ($absolute_file,$path,$tag) = @_;

 local $nb2 = split (/\//,$Dest);
 local($relatif_file) = $absolute_file;

 $path =~ s/^$Dest\/(.*)\/.*/$1/;
 local $nb = split (/\//,$path);
 local ($l_point) = "";
 for(local($i) = $nb; $i > 0; $i--)
  {
   $l_point = "../$l_point";
  }
  
 while($relatif_file =~ /($tag\s*=\s*"\/(.*?)")/is)
  {
   local ($le_tout,$l_abs) = ($1,$2);
   local ($l_abs2) = "$l_point$l_abs";
   $absolute_file =~ s/\Q"\/$l_abs\E/"$l_abs2/is;
   $relatif_file =~ s/\Q$le_tout\E//is;
  }

 while($l_point ne "")
  {
   $absolute_file =~ s/"((\.\.\/)*)\Q$l_point$path\E\//"$1/g;
   $l_point =~ s/..\///;
   $path =~ s/\/[^\/]*$//;
  }

 return $absolute_file;
}

return 1;