71 lines
2.2 KiB
PHP
71 lines
2.2 KiB
PHP
<?php
|
|
// $Header: /cvsroot/html2ps/utils_url.php,v 1.9 2006/07/09 09:07:46 Konstantin Exp $
|
|
|
|
function guess_url($path, $baseurl) {
|
|
// Check if path is absolute
|
|
// 'Path' is starting with protocol identifier?
|
|
if (preg_match("!^[a-zA-Z]+://.*!",$path)) {
|
|
return $path;
|
|
};
|
|
|
|
$data = parse_url($baseurl);
|
|
|
|
$default_host = array(
|
|
'http' => 'localhost',
|
|
'https' => 'localhost',
|
|
'file' => ''
|
|
);
|
|
|
|
$base_scheme = isset($data['scheme']) ? $data['scheme'] : "http";
|
|
$base_port = isset($data['port']) ? ":".$data['port'] : "";
|
|
$base_user = isset($data['user']) ? $data['user'] : "";
|
|
$base_pass = isset($data['pass']) ? $data['pass'] : "";
|
|
$base_host = isset($data['host']) ? $data['host'] : (isset($default_host[$base_scheme]) ? $default_host[$base_scheme] : "");
|
|
$base_path = isset($data['path']) ? $data['path'] : "/";
|
|
|
|
/**
|
|
* Workaround: Some PHP versions do remove the leading slash from the
|
|
* 'file://' URLs with empty host name, while some do not.
|
|
*
|
|
* An example of such URL is: file:///D:/path/dummy.html
|
|
* The path should be: /D:/path/dummy.html
|
|
*
|
|
* Here we check if the leading slash is present and
|
|
* add it if it is missing.
|
|
*/
|
|
if ($base_scheme == "file" && PHP_OS == "WINNT") {
|
|
if (strlen($base_path) > 0) {
|
|
if ($base_path{0} != "/") {
|
|
$base_path = "/".$base_path;
|
|
};
|
|
};
|
|
};
|
|
|
|
$base_user_pass = "";
|
|
if ($base_user || $base_pass) {
|
|
$base_user_pass = sprintf("%s:%s@", $base_user, $base_pass);
|
|
}
|
|
|
|
// 'Path' is starting at scheme?
|
|
if (substr($path,0,2) == "//") {
|
|
$guessed = $base_scheme . ':' . $path;
|
|
return $guessed;
|
|
}
|
|
|
|
// 'Path' is starting at root?
|
|
if (substr($path,0,1) == "/") {
|
|
$guessed = $base_scheme . '://' . $base_user_pass . $base_host . $base_port . $path;
|
|
return $guessed;
|
|
};
|
|
|
|
// 'Path' is relative from the current position
|
|
if (preg_match("#^(/.*)/[^/]*$#", $base_path, $matches)) {
|
|
$base_path_dir = $matches[1];
|
|
} else {
|
|
$base_path_dir = "";
|
|
};
|
|
$guessed = $base_scheme . '://' . $base_user_pass . $base_host . $base_port . $base_path_dir . '/' . $path;
|
|
return $guessed;
|
|
};
|
|
|
|
?>
|