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.78 1997/09/07 16:40:13 grubba Exp $"; + string cvs_version = "$Id: mainconfig.pike,v 1.79 1997/10/03 17:16:47 grubba Exp $";   //inherit "roxenlib";   inherit "config/draw_things";      import Array;   import Stdio;   string status_row(object node);   string display_tabular_header(object node);   object get_template(string t);      /* Work-around for Simulate.perror */
Roxen.git/server/base_server/mainconfig.pike:186:   {    return ("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Draft//EN\">"    "<head><title>"+h+"</title>\n<META HTTP-EQUIV=\"Expires\" CONTENT=\"0\">\n</head>\n"+ BODY+"\n");   }      object find_node(string l)   {    array tmp = l/"/"-({""});    object o;    if(!sizeof(tmp)) return root; -  for(o=root; sizeof(tmp) && (o=o->descend(tmp[0],1)); tmp=tmp[1..1000]); +  for(o=root; sizeof(tmp) && (o=o->descend(tmp[0],1)); tmp=tmp[1..]);    if(!o) return 0;    return o;   }      mapping file_image(string img)   {    object o;    o=open("roxen-images/"+img, "r");    if (!o) return 0;    return ([ "file":o, "type":"image/" + ((img[-1]=='f')?"gif":"jpeg"), ]);
Roxen.git/server/base_server/mainconfig.pike:512:   mapping std_redirect(object o, object id)   {    string loc, l2;       if(!o) o=root;       if(id && sizeof(id->referer))    loc=((((((id->referer*" ")/"#")[0])/"?")[0])+"?"+(bar++)    +"#"+o->path(1));    else -  loc = CONFIG_URL+o->path(1)[1..10000]+"?"+bar++; +  loc = CONFIG_URL+o->path(1)[1..]+"?"+bar++;       if(sscanf(loc, "%s/(%*s)%s",l2, loc) == 3)    loc = l2 + loc; // Remove the prestate.      // http://www:22020//Configuration/ -> http://www:22202/Configurations/       loc = replace(replace(replace(loc, "://", ""), "//", "/"), "", "://");       return http_redirect(http_decode_string(loc));   }