blob: c4d0c8ebc1b14547a6c1f885579c30ba707aa592 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
@(do
(defstruct header nil
name
value
(:method equal (hdr) hdr.name))
(defvar custom-headers ()))
@(define headers)
@ (output)
Content-type: text/html;charset=UTF-8
@ (repeat :vars (custom-headers))
@{custom-headers.name}: @{custom-headers.value}
@ (end)
@ (end)
@(end)
@(define replace-header (name val))
@ (do (pushnew (new header name name value val) custom-headers))
@(end)
@(define add-header (name val))
@ (do (push (new header name name value val) custom-headers))
@(end)
|
