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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
// This is a roxen module. Copyright 1996 - 1998, Idonex AB.
constant cvs_version = "$Id: ip-less_hosts.pike,v 1.19 1998/05/28 01:03:31 grubba Exp $";
constant thread_safe=1;
#include <module.h>
inherit "module";
array register_module()
{
return ({ MODULE_FIRST,
"IP-Less virtual hosting",
"This module adds support for IP-less virtual hosts, "
"simply add this module to a server with a real listen port "
"(Server Variables -> Listen ports) "
"configured, then add no ports to all the servers you want to "
"use ip-less virtual hosting for, but configure their "
"server-URLs. This module will then automagically "
"select the server the request should be sent to."
"<p><b>Please note that the ip less hosting module "
"doesn't work together with proxies. The reason is that the "
"host header sent isn't the one of the proxy server, but the "
"one of the requested host. We recommend having the proxies in "
"their own virtual server, with a unique IP and / or port.</b>",
0, 1 });
}
mapping config_cache = ([ ]);
int is_ip(string s)
{
return(replace(s,
({ "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "." }),
({ "","","","","","","","","","","" })) == "");
}
object find_server_for(object id, string host)
{
object old_conf = id->conf;
host = lower_case(host);
if(config_cache[host]) {
id->conf=config_cache[host];
} else {
if (is_ip(host)) {
// Not likely to be anything else than the current virtual server.
config_cache[host] = id->conf;
return(id->conf);
}
#if constant(Array.diff_longest_sequence)
/* The idea of the algorithm is to find the server-url with the longest
* common sequence of characters with the host-string, and among those with
* the same correlation take the one which is shortest (ie least amount to
* throw away).
*/
int best;
array a = host/"";
string hn;
object c;
#ifdef IP_LESS_DEBUG
roxen_perror("IPLESS: find_server_for(object, \""+host+"\")...\n");
#endif /* IP_LESS_DEBUG */
foreach(roxen->configurations, object s) {
string h = lower_case(s->query("MyWorldLocation"));
// Remove http:// et al here...
// Would get interresting correlation problems with the "http" otherwise.
int i = search(h, "://");
if (i != -1) {
h = h[i+3..];
}
array common = Array.diff_longest_sequence(a, h/"");
int corr = sizeof(common);
#ifdef IP_LESS_DEBUG
string common_s = rows(h/"", common)*"";
roxen_perror(sprintf("IPLESS: h: \"%s\"\n"
"IPLESS: common: %O (\"%s\")\n"
"IPLESS: corr: %d\n",
h, common, common_s, corr));
#endif /* IP_LESS_DEBUG */
if ((corr > best) ||
((corr == best) && hn && (sizeof(hn) > sizeof(h)))) {
/* Either better correlation,
* or the same, but a shorter hostname.
*/
#ifdef IP_LESS_DEBUG
roxen_perror(sprintf("IPLESS: \"%s\" is a better match for \"%s\" than \"%s\"\n",
h, host, hn||""));
#endif /* IP_LESS_DEBUG */
best = corr;
c = s;
hn = h;
}
}
id->conf = config_cache[host] = (c || id->conf);
#else /* !constant(Array.diff_longest_sequence) */
array possible = ({});
foreach(roxen->configurations, object s)
if(search(lower_case(s->query("MyWorldLocation")), host)+1)
possible += ({ s });
id->conf=config_cache[host]=
(sizeof(possible)?
Array.sort_array(possible,lambda(object s, string q) {
return (strlen(s->query("MyWorldLocation"))-strlen(q));},host)[0]:
((sscanf(host, "%*[^.].%s", host)==2)?find_server_for(id,host):id->conf));
#endif /* constant(Array.diff_longest_sequence) */
}
if (id->conf != old_conf) {
/* Need to re-authenticate with the new server */
if (id->rawauth) {
array(string) y = id->rawauth / " ";
id->realauth = 0;
id->auth = 0;
if (sizeof(y) >= 2) {
y[1] = MIME.decode_base64(y[1]);
id->realauth = y[1];
if (id->conf && id->conf->auth_module) {
y = id->conf->auth_module->auth(y, id);
}
id->auth = y;
}
}
}
return id->conf;
}
mapping first_try(object id)
{
if(id->misc->host) find_server_for(id,lower_case((id->misc->host/":")[0]));
}
void start()
{
config_cache = ([]);
}
inherit "http";
string status()
{
string res="<table><tr bgcolor=lightblue><td>Host</td><td>Server</td></tr>";
foreach(sort(indices(config_cache)), string s)
res+="<tr><td>"+s+"</td><td><a href=/Configurations/"+
http_encode_string(config_cache[s]->name)+">"+
(config_cache[s]->name)+"</a></td></tr>";
return res+"</table>";
}
|
