~alcinnz/hurl

bebe06d78263f5a749b5edba722dfc83342fcf47 — Adrian Cochrane 1 year, 8 months ago 7cea166
Switch to different proposed HTML syntax for crypto-authentication.
1 files changed, 4 insertions(+), 4 deletions(-)

M src/Network/URI/Messages.hs
M src/Network/URI/Messages.hs => src/Network/URI/Messages.hs +4 -4
@@ 102,11 102,11 @@ trans ("en":_) (GeminiError '5' '2' _) = "Page deleted! Try the <a href='/'>home
trans ("en":_) (GeminiError '5' '3' _) = "Contacted wrong server!"
trans ("en":_) (GeminiError '5' '9' _) = "Malformed request, my bad!"
trans ("en":_) (GeminiError '6' '1' _) = "<form><label>Authentication required" ++
    "<input type='-argo-keypair' -argo-error='Unauthorized account!'></form>"
    "<-argo-authenticate error='Unauthorized account!'></-argo-authenticate></form>"
trans ("en":_) (GeminiError '6' '2' _) = "<form><label>Authentication required" ++
    "<input type='-argo-keypair' -argo-error='Invalid account!'></form>"
    "<-argo-authenticate error='Invalid account!'></-argo-authenticate></form>"
trans ("en":_) (GeminiError '6' _ _) = "<form><label>Authentication required" ++
    "<input type='-argo-keypair' -argo-error='Invalid account!'></form>"
    "<-argo-authenticate></-argo-authenticate></form>"
trans ("en":_) (GeminiError _ _ error) = error
trans ("en":_) (HTTPStatus 400 _) = "I sent a bad request, according to this site."
trans ("en":_) (HTTPStatus 401 _) = "Authentication required!" -- FIXME: Support HTTP Basic Auth.


@@ 150,7 150,7 @@ trans ("en":_) (HTTPStatus 431 _) = "I sent more auxiliary data than this site c
trans ("en":_) (HTTPStatus 451 _) = "Requested page cannot legally be provided!"

trans ("en":_) (HTTPStatus 500 _) = "The site experienced an error generating this webpage. <em>The webmasters have probably already been automatically notified.</em>"
trans ("en":_) (HTTPStatus 501 _) = "Bad webform for this destination webaddress! " ++ 
trans ("en":_) (HTTPStatus 501 _) = "Bad webform for this destination webaddress! " ++
    "<em>Method not implemented</em>."
trans ("en":_) (HTTPStatus 502 _) = "Proxyserver got a malformed response!"
trans ("en":_) (HTTPStatus 503 _) = "The site is not available right now!"