1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
function join_url(url, s, query_keys, i) {
s = url["scheme"] "://"
if (url["user"]) {
s = s url["user"]
if (url["password"]) {
s = s ":" url["password"]
}
s = s "@"
}
s = s url["host"]
if (url["port"]) {
s = s ":" url["port"]
}
if (url["path"]) {
s = s url["path"]
}
if (url["query"]) {
split(url["query"], query_keys)
s = s "?"
for (i = 1; i <= length(query_keys); i++) {
s = s query_keys[i] "=" url["query", query_keys[i]]
if (i != length(query_keys)) {
s = s ";"
}
}
}
if (url["fragment"]) {
s = s "#" url["fragment"]
}
return s
}
function split_url(url, s, url_scheme, url_fragment, url_query, url_query_parts, i, url_query_part, url_authority, url_auth, url_user, url_host) {
delete url
# scheme:[//[user[:password]@]host[:port]][/path][?query][#fragment]
split(s, url_scheme, "://")
url["scheme"] = url_scheme[1]
split(url_scheme[2], url_fragment, "#")
url["fragment"] = url_fragment[2]
split(url_fragment[1], url_query, "?")
split(url_query[2], url_query_parts, "&")
# url["query"] list of query keys (space separated)
# url["query", key] value
for (i = 1; i <= length(url_query_parts); i++) {
split(url_query_parts[i], url_query_part, "=")
url["query"] = url["query"] " " url_query_part[1]
url["query", url_query_part[1]] = url_query_part[2]
}
split(url_query[1], url_authority, "/")
url["path"] = substr(url_query[1], length(url_authority[1]) + 1)
split(url_authority[1], url_auth, "@")
if (length(url_auth) == 2) {
split(url_auth[1], url_user, ":")
url["user"] = url_user[1]
url["password"] = url_user[2]
split(url_auth[2], url_host, ":")
} else {
url["user"] = ""
url["password"] = ""
split(url_auth[1], url_host, ":")
}
url["host"] = url_host[1]
url["port"] = url_host[2]
}
|
