27 lines
1.6 KiB
Racket
27 lines
1.6 KiB
Racket
|
#lang racket/gui
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define none-given "[none given]")
|
||
|
|
|
||
|
|
(define error-message "; error message: ")
|
||
|
|
(define prompt "; prompt: ")
|
||
|
|
|
||
|
|
(define sensitive-input (~a "sensitive input requested" prompt))
|
||
|
|
(define normal-input (~a "normal input requested" prompt))
|
||
|
|
(define unhandled-mimetype "requested file is of unhandled mimetype: ")
|
||
|
|
(define permanently-redirecting "permanently redirecting to: ")
|
||
|
|
(define temporarily-redirecting "temporarily redirecting to: ")
|
||
|
|
(define server-unavailable (~a "server unavailable" error-message))
|
||
|
|
(define cgi-error (~a "cgi error" error-message))
|
||
|
|
(define proxy-error (~a "proxy error" error-message))
|
||
|
|
(define slow-down (~a "SLOW DOWN" error-message))
|
||
|
|
(define temporary-unspecified (~a "unspecified temporary error" error-message))
|
||
|
|
(define file-not-found (~a "file not found" error-message))
|
||
|
|
(define file-gone (~a "file gone" error-message))
|
||
|
|
(define proxy-refused (~a "proxy request refused" error-message))
|
||
|
|
(define bad-request (~a "bad request" error-message))
|
||
|
|
(define permanent-unspecified (~a "unspecified permanent error" error-message))
|
||
|
|
(define cert-unauthorized (~a "client certificate not authorized" error-message))
|
||
|
|
(define cert-invalid (~a "client certificate not valid" error-message))
|
||
|
|
(define cert-required (~a "client certificate required" error-message))
|
||
|
|
(define bad-status "bad status code served: ")
|