sys/src/libhttpd/fail.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <bin.h>
   4 #include <httpd.h>
   5
   6 typedef struct Error    Error;
   7
   8 struct Error
   9 {
  10         char    *num;
  11         char    *concise;
  12         char    *verbose;
  13 };
  14
  15 Error errormsg[] =
  16 {
  17         [HInternal]     {"500 Internal Error", "Internal Error",
  18                 "This server could not process your request due to an internal error."},
  19         [HTempFail]     {"500 Internal Error", "Temporary Failure",
  20                 "The object %s is currently inaccessible.<p>Please try again later."},
  21         [HUnimp]        {"501 Not implemented", "Command not implemented",
  22                 "This server does not implement the %s command."},
  23         [HUnkVers]      {"501 Not Implemented", "Unknown http version",
  24                 "This server does not know how to respond to http version %s."},
  25         [HBadCont]      {"501 Not Implemented", "Impossible format",
  26                 "This server cannot produce %s in any of the formats your client accepts."},
  27         [HBadReq]       {"400 Bad Request", "Strange Request",
  28                 "Your client sent a query that this server could not understand."},
  29         [HSyntax]       {"400 Bad Request", "Garbled Syntax",
  30                 "Your client sent a query with incoherent syntax."},
  31         [HBadSearch]    {"400 Bad Request", "Inapplicable Search",
  32                 "Your client sent a search that cannot be applied to %s."},
  33         [HNotFound]     {"404 Not Found", "Object not found",
  34                 "The object %s does not exist on this server."},
  35         [HNoSearch]     {"403 Forbidden", "Search not supported",
  36                 "The object %s does not support the search command."},
  37         [HNoData]       {"403 Forbidden", "No data supplied",
  38                 "Search or forms data must be supplied to %s."},
  39         [HExpectFail]   {"403 Expectation Failed", "Expectation Failed",
  40                 "This server does not support some of your request's expectations."},
  41         [HUnauth]       {"403 Forbidden", "Forbidden",
  42                 "You are not allowed to see the object %s."},
  43         [HOK]           {"200 OK", "everything is fine"},
  44 };
  45
  46 /*
  47  * write a failure message to the net and exit
  48  */
  49 int
  50 hfail(HConnect *c, int reason, ...)
  51 {
  52         Hio *hout;
  53         char makeup[HBufSize], err[ERRMAX];
  54         va_list arg;
  55         int n;
  56
  57         rerrstr(err, sizeof err);
  58         hout = &c->hout;
  59         va_start(arg, reason);
  60         vseprint(makeup, makeup+HBufSize, errormsg[reason].verbose, arg);
  61         va_end(arg);
  62         /*
  63          * this additional information has proved useful when debugging
  64          * complex http configuration problems.
  65          */
  66         n = snprint(c->xferbuf, HBufSize, "<head><title>%s</title></head>\n"
  67                 "<body><h1>%s</h1>\n%s<p>\n"
  68                 "errstr: %s<br>\n"
  69                 "uri host: %s<br>\n"
  70                 "header host: %s<br>\nactual host: %s\n</body>\n",
  71                 errormsg[reason].concise, errormsg[reason].concise, makeup,
  72                 err,
  73                 (c->req.urihost? c->req.urihost: ""),
  74                 c->head.host, hmydomain);
  75
  76         hprint(hout, "%s %s\r\n", hversion, errormsg[reason].num);
  77         hprint(hout, "Date: %D\r\n", time(nil));
  78         hprint(hout, "Server: Plan9\r\n");
  79         hprint(hout, "Content-Type: text/html\r\n");
  80         hprint(hout, "Content-Length: %d\r\n", n);
  81         if(c->head.closeit)
  82                 hprint(hout, "Connection: close\r\n");
  83         else if(!http11(c))
  84                 hprint(hout, "Connection: Keep-Alive\r\n");
  85         hprint(hout, "\r\n");
  86
  87         if(c->req.meth == nil || strcmp(c->req.meth, "HEAD") != 0)
  88                 hwrite(hout, c->xferbuf, n);
  89
  90         if(c->replog)
  91                 c->replog(c, "Reply: %s\nReason: %s\n", errormsg[reason].num, errormsg[reason].concise);
  92         return hflush(hout);
  93 }