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.
109
1998
/
09
/
30
17
:
38
:
17
grubba
Exp $";
+
string cvs_version = "$Id: mainconfig.pike,v 1.
110
1999
/
04
/
25
16
:
52
:
45
marcus
Exp $";
//inherit "roxenlib"; inherit "config/draw_things"; // import Array; // import Stdio; string status_row(object node); string display_tabular_header(object node); object get_template(string t);
Roxen.git/server/base_server/mainconfig.pike:1321:
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;
+
int half_version=0;
catch { if (sizeof(indices(master()->resolv("_Crypto")))) { full_version = 1; } };
-
+
if(full_version)
+
catch {
+
#ifndef WEAK_CRYPTO_40BIT
+
if(search(Stdio.read_bytes("protocols/ssl3.pike"),
+
"WEAK_CRYPTO_40BIT")<0)
+
#endif
+
{
+
half_version = 1;
+
full_version = 0;
+
}
+
};
return http_string_answer(default_head("Roxen Challenger " + roxen->__roxen_version__ + "." + roxen->__roxen_build__)+ status_row(root)+ display_tabular_header(root)+ Stdio.read_bytes(full_version?"etc/config.html":
-
"etc/config.int.html"),
"text/html");
+
(half_version?
"etc/config.
40bit.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;