shithub: purgatorio

ref: c116550e6a41572796e4db65e4f6acbcb3d9d6f8
dir: /appl/svc/httpd/echo.b/

View raw version
implement echo;

include "sys.m";
	sys: Sys;
stderr: ref Sys->FD;
include "bufio.m";

include "draw.m";
draw : Draw;

include "cache.m";
include "contents.m";
include "httpd.m";
	Private_info: import Httpd;

include "cgiparse.m";
cgiparse: CgiParse;

echo: module
{
    init: fn(g: ref Private_info, req: Httpd->Request);
};

init(g: ref Private_info, req: Httpd->Request) 
{	
	sys = load Sys Sys->PATH;
	stderr = sys->fildes(2);	
	cgiparse = load CgiParse CgiParse->PATH;
	if( cgiparse == nil ) {
		sys->fprint( stderr, "echo: cannot load %s: %r\n", CgiParse->PATH);
		return;
	}

	send(g, cgiparse->cgiparse(g, req));
}

send(g: ref Private_info, cgidata: ref CgiData ) 
{	
	bufio := g.bufio;
	Iobuf: import bufio;
	if( cgidata == nil ){
		g.bout.flush();
		return;
	}
	
	g.bout.puts( cgidata.httphd );
	
	g.bout.puts("<head><title>Echo</title></head>\r\n");
	g.bout.puts("<body><h1>Echo</h1>\r\n");
	g.bout.puts(sys->sprint("You requested a %s on %s", 
	cgidata.method, cgidata.uri));
	if(cgidata.search!=nil)
		g.bout.puts(sys->sprint(" with search string %s", cgidata.search));
	g.bout.puts(".\n");
	
	g.bout.puts("Your client sent the following headers:<p><pre>");
	g.bout.puts( "Client: " + cgidata.remote + "\n" );
	g.bout.puts( "Date: " + cgidata.tmstamp + "\n" );
	g.bout.puts( "Version: " + cgidata.version + "\n" );
	while( cgidata.header != nil ){
		(tag, val) := hd cgidata.header;
		g.bout.puts( tag + " " + val + "\n" );
		cgidata.header = tl cgidata.header;
	}
	
	g.bout.puts("</pre>\n");	
	if (cgidata.form != nil){	
		i := 0;
		g.bout.puts("</pre>");
		g.bout.puts("Your client sent the following form data:<p>");
		g.bout.puts("<table>\n");
		while(cgidata.form!=nil){	
			(tag, val) := hd cgidata.form;
			g.bout.puts(sys->sprint("<tr><td>%d</td><td><I> ",i));
			g.bout.puts(tag);
			g.bout.puts("</I></td> ");
			g.bout.puts("<td><B> ");
			g.bout.puts(val);
			g.bout.puts("</B></td></tr>\n");
			g.bout.puts("\n");
			cgidata.form = tl cgidata.form;
			i++;
		}
		g.bout.puts("</table>\n");
	}	
	g.bout.puts("</body>\n");
	g.bout.flush();
}