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 typedef struct Error Error;
79a747e4fSDavid du Colombier
89a747e4fSDavid du Colombier struct Error
99a747e4fSDavid du Colombier {
109a747e4fSDavid du Colombier char *num;
119a747e4fSDavid du Colombier char *concise;
129a747e4fSDavid du Colombier char *verbose;
139a747e4fSDavid du Colombier };
149a747e4fSDavid du Colombier
159a747e4fSDavid du Colombier Error errormsg[] =
169a747e4fSDavid du Colombier {
179a747e4fSDavid du Colombier [HInternal] {"500 Internal Error", "Internal Error",
189a747e4fSDavid du Colombier "This server could not process your request due to an internal error."},
199a747e4fSDavid du Colombier [HTempFail] {"500 Internal Error", "Temporary Failure",
209a747e4fSDavid du Colombier "The object %s is currently inaccessible.<p>Please try again later."},
219a747e4fSDavid du Colombier [HUnimp] {"501 Not implemented", "Command not implemented",
229a747e4fSDavid du Colombier "This server does not implement the %s command."},
239a747e4fSDavid du Colombier [HUnkVers] {"501 Not Implemented", "Unknown http version",
249a747e4fSDavid du Colombier "This server does not know how to respond to http version %s."},
259a747e4fSDavid du Colombier [HBadCont] {"501 Not Implemented", "Impossible format",
269a747e4fSDavid du Colombier "This server cannot produce %s in any of the formats your client accepts."},
279a747e4fSDavid du Colombier [HBadReq] {"400 Bad Request", "Strange Request",
289a747e4fSDavid du Colombier "Your client sent a query that this server could not understand."},
299a747e4fSDavid du Colombier [HSyntax] {"400 Bad Request", "Garbled Syntax",
309a747e4fSDavid du Colombier "Your client sent a query with incoherent syntax."},
319a747e4fSDavid du Colombier [HBadSearch] {"400 Bad Request", "Inapplicable Search",
329a747e4fSDavid du Colombier "Your client sent a search that cannot be applied to %s."},
339a747e4fSDavid du Colombier [HNotFound] {"404 Not Found", "Object not found",
349a747e4fSDavid du Colombier "The object %s does not exist on this server."},
359a747e4fSDavid du Colombier [HNoSearch] {"403 Forbidden", "Search not supported",
369a747e4fSDavid du Colombier "The object %s does not support the search command."},
379a747e4fSDavid du Colombier [HNoData] {"403 Forbidden", "No data supplied",
389a747e4fSDavid du Colombier "Search or forms data must be supplied to %s."},
399a747e4fSDavid du Colombier [HExpectFail] {"403 Expectation Failed", "Expectation Failed",
409a747e4fSDavid du Colombier "This server does not support some of your request's expectations."},
419a747e4fSDavid du Colombier [HUnauth] {"403 Forbidden", "Forbidden",
429a747e4fSDavid du Colombier "You are not allowed to see the object %s."},
439a747e4fSDavid du Colombier [HOK] {"200 OK", "everything is fine"},
449a747e4fSDavid du Colombier };
459a747e4fSDavid du Colombier
469a747e4fSDavid du Colombier /*
479a747e4fSDavid du Colombier * write a failure message to the net and exit
489a747e4fSDavid du Colombier */
499a747e4fSDavid du Colombier int
hfail(HConnect * c,int reason,...)509a747e4fSDavid du Colombier hfail(HConnect *c, int reason, ...)
519a747e4fSDavid du Colombier {
529a747e4fSDavid du Colombier Hio *hout;
53*410ea80bSDavid du Colombier char makeup[HBufSize], err[ERRMAX];
549a747e4fSDavid du Colombier va_list arg;
559a747e4fSDavid du Colombier int n;
569a747e4fSDavid du Colombier
57*410ea80bSDavid du Colombier rerrstr(err, sizeof err);
589a747e4fSDavid du Colombier hout = &c->hout;
599a747e4fSDavid du Colombier va_start(arg, reason);
609a747e4fSDavid du Colombier vseprint(makeup, makeup+HBufSize, errormsg[reason].verbose, arg);
619a747e4fSDavid du Colombier va_end(arg);
62*410ea80bSDavid du Colombier /*
63*410ea80bSDavid du Colombier * this additional information has proved useful when debugging
64*410ea80bSDavid du Colombier * complex http configuration problems.
65*410ea80bSDavid du Colombier */
66*410ea80bSDavid du Colombier n = snprint(c->xferbuf, HBufSize, "<head><title>%s</title></head>\n"
67*410ea80bSDavid du Colombier "<body><h1>%s</h1>\n%s<p>\n"
68*410ea80bSDavid du Colombier "errstr: %s<br>\n"
69*410ea80bSDavid du Colombier "uri host: %s<br>\n"
70*410ea80bSDavid du Colombier "header host: %s<br>\nactual host: %s\n</body>\n",
71*410ea80bSDavid du Colombier errormsg[reason].concise, errormsg[reason].concise, makeup,
72*410ea80bSDavid du Colombier err,
73*410ea80bSDavid du Colombier (c->req.urihost? c->req.urihost: ""),
74*410ea80bSDavid du Colombier c->head.host, hmydomain);
759a747e4fSDavid du Colombier
769a747e4fSDavid du Colombier hprint(hout, "%s %s\r\n", hversion, errormsg[reason].num);
779a747e4fSDavid du Colombier hprint(hout, "Date: %D\r\n", time(nil));
789a747e4fSDavid du Colombier hprint(hout, "Server: Plan9\r\n");
799a747e4fSDavid du Colombier hprint(hout, "Content-Type: text/html\r\n");
809a747e4fSDavid du Colombier hprint(hout, "Content-Length: %d\r\n", n);
819a747e4fSDavid du Colombier if(c->head.closeit)
829a747e4fSDavid du Colombier hprint(hout, "Connection: close\r\n");
839a747e4fSDavid du Colombier else if(!http11(c))
849a747e4fSDavid du Colombier hprint(hout, "Connection: Keep-Alive\r\n");
859a747e4fSDavid du Colombier hprint(hout, "\r\n");
869a747e4fSDavid du Colombier
879a747e4fSDavid du Colombier if(c->req.meth == nil || strcmp(c->req.meth, "HEAD") != 0)
889a747e4fSDavid du Colombier hwrite(hout, c->xferbuf, n);
899a747e4fSDavid du Colombier
909a747e4fSDavid du Colombier if(c->replog)
919a747e4fSDavid du Colombier c->replog(c, "Reply: %s\nReason: %s\n", errormsg[reason].num, errormsg[reason].concise);
929a747e4fSDavid du Colombier return hflush(hout);
939a747e4fSDavid du Colombier }
94