$temp_dir = dirname($doc->url);
$temp_base = basename($doc->url);…………
$base_url = $temp_dir;
if (preg_match ("/^~[a-zA-Z0-9\-\_]*$/", $temp_base)) {
   $base_url = $temp_dir . "/" . $temp_base;
}if ($temp_dir == "http:") {
   $base_url = $temp_dir . "//" . $temp_base;
}
…………