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.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;