Roxen.git/ server/ base_server/ mainconfig.pike

Branch: Tag:

1996-12-10

1996-12-10 00:15:44 by Per Hedbor <ph@opera.com>

ny version

Rev: server/base_server/configuration.pike:1.10
Rev: server/base_server/mainconfig.pike:1.27
Rev: server/base_server/roxen.pike:1.22
Rev: server/modules/graphics/graphic_text.pike:1.7
Rev: server/modules/proxies/ftpgateway.pike:1.8
Rev: server/roxen-images/background.gif:1.4

1:   inherit "config/builders"; - string cvs_version = "$Id: mainconfig.pike,v 1.26 1996/12/07 11:37:42 neotron Exp $"; + string cvs_version = "$Id: mainconfig.pike,v 1.27 1996/12/10 00:15:40 per Exp $";   inherit "roxenlib";   inherit "config/draw_things";   
15:   #define bdB "90"       - #define BODY "<body "+(roxen->QUERY(BG)?"background=/image/background.gif ":"")+"bgcolor=#"+dR+dG+dB+" text=#ffffff link=#ffffaa vlink=#ffffaa alink=#f0e0f0><blockquote>" + #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)
421:   {    return replace(default_head("")+read_bytes("etc/newconfig.html"), ({"$COPIES","$configurl"}),    ({configuration_list(),CONFIG_URL})) + -  "\n\n</blockquote></body>"; +  "\n\n</body>";   }      mapping module_nomore(string name, int type, object conf)
542:    "</a><br>"+a[q][1]+"<p><br><p>"});    }    } -  return res*""+"</td></tr></table></blockquote>"; +  return res*""+"</td></tr></table>";   }      mapping new_module(object id, object node)
689:       if(!id->variables->name)    return stores(default_head("Bad luck")+ -  "<h1>No configuration name?</h1>" +  "<blockquote><h1>No configuration name?</h1>"    "Either you entered no name, or your WWW-browser "    "failed to include it in the request</blockquote>");       id->variables->name=(replace(id->variables->name,"\000"," ")/" "-({""}))*" ";    if(!low_enable_configuration(id->variables->name, id->variables->type))    return stores(default_head("Bad luck") + -  "<h1>Illegal configuration name</h1>" +  "<blockquote><h1>Illegal configuration name</h1>"    "The name of the configuration must contain characters"    " other than space and tab, it should not end with "    "~, and it must not be 'CVS', 'Global Variables' or "
765:       res += read_bytes("etc/welcome.html");    if(error && strlen(error)) -  res += "\n<p><b>"+error+"</b>"; +  res += "<blockquote>\n<p><b>"+error+"</b>";       res += ("<pre>"    "<font size=+1>"
1371:    PUSH(tmp);    o->folded=i;    -  PUSH("</dl><p><br clear=all><p>\n"); +  PUSH("</dl>"); +  PUSH("<p><br clear=all><p>\n");       int lm=1;   
1406:       if(nfolded(o))    BUTTON(unfoldlevel, "Unfold level", left); -  else if(nfoldedr(o)) -  BUTTON(unfoldall, "Unfold all", left); + // else if(nfoldedr(o)) + // BUTTON(unfoldall, "Unfold all", left);          if((o->changed||root->changed))
1419:       PUSH("<img border=0 alt=\"\" hspacing=0 vspacing=0 src=/auto/button/rm/%20>");    PUSH("</nobr><br clear=all>"); -  PUSH("<p align=right><font size=-1 color=blue><a href=$docurl><font color=blue>"+roxen->real_version +"</font></a></font></p>"); + // PUSH("<p align=right><font size=-1 color=blue><a href=$docurl><font color=blue>"+roxen->real_version +"</font></a></font></p>");    PUSH("</body>\n");    return stores(res*"");   }