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.15 1996/12/03 01:17:46 per Exp $"; + string cvs_version = "$Id: mainconfig.pike,v 1.16 1996/12/03 02:04:06 per Exp $";   inherit "roxenlib";   inherit "config/draw_things";      #include <confignode.h>   #include <module.h>      #define dR "00"   #define dG "20"   #define dB "50"      #define bdR "00" - #define bdG "30" - #define bdB "70" + #define bdG "50" + #define bdB "90"         #define BODY "<body bgcolor=#002050 text=#ffffff link=#ffffaa vlink=#ffffaa alink=#f0e0f0>"      #define TABLEP(x, y) (id->supports->tables ? x : y)      int bar=time(1);      program Node = class {    inherit "struct/node";
Roxen.git/server/base_server/mainconfig.pike:421:   {    string res="";    object o;    foreach(roxen->configurations, o)    res += "<option>Copy of '"+o->name+"'";    return res;   }      string new_configuration_form()   { -  return replace(read_bytes("etc/newconfig.html"), ({"$COPIES","$configurl"}), +  return replace(default_head("")+read_bytes("etc/newconfig.html"), ({"$COPIES","$configurl"}),    ({configuration_list(),CONFIG_URL})) +    "\n\n<hr noshade><p align=right><a href=http://www.roxen.com/>"+    roxen->real_version +"</a></body>";   }      mapping module_nomore(string name, int type, object conf)   {    mapping module;    object o;   // perror("Module: "+name+"\n");
Roxen.git/server/base_server/mainconfig.pike:545:    "\">Disable that module</a> if you want this one insted</i>"    "\n<p><br><p>")});    } else {    res += ({"<p><a href=/(newmodule)"+node->path(1)+"?"+q+"=1>"+    (roxen->QUERY(BS)?"<h2>"+a[q][0]+"</h2>":    "<img border=0 alt=\""+a[q][0]+"\" src=/auto/module/"+    q+" width=500>")+    "</a><br>"+a[q][1]+"<p><br><p>"});    }    } -  +     return res*""+"</td></tr></table>";   }      mapping new_module(object id, object node)   {    string varname;       if(!sizeof(id->variables))    return stores(new_module_form(id, node));   
Roxen.git/server/base_server/mainconfig.pike:601:    {    default: /* Minimal configuration */    roxen->enable_configuration(name);    break;       case "standard":    roxen->enable_configuration(name);    roxen->enable_module("cgi#0");    roxen->enable_module("contenttypes#0");    roxen->enable_module("ismap#0"); -  roxen->enable_module("lpcscript#0"); +  roxen->enable_module("pikescript#0");    roxen->enable_module("htmlparse#0");    roxen->enable_module("directories#0");    roxen->enable_module("userdb#0");    roxen->enable_module("userfs#0"); // I _think_ we want this.    roxen->enable_module("filesystem#0");    break;       case "ipp":    roxen->enable_configuration(name);    roxen->enable_module("contenttypes#0");
Roxen.git/server/base_server/mainconfig.pike:838:   ]);      constant tabs = ({    "Configurations",    "Globals",    "Status",    "Errors",   });      constant tab_names = ({ -  "Virtual servers", -  "Global variables", -  "Status info", -  "Error log", +  " Virtual servers ", +  " Global variables ", +  " Status info ", +  " Error log ",   });         string display_tabular_header(object node)   {    string p, s;       s = extract_almost_top(node) - "/";    selected_nodes[s] = node->path(1);       array links = ({    selected_nodes[tabs[0]]+"?"+(bar++),    selected_nodes[tabs[1]]+"?"+(bar++),    selected_nodes[tabs[2]]+"?"+(bar++),    selected_nodes[tabs[3]]+"?"+(bar++),    }); -  +  links[search(tabs,s)]="/"+s+"/"+"?"+(bar++);    return tablist(tab_names, links, search(tabs,s));   }      // Return the number of unfolded nodes on the level directly below the passed   // node.      int nunfolded(object o)   {    int i;    if(o = o->down)
Roxen.git/server/base_server/mainconfig.pike:923:    break;       case "selected":    i=draw_selected_button(value,button_font);    break;       case "unselected":    i=draw_unselected_button(value,button_font);    break;    } -  if(i) r = http_string_answer(i->togif(128,@trans),"image/gif"); +  i->map_closest(i->select_colors(31)+({trans})); +  if(i) r = http_string_answer(i->togif(@trans),"image/gif");    i=0;    cache_set("config_images", in, r);    return r;   }         mapping configuration_parse(object id)   {    array (string) res=({});    string tmp;