sys/src/libhttpd/redirected.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <bin.h>
   4 #include <httpd.h>
   5
   6 int
   7 hredirected(HConnect *c, char *how, char *uri)
   8 {
   9         Hio *hout;
  10         char *s, *ss, *scheme, *host;
  11         char sayport[NETPATHLEN];
  12         int n;
  13
  14         scheme = c->scheme? c->scheme: "http";
  15         host = c->head.host;
  16         if(strchr(uri, ':') != nil)
  17                 host = "";
  18         else if(uri[0] != '/'){
  19                 s = strrchr(c->req.uri, '/');
  20                 if(s != nil)
  21                         *s = '\0';
  22                 ss = halloc(c, strlen(c->req.uri) + strlen(uri) + 2 + UTFmax);
  23                 sprint(ss, "%s/%s", c->req.uri, uri);
  24                 uri = ss;
  25                 if(s != nil)
  26                         *s = '/';
  27         }
  28
  29         if((strcmp(scheme, "http") == 0 && atoi(c->port) == 80) ||
  30            (strcmp(scheme, "https") == 0 && atoi(c->port) == 443) ||
  31             strchr(host, ':') != nil)
  32                 sayport[0] = '\0';
  33         else
  34                 snprint(sayport, sizeof sayport, ":%s", c->port);
  35
  36         n = snprint(c->xferbuf, HBufSize,
  37                         "<head><title>Redirection</title></head>\r\n"
  38                         "<body><h1>Redirection</h1>\r\n"
  39                         "Your selection can be found <a href=\"%U\"> here</a>.<p></body>\r\n", uri);
  40
  41         hout = &c->hout;
  42         hprint(hout, "%s %s\r\n", hversion, how);
  43         hprint(hout, "Date: %D\r\n", time(nil));
  44         hprint(hout, "Server: Plan9\r\n");
  45         hprint(hout, "Content-type: text/html\r\n");
  46         hprint(hout, "Content-Length: %d\r\n", n);
  47         if(host == nil || host[0] == 0)
  48                 hprint(hout, "Location: %U\r\n", uri);
  49         else
  50                 hprint(hout, "Location: %s://%U%s%U\r\n",
  51                         scheme, host, sayport, uri);
  52         if(c->head.closeit)
  53                 hprint(hout, "Connection: close\r\n");
  54         else if(!http11(c))
  55                 hprint(hout, "Connection: Keep-Alive\r\n");
  56         hprint(hout, "\r\n");
  57
  58         if(strcmp(c->req.meth, "HEAD") != 0)
  59                 hwrite(hout, c->xferbuf, n);
  60
  61         if(c->replog)
  62                 if(host == nil || host[0] == 0)
  63                         c->replog(c, "Reply: %s\nRedirect: %U\n", how, uri);
  64                 else
  65                         c->replog(c, "Reply: %s\nRedirect: %s://%U%s%U\n",
  66                                 how, scheme, host, sayport, uri);
  67         return hflush(hout);
  68 }
  69
  70 int
  71 hmoved(HConnect *c, char *uri)
  72 {
  73         return hredirected(c, "301 Moved Permanently", uri);
  74 }