QPQ-AG/gex
12
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

file cache seems done

Browse Source
This commit is contained in:
Peter Harpending 2026-01-12 18:31:31 -08:00
parent 46aacfb621
commit d26cb75331
3 changed files with 28 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gex_httpd/priv/404.html
View File

@ -1,11 +0,0 @@
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>QHL: 404</title>
</head>
<body>
<h1>404 Not Found</h1>
</body>
</html>

11
gex_httpd/priv/500.html
View File

@ -1,11 +0,0 @@
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>QHL: 500</title>
</head>
<body>
<h1>500 Internal Server Error</h1>
</body>
</html>

32
gex_httpd/src/gh_client.erl
View File

@ -283,8 +283,7 @@ handle_entry(Socket, Entry) ->
respond(Socket, Response). respond(Socket, Response).
http_err(Socket, 404) -> http_err(Socket, 404) ->
HtmlPath = filename:join([zx:get_home(), "priv", "404.html"]), ResponseBody = bdy_404(),
{ok, ResponseBody} = file:read_file(HtmlPath),
Headers = [{"content-type", "text/html"}], Headers = [{"content-type", "text/html"}],
Response = #response{headers = Headers, Response = #response{headers = Headers,
code = 404, code = 404,
@ -292,8 +291,7 @@ http_err(Socket, 404) ->
respond(Socket, Response); respond(Socket, Response);
% default error is 500 % default error is 500
http_err(Socket, _) -> http_err(Socket, _) ->
HtmlPath = filename:join([zx:get_home(), "priv", "500.html"]), ResponseBody = bdy_500(),
{ok, ResponseBody} = file:read_file(HtmlPath),
Headers = [{"content-type", "text/html"}], Headers = [{"content-type", "text/html"}],
Response = #response{headers = Headers, Response = #response{headers = Headers,
code = 500, code = 500,
@ -301,6 +299,32 @@ http_err(Socket, _) ->
respond(Socket, Response). respond(Socket, Response).
bdy_404() ->
["<!DOCTYPE html>"
"<html lang=\"en\">"
"<head>"
"<meta charset=\"UTF-8\">"
"<title>QHL: 404</title>"
"</head>"
"<body>"
"<h1>404 Not Found</h1>"
"</body>"
"</html>"].
bdy_500() ->
["<!DOCTYPE html>"
"<html lang=\"en\">"
"<head>"
"<meta charset=\"UTF-8\">"
"<title>QHL: 500 Internal Server Error</title>"
"</head>"
"<body>"
"<h1>500 Internal Server Error</h1>"
"</body>"
"</html>"].
respond(Socket, R = #response{code = Code, headers = Headers, body = Body}) -> respond(Socket, R = #response{code = Code, headers = Headers, body = Body}) ->
Slogan = slogan(Code), Slogan = slogan(Code),
BodyBytes = iolist_to_binary(Body), BodyBytes = iolist_to_binary(Body),