| 1 |
lars |
1 |
<?php
|
|
|
2 |
// $Header: /cvsroot/html2ps/utils_url.php,v 1.9 2006/07/09 09:07:46 Konstantin Exp $
|
|
|
3 |
|
|
|
4 |
function guess_url($path, $baseurl) {
|
|
|
5 |
// Check if path is absolute
|
|
|
6 |
// 'Path' is starting with protocol identifier?
|
|
|
7 |
if (preg_match("!^[a-zA-Z]+://.*!",$path)) {
|
|
|
8 |
return $path;
|
|
|
9 |
};
|
|
|
10 |
|
|
|
11 |
$data = parse_url($baseurl);
|
|
|
12 |
|
|
|
13 |
$default_host = array(
|
|
|
14 |
'http' => 'localhost',
|
|
|
15 |
'https' => 'localhost',
|
|
|
16 |
'file' => ''
|
|
|
17 |
);
|
|
|
18 |
|
|
|
19 |
$base_scheme = isset($data['scheme']) ? $data['scheme'] : "http";
|
|
|
20 |
$base_port = isset($data['port']) ? ":".$data['port'] : "";
|
|
|
21 |
$base_user = isset($data['user']) ? $data['user'] : "";
|
|
|
22 |
$base_pass = isset($data['pass']) ? $data['pass'] : "";
|
|
|
23 |
$base_host = isset($data['host']) ? $data['host'] : (isset($default_host[$base_scheme]) ? $default_host[$base_scheme] : "");
|
|
|
24 |
$base_path = isset($data['path']) ? $data['path'] : "/";
|
|
|
25 |
|
|
|
26 |
/**
|
|
|
27 |
* Workaround: Some PHP versions do remove the leading slash from the
|
|
|
28 |
* 'file://' URLs with empty host name, while some do not.
|
|
|
29 |
*
|
|
|
30 |
* An example of such URL is: file:///D:/path/dummy.html
|
|
|
31 |
* The path should be: /D:/path/dummy.html
|
|
|
32 |
*
|
|
|
33 |
* Here we check if the leading slash is present and
|
|
|
34 |
* add it if it is missing.
|
|
|
35 |
*/
|
|
|
36 |
if ($base_scheme == "file" && PHP_OS == "WINNT") {
|
|
|
37 |
if (strlen($base_path) > 0) {
|
|
|
38 |
if ($base_path{0} != "/") {
|
|
|
39 |
$base_path = "/".$base_path;
|
|
|
40 |
};
|
|
|
41 |
};
|
|
|
42 |
};
|
|
|
43 |
|
|
|
44 |
$base_user_pass = "";
|
|
|
45 |
if ($base_user || $base_pass) {
|
|
|
46 |
$base_user_pass = sprintf("%s:%s@", $base_user, $base_pass);
|
|
|
47 |
}
|
|
|
48 |
|
|
|
49 |
// 'Path' is starting at scheme?
|
|
|
50 |
if (substr($path,0,2) == "//") {
|
|
|
51 |
$guessed = $base_scheme . ':' . $path;
|
|
|
52 |
return $guessed;
|
|
|
53 |
}
|
|
|
54 |
|
|
|
55 |
// 'Path' is starting at root?
|
|
|
56 |
if (substr($path,0,1) == "/") {
|
|
|
57 |
$guessed = $base_scheme . '://' . $base_user_pass . $base_host . $base_port . $path;
|
|
|
58 |
return $guessed;
|
|
|
59 |
};
|
|
|
60 |
|
|
|
61 |
// 'Path' is relative from the current position
|
|
|
62 |
if (preg_match("#^(/.*)/[^/]*$#", $base_path, $matches)) {
|
|
|
63 |
$base_path_dir = $matches[1];
|
|
|
64 |
} else {
|
|
|
65 |
$base_path_dir = "";
|
|
|
66 |
};
|
|
|
67 |
$guessed = $base_scheme . '://' . $base_user_pass . $base_host . $base_port . $base_path_dir . '/' . $path;
|
|
|
68 |
return $guessed;
|
|
|
69 |
};
|
|
|
70 |
|
|
|
71 |
?>
|