Log of Roxen.git/server/base_server/mainconfig.pike

1996-12-04

1996-12-04 09:40:07 by Per Hedbor <ph@opera.com>

b2c387982f4ec653459d70349dacc673623b059b (93 lines) (+43/-50) ^{[

Show
| Annotate

]}
Branch: 5.2

Uppsnyggningar (nåja) i konfiginterfacet

Rev: server/base_server/config/describers.pike:1.3
Rev: server/base_server/mainconfig.pike:1.19
Rev: server/base_server/roxen.pike:1.17

1: inherit "config/builders"; - string cvs_version = "$Id: mainconfig.pike,v 1.18 1996/12/04 07:38:23 per Exp $"; + string cvs_version = "$Id: mainconfig.pike,v 1.19 1996/12/04 09:40:03 per Exp $"; inherit "roxenlib"; inherit "config/draw_things";
18: #define BODY "<body bgcolor=#002050 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); - program Node = class { + class Node { inherit "struct/node"; mixed original;
42: { string name=path(1); if(folded) - return ("<a name=\""+name+"\">" - "<a href=\"/(unfold)/" + name + "?"+(bar++)+ - "\"><img border=0 align=baseline src=/auto/unfold" - +(changed?"2":"")+" alt="+(changed?"*-":"--")+">" - "</a> "+s); + return ("<a name=\""+name+"\">\n" + "<a href=\"/(unfold)" + name + "?"+(bar++)+ + "\">\n<img border=0 align=baseline src=/auto/unfold" + +(changed?"2":"")+" alt=\""+(changed?"*-":"--")+"\">" + "</a>\n "+s+"\n"); else - return ("<a name=\""+name+"\">" - "<a href=\"/(fold)/" + name + "?"+(bar++)+ - "\"><img border=0 src=/auto/fold"+(changed?"2":"") + return ("<a name=\""+name+"\">\n" + "<a href=\"/(fold)" + name + "?"+(bar++)+ + "\">\n<img border=0 src=/auto/fold"+(changed?"2":"") +" alt="+(changed?"**":"\"\\/\"")+">" - "</a> "+s); + "</a>\n "+s+"\n"); } string describe(int i) { - string res=""; + array (string) res=({""}); object node,prevnode; mixed tmp;
68: perror("No describer in node "+path(1)+"\n"); #endif if(arrayp(tmp) && sizeof(tmp)) - res += tmp[0] + "<dt>" + (!i?show_me(tmp[1]):tmp[1]) + "\n\n"; + PUSH(tmp[0] + (!i?"<dt>"+show_me(tmp[1]):tmp[1]) + "\n"); else if(stringp(tmp) && strlen(tmp)) - res += "<dt>" + (i?tmp:show_me(tmp)) + "\n\n"; + PUSH((i?tmp:"<dt>"+show_me(tmp)) + "\n"); else if(!tmp) return ""; - if(!i && strlen(res)) - res += "<dd>"; - else if(strlen(res)) - res += ""; - + if(!folded) { int sdl = 0; /* Add slash-dl to the end.. */ - if(!i && strlen(res)) - { - sdl = 1; - res += "<dl>\n\n"; - } + PUSH("<dl><dd>\n"); node = down; while(node) {
100: } prevnode = node; node = node->next; - res += prevnode->describe(); + PUSH(prevnode->describe()); + // PUSH(" "); } - if(sdl) - res += "</dl>\n\n"; + PUSH("</dl>\n\n"); } - return res; + return res*""; }
133: } if(saver) saver(this_object()); } - }; + } object root=Node(); int expert_mode;
146: call_out(init_ip_list, 0); } - #define PUSH(X) do{res+=({(X)});}while(0) - #define BUTTON(ACTION,TEXT,ALIGN) do{PUSH("<a href=\"/(ACTION)"+(o?o->path(1):"/")+"?"+(bar++)+"\"><img border=0 hspacing=0 vspacing=0 src=/auto/button/"+(lm?"lm/":"")+replace(TEXT," ","%20")+" alt=\""+TEXT+"\""+(("ALIGN"-" ")=="left"?"":" align="+("ALIGN"-" "))+"></a>");lm=0;}while(0) + #define BUTTON(ACTION,TEXT,ALIGN) do{PUSH("<a href=\"/(ACTION)"+(o?o->path(1):"/")+"?"+(bar++)+"\"><img border=0 hspacing=0 vspacing=0 src=/auto/button/"+(lm?"lm/":"")+replace(TEXT," ","%20")+" alt=\""+(lm?"/ ":" ")+TEXT+" /\""+(("ALIGN"-" ")=="left"?"":" align="+("ALIGN"-" "))+"></a>");lm=0;}while(0) inline string shutdown_restart(string save, int compact,void|object o) {
156: string default_head(string h, string|void save) { - return ("<title>"+h+"</title>"+ BODY); + return ("<head><title>"+h+"</title></head>\n"+ BODY+"\n"); } object find_node(string l)
430: { return replace(default_head("")+read_bytes("etc/newconfig.html"), ({"$COPIES","$configurl"}), ({configuration_list(),CONFIG_URL})) + - "\n\n<hr noshade><a href=http://www.roxen.com/>"+ - roxen->real_version +"</a></body>"; + "\n\n</body>"; } mapping module_nomore(string name, int type, object conf)
821: array res = ({}); for(int i=0; i<sizeof(nodes); i++) if(i!=selected) - PUSH("<a href=\""+links[i]+"\"><img alt=\""+nodes[i]+" \" src=/auto/unselected/"+replace(nodes[i]," ","%20")+" border=0></a>"); + PUSH("<a href=\""+links[i]+"\"><img alt=\"/"+nodes[i][1..strlen(nodes[i])-2]+"\\_\" src=/auto/unselected/"+replace(nodes[i]," ","%20")+" border=0></a>"); else - PUSH("<a href=\""+links[i]+"\"><img alt=\""+nodes[i]+" \" src=/auto/selected/"+replace(nodes[i]," ","%20")+" border=0></a>"); + PUSH("<a href=\""+links[i]+"\"><img alt=\"/"+nodes[i][1..strlen(nodes[i])-2]+"\\_\" src=/auto/selected/"+replace(nodes[i]," ","%20")+" border=0></a>"); PUSH(" "); return res*""; }
939: } + string remove_font(string t, mapping m, string c) + { + return ""+c+""; + } + + mapping configuration_parse(object id) { array (string) res=({});
1323: PUSH(default_head("Roxen server configuration", root->changed?o->path(1):0)); PUSH("\n"+display_tabular_header( o )+"\n \n"); - // PUSH("<img src=/image/roxen-rotated.gif alt=\"\" align=right>"); + - PUSH("<dl>\n"); - + if(o->up != root && o->up) PUSH("<a href=\""+ o->up->path(1)+"?"+(bar++)+"\">" - "<img src=/auto/back alt='[Up]' align=left hspace=0 border=0></a> "); + "<img src=/auto/back alt='[Up]' align=left hspace=0 border=0></a>\n"); if(i=o->folded) o->folded=0; - PUSH(o->describe(1)); + string tmp = o->describe(1); + if(!id->supports->font) + tmp = parse_html(tmp, ([]),(["font":remove_font, ])); + PUSH(tmp); o->folded=i; - PUSH("</dl>"); - // PUSH("<img height=15 src=/auto/button/ width=100% align=right>"); - PUSH(" "); - // PUSH("<table width=100%><tr><td bgcolor=#"+bdR+bdG+bdB+">"); + PUSH(" \n"); int lm=1;
1377: BUTTON(shutdown,"Shutdown", left); - PUSH("<img border=0 hspacing=0 vspacing=0 src=/auto/button/rm/%20>"); - + PUSH("<img border=0 alt=\"\" hspacing=0 vspacing=0 src=/auto/button/rm/%20>"); PUSH(" "); - // PUSH("</td></tr></table>"); - PUSH("<a href=$docurl>"+roxen->real_version +"</a></body>"); + // PUSH("<a href=$docurl>"+roxen->real_version +"</a>" + PUSH("</body>\n"); return stores(res*""); }

Roxen.git/ server/ base_server/ mainconfig.pike

1996-12-04

1996-12-04 09:40:07 by Per Hedbor <ph@opera.com>