Roxen.git
/
server
/
base_server
/
mainconfig.pike
version
»
Context lines:
10
20
40
80
file
none
3
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)); }