#include <u.h>#include <libc.h>#include <bin.h>#include <httpd.h> inthredirected(HConnect *c, char *how, char *uri){	Hio *hout;	char *s, *ss, *host;	int n; 	host = c->head.host;	if(strchr(uri, ':')){		host = "";	}else if(uri[0] != '/'){		s = strrchr(c->req.uri, '/');		if(s != nil)			*s = '\0';		ss = halloc(c, strlen(c->req.uri) + strlen(uri) + 2 + UTFmax);		sprint(ss, "%s/%s", c->req.uri, uri);		uri = ss;		if(s != nil)			*s = '/';	} 	n = snprint(c->xferbuf, HBufSize, 			"<head><title>Redirection</title></head>\r\n"			"<body><h1>Redirection</h1>\r\n"			"Your selection can be found <a href=\"%U\"> here</a>.<p></body>\r\n", uri); 	hout = &c->hout;	hprint(hout, "%s %s\r\n", hversion, how);	hprint(hout, "Date: %D\r\n", time(nil));	hprint(hout, "Server: Plan9\r\n");	hprint(hout, "Content-type: text/html\r\n");	hprint(hout, "Content-Length: %d\r\n", n);	if(host == nil || host[0] == 0)		hprint(hout, "Location: %U\r\n", uri);	else		hprint(hout, "Location: http://%U%U\r\n", host, uri);	if(c->head.closeit)		hprint(hout, "Connection: close\r\n");	else if(!http11(c))		hprint(hout, "Connection: Keep-Alive\r\n");	hprint(hout, "\r\n"); 	if(strcmp(c->req.meth, "HEAD") != 0)		hwrite(hout, c->xferbuf, n); 	if(c->replog){		if(host == nil || host[0] == 0)			c->replog(c, "Reply: %s\nRedirect: %U\n", how, uri);		else			c->replog(c, "Reply: %s\nRedirect: http://%U%U\n", how, host, uri);	}	return hflush(hout);} inthmoved(HConnect *c, char *uri){	return hredirected(c, "301 Moved Permanently", uri);}