ref: c116550e6a41572796e4db65e4f6acbcb3d9d6f8
dir: /appl/svc/httpd/stats.b/
implement Stats; include "sys.m"; sys : Sys; include "bufio.m"; bufio: Bufio; Iobuf: import bufio; include "draw.m"; draw: Draw; include "contents.m"; include "cache.m"; cache : Cache; include "httpd.m"; Private_info: import Httpd; include "date.m"; date : Date; include "parser.m"; pars : Parser; include "daytime.m"; daytime: Daytime; Stats: module { init: fn(g : ref Private_info, req: Httpd->Request); }; badmod(p: string) { sys->fprint(sys->fildes(2), "stats: cannot load %s: %r\n", p); raise "fail:bad module"; } init(k : ref Private_info, req: Httpd->Request) { sys = load Sys "$Sys"; draw = load Draw "$Draw"; daytime = load Daytime Daytime->PATH; if(daytime == nil) badmod(Daytime->PATH); pars = load Parser Parser->PATH; if(pars == nil) badmod(Parser->PATH); date = load Date Date->PATH; if(date == nil) badmod(Date->PATH); date->init(); bufio=k.bufio; send(k, req.method, req.version, req.uri, req.search); } send(g: ref Private_info, meth, vers, uri, search : string) { if(meth==""); if(uri==""); if(search==""); if(vers != ""){ if (g.version == nil) sys->print("stats: version is unknown.\n"); g.bout.puts(sys->sprint("%s 200 OK\r\n", g.version)); g.bout.puts("Server: Charon\r\n"); g.bout.puts("MIME-version: 1.0\r\n"); g.bout.puts(sys->sprint("Date: %s\r\n", date->dateconv(daytime->now()))); g.bout.puts("Content-type: text/html\r\n"); g.bout.puts(sys->sprint("Expires: %s\r\n", date->dateconv(daytime->now()))); g.bout.puts("\r\n"); } g.bout.puts("<head><title>Cache Information</title></head>\r\n"); g.bout.puts("<body><h1>Cache Information</h1>\r\n"); g.bout.puts("These are the pages stored in the server cache:<p>\r\n"); lis:=(g.cache)->dump(); while (lis!=nil){ (a,b,d):=hd lis; g.bout.puts(sys->sprint("<a href=\"%s\"> %s</a> \t size %d \t tag %d.<p>\r\n",a,a,b,d)); lis = tl lis; } g.bout.flush(); }