19a747e4fSDavid du Colombier #include <u.h>
29a747e4fSDavid du Colombier #include <libc.h>
39a747e4fSDavid du Colombier #include <bin.h>
49a747e4fSDavid du Colombier #include <httpd.h>
59a747e4fSDavid du Colombier
69a747e4fSDavid du Colombier int
hredirected(HConnect * c,char * how,char * uri)79a747e4fSDavid du Colombier hredirected(HConnect *c, char *how, char *uri)
89a747e4fSDavid du Colombier {
99a747e4fSDavid du Colombier Hio *hout;
10b39189fdSDavid du Colombier char *s, *ss, *scheme, *host;
11b39189fdSDavid du Colombier char sayport[NETPATHLEN];
12*2a00bb1dSDavid du Colombier int n, nb;
139a747e4fSDavid du Colombier
14b39189fdSDavid du Colombier scheme = c->scheme? c->scheme: "http";
159a747e4fSDavid du Colombier host = c->head.host;
16b39189fdSDavid du Colombier if(strchr(uri, ':') != nil)
179a747e4fSDavid du Colombier host = "";
18b39189fdSDavid du Colombier else if(uri[0] != '/'){
199a747e4fSDavid du Colombier s = strrchr(c->req.uri, '/');
209a747e4fSDavid du Colombier if(s != nil)
219a747e4fSDavid du Colombier *s = '\0';
22*2a00bb1dSDavid du Colombier nb = strlen(c->req.uri) + strlen(uri) + 2 + UTFmax;
23*2a00bb1dSDavid du Colombier ss = halloc(c, nb);
24*2a00bb1dSDavid du Colombier snprint(ss, nb, "%s/%s", c->req.uri, uri);
259a747e4fSDavid du Colombier uri = ss;
269a747e4fSDavid du Colombier if(s != nil)
279a747e4fSDavid du Colombier *s = '/';
289a747e4fSDavid du Colombier }
299a747e4fSDavid du Colombier
30b39189fdSDavid du Colombier if((strcmp(scheme, "http") == 0 && atoi(c->port) == 80) ||
31b39189fdSDavid du Colombier (strcmp(scheme, "https") == 0 && atoi(c->port) == 443) ||
32b39189fdSDavid du Colombier strchr(host, ':') != nil)
33b39189fdSDavid du Colombier sayport[0] = '\0';
34b39189fdSDavid du Colombier else
35b39189fdSDavid du Colombier snprint(sayport, sizeof sayport, ":%s", c->port);
36b39189fdSDavid du Colombier
379a747e4fSDavid du Colombier n = snprint(c->xferbuf, HBufSize,
389a747e4fSDavid du Colombier "<head><title>Redirection</title></head>\r\n"
399a747e4fSDavid du Colombier "<body><h1>Redirection</h1>\r\n"
409a747e4fSDavid du Colombier "Your selection can be found <a href=\"%U\"> here</a>.<p></body>\r\n", uri);
419a747e4fSDavid du Colombier
429a747e4fSDavid du Colombier hout = &c->hout;
439a747e4fSDavid du Colombier hprint(hout, "%s %s\r\n", hversion, how);
449a747e4fSDavid du Colombier hprint(hout, "Date: %D\r\n", time(nil));
459a747e4fSDavid du Colombier hprint(hout, "Server: Plan9\r\n");
469a747e4fSDavid du Colombier hprint(hout, "Content-type: text/html\r\n");
479a747e4fSDavid du Colombier hprint(hout, "Content-Length: %d\r\n", n);
489a747e4fSDavid du Colombier if(host == nil || host[0] == 0)
499a747e4fSDavid du Colombier hprint(hout, "Location: %U\r\n", uri);
509a747e4fSDavid du Colombier else
51b39189fdSDavid du Colombier hprint(hout, "Location: %s://%U%s%U\r\n",
52b39189fdSDavid du Colombier scheme, host, sayport, uri);
539a747e4fSDavid du Colombier if(c->head.closeit)
549a747e4fSDavid du Colombier hprint(hout, "Connection: close\r\n");
559a747e4fSDavid du Colombier else if(!http11(c))
569a747e4fSDavid du Colombier hprint(hout, "Connection: Keep-Alive\r\n");
579a747e4fSDavid du Colombier hprint(hout, "\r\n");
589a747e4fSDavid du Colombier
599a747e4fSDavid du Colombier if(strcmp(c->req.meth, "HEAD") != 0)
609a747e4fSDavid du Colombier hwrite(hout, c->xferbuf, n);
619a747e4fSDavid du Colombier
62b39189fdSDavid du Colombier if(c->replog)
639a747e4fSDavid du Colombier if(host == nil || host[0] == 0)
649a747e4fSDavid du Colombier c->replog(c, "Reply: %s\nRedirect: %U\n", how, uri);
659a747e4fSDavid du Colombier else
66b39189fdSDavid du Colombier c->replog(c, "Reply: %s\nRedirect: %s://%U%s%U\n",
67b39189fdSDavid du Colombier how, scheme, host, sayport, uri);
689a747e4fSDavid du Colombier return hflush(hout);
699a747e4fSDavid du Colombier }
709a747e4fSDavid du Colombier
719a747e4fSDavid du Colombier int
hmoved(HConnect * c,char * uri)729a747e4fSDavid du Colombier hmoved(HConnect *c, char *uri)
739a747e4fSDavid du Colombier {
749a747e4fSDavid du Colombier return hredirected(c, "301 Moved Permanently", uri);
759a747e4fSDavid du Colombier }
76