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.29 1996/12/13 00:41:16 per Exp $"; + string cvs_version = "$Id: mainconfig.pike,v 1.29.2.1 1997/03/02 19:13:53 grubba Exp $";   inherit "roxenlib";   inherit "config/draw_things";    -  + import Array; + import Stdio; +    #include <confignode.h>   #include <module.h>      #define dR "00"   #define dG "06"   #define dB "30"      #define bdR "00"   #define bdG "50"   #define bdB "90"
Roxen.git/server/base_server/mainconfig.pike:18:   #define BODY "<body "+(roxen->QUERY(BG)?"background=/image/background.gif ":"")+"bgcolor=#"+dR+dG+dB+" text=#ffffff link=#ffffaa vlink=#ffffaa alink=#f0e0f0>"      #define TABLEP(x, y) (id->supports->tables ? x : y)   #define PUSH(X) do{res+=({(X)});}while(0)      int bar=time(1);      class Node {    inherit "struct/node";    +  import Simulate; +     mixed original;    int changed, moredocs;       int bar=previous_object()->bar;    function saver = lambda(object o) { if(o->changed) o->change(-o->changed); };       string|array error;       void change(int i)    {
Roxen.git/server/base_server/mainconfig.pike:243:    }    }    return 0;   }      mixed decode_form_result(string var, int type, object node, mapping allvars)   {    switch(type)    {    case TYPE_MODULE_LIST: -  return map_array(var/"\000", find_module); +  return map(var/"\000", find_module);       case TYPE_MODULE:    return find_module(var);       case TYPE_PORTS:    /*    Encoded like this:       new_port --> Add a new port    ok[_<ID>] --> Save the value for all or one port
Roxen.git/server/base_server/mainconfig.pike:288:    op[i][1] = allvars["protocol_"+i]||op[i][1];    op[i][2] = allvars["ip_number_"+i]||op[i][2];    op[i][3] = allvars["arguments_"+i]||op[i][3];    } else // Delete this port.    op[i]=0;    }    return op - ({ 0 });       case TYPE_DIR_LIST:    array foo; -  foo=map_array((var-" ")/",", lambda(string var, object node) { +  foo=map((var-" ")/",", lambda(string var, object node) {    if (!strlen( var ) || file_size( var ) != -2)    {    if(node->error)    node->error += ", " +var + " is not a directory";    else    node->error = var + " is not a directory";    return 0;    }    if(var[-1] != '/')    return var + "/";
Roxen.git/server/base_server/mainconfig.pike:353:    {    node->error= var + " is not a arbitary precision floating point number";    return 0;    }    return tmp;       case TYPE_INT_LIST:    if(node->data[VAR_MISC])    return (int)var;    else -  return map_array((var-" ")/",", lambda(string s){ +  return map((var-" ")/",", lambda(string s){    return (int)s;    });          case TYPE_STRING_LIST:    if(node->data[VAR_MISC])    return var;    else    return (var-" ")/",";   
Roxen.git/server/base_server/mainconfig.pike:863:      int nunfolded(object o)   {    int i;    if(o = o->down)    do { i+=!o->folded; } while(o=o->next);    return i;   }       - object module_font = Font()->load("base_server/config/font"); - object button_font = Font()->load("base_server/config/button_font"); + object module_font = Image.font()->load("base_server/config/font"); + object button_font = Image.font()->load("base_server/config/button_font");      mapping auto_image(string in, object id)   {    string key, value;    array trans = ({ (int)("0x"+dR),(int)("0x"+dG),(int)("0x"+dB) });    mapping r;    mixed e;    object i;       if(r=cache_lookup("config_images", in)) return r;
Roxen.git/server/base_server/mainconfig.pike:1191:    for(i=0; i<sizeof(roxen->configurations); i++)    if(roxen->configurations[i] == o->data)    break;       if(i==sizeof(roxen->configurations))    error("Configuration not found.\n");       roxen->remove_configuration(o->data->name);       if(roxen->configurations[i]->ports_open) -  map_array(values(roxen->configurations[i]->ports_open), destruct); +  map(values(roxen->configurations[i]->ports_open), destruct);    destruct(roxen->configurations[i]);       roxen->configurations =    roxen->configurations[..i-1] + roxen->configurations[i+1..];       o->change(-o->changed);    o->dest();    break;       case NODE_MODULE_COPY_VARIABLE: