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 } 94