Roxen.git
/
server
/
base_server
/
mainconfig.pike
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/base_server/mainconfig.pike:1:
inherit "config/builders";
-
string cvs_version = "$Id: mainconfig.pike,v 1.
84
1997/12/
13
16
:
40
:
05
grubba Exp $";
+
string cvs_version = "$Id: mainconfig.pike,v 1.
85
1997/12/
15
01
:
25
:
53
grubba Exp $";
//inherit "roxenlib"; import Image; inherit "config/draw_things"; import Array; import Stdio; string status_row(object node); string display_tabular_header(object node);
Roxen.git/server/base_server/mainconfig.pike:1266:
o = find_node(id->not_query); // Find the requested node (from the filename) if(!o) // Bad node, perhaps an old bookmark or something. { id->referer = ({ }); return std_redirect(0, id); } else if(o == root) { // The URL is http://config-url/, not one of the top nodes, but // _above_ them. This is supposed to be some nice introductory // text about the configuration interface...
+
+
// We also need to determine wether this is the full or the
+
// lobotomized international version.
+
+
int full_version=0;
+
catch {
+
if (sizeof(indices(master()->resolv("_Crypto")))) {
+
full_version = 1;
+
}
+
};
+
return http_string_answer(default_head("Roxen Challenger")+ status_row(root)+ display_tabular_header(root)+
-
read_bytes("etc/config.html"),"text/html");
+
read_bytes(
full_version?
"etc/config.html"
:
+
"etc/config.int.html"
),
"text/html");
} if(sizeof(id->prestate)) { switch(indices(id->prestate)[0]) { // It is possible to mark variables as 'VAR_EXPERT', this // will make it impossible to configure them whithout the // 'expert' mode. It can be useful. case "expert": expert_mode = 1; break;