Roxen.git / server / base_server / mainconfig.pike

version» Context lines:

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;