diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-05-06 12:37:43 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-05-06 12:37:43 -0400 |
commit | f2b891fbf46eaf4e18ee972c9620dc6e5459e31a (patch) | |
tree | 2f56820b3f63c032bb741015bc8d64f070ea6aa7 /src/cjr_print.sml | |
parent | 8fc21f019ff8eedfb1396e38b2352454c47598d2 (diff) |
Fix from Edward Yang to generation of 404 errors in FastCGI
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 0f1e7135..5c087fe0 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -3433,7 +3433,9 @@ fun p_file env (ds, ps) = newline, string "uw_clear_headers(ctx);", newline, - string "uw_write_header(ctx, \"HTTP/1.1 404 Not Found\\r\\nContent-type: text/plain\\r\\n\");", + string "uw_write_header(ctx, uw_supports_direct_status ? \"HTTP/1.1 404 Not Found\\r\\n\" : \"Status: 404 Not Found\\r\\n\");", + newline, + string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");", newline, string "uw_write(ctx, \"Not Found\");", newline, |