1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
? my $ctx = $main::context;
? $_mt->wrapper_file("wrapper.mt", "Configure", "Headers Directives")->(sub {
<p>
This document describes the configuration directives of the headers handler.
</p>
<?
$ctx->{directive}->(
name => "header.add",
levels => [ qw(global host path extension) ],
desc => q{Adds a new header line to the response headers, regardless if a header with the same name already exists.},
)->(sub {
?>
<div class="example">
<div class="caption">Example. Setting the <code>Set-Cookie</code> header</div>
<pre><code>header.add: "Set-Cookie: test=1"</code></pre>
</div>
? })
<?
$ctx->{directive}->(
name => "header.append",
levels => [ qw(global host path extension) ],
desc => <<'EOT',
Adds a new header line, or appends the value to the existing header with the same name, separated by <code>,</code>.
EOT
)->(sub {});
?>
<?
$ctx->{directive}->(
name => "header.merge",
levels => [ qw(global host path extension) ],
desc => <<'EOT',
Adds a new header line, or merges the value to the existing header of comma-separated values.
EOT
)->(sub {
?>
<p>
The following example sets the <code>must-revalidate</code> attribute of the <code>Cache-Control</code> header when and only when the attribute is not yet being set.
</p>
<?= $ctx->{example}->('Setting the <code>must-revalidate</code> attribute', <<'EOT')
header.merge: "Cache-Control: must-revalidate"
EOT
?>
? })
<?
$ctx->{directive}->(
name => "header.set",
levels => [ qw(global host path extension) ],
desc => q{Sets a header line, removing headers with the same name if exists.},
)->(sub {
?>
<?= $ctx->{example}->('Setting the <code>X-Content-Type-Options: nosniff</code> header', <<'EOT')
header.set: "X-Content-Type-Options: nosniff"
EOT
?>
? })
<?
$ctx->{directive}->(
name => "header.setifempty",
levels => [ qw(global host path extension) ],
desc => <<'EOT',
Sets a header line when and only when a header with the same name does not already exist.
EOT
)->(sub {});
<?
$ctx->{directive}->(
name => "header.unset",
levels => [ qw(global host path extension) ],
desc => q{Removes headers with given name.},
)->(sub {
?>
<?= $ctx->{example}->('Removing the <code>X-Powered-By</code> header', <<'EOT')
header.unset: "X-Powered-By"
EOT
?>
? })
? })
|
