| 20 |
$OPTION{case_sensible} = 0; |
$OPTION{case_sensible} = 0; |
| 21 |
$OPTION{to_be_goodcase} = \&Message::Header::Default::_goodcase; |
$OPTION{to_be_goodcase} = \&Message::Header::Default::_goodcase; |
| 22 |
|
|
| 23 |
|
$OPTION{field_sort} = {qw/alphabetic 1 good-practice 1/}; |
| 24 |
|
$OPTION{field_sort_good_practice_order} = {}; |
| 25 |
|
{ |
| 26 |
|
my $i = 1; |
| 27 |
|
for ( |
| 28 |
|
qw/status/, ## CGI header |
| 29 |
|
qw/man c-man opt c-opt ext c-ext |
| 30 |
|
cache-control connection date pragma transfer-encoding upgrade trailer via |
| 31 |
|
/, ## General-Headers |
| 32 |
|
qw/accept accept-charset accept-encoding accept-language |
| 33 |
|
authorization expect from host |
| 34 |
|
if-modified-since if-match if-none-match if-range if-unmodified-since |
| 35 |
|
max-forwards proxy-authorization range referer te user-agent/, ## Request-Headers |
| 36 |
|
qw/accept-ranges age location proxy-authenticate retry-after server vary |
| 37 |
|
warning www-authenticate/, ## Response-Headers |
| 38 |
|
qw/allow etag expires last-modified link |
| 39 |
|
mime-version content-/, ## Entity-Headers |
| 40 |
|
) { |
| 41 |
|
$OPTION{field_sort_good_practice_order}->{$_} = $i++; |
| 42 |
|
} |
| 43 |
|
## default = 999 |
| 44 |
|
$i = 1000; |
| 45 |
|
for (qw/list- mime-version content- xref/) { |
| 46 |
|
$OPTION{field_sort_good_practice_order}->{$_} = $i++; |
| 47 |
|
} |
| 48 |
|
} |
| 49 |
|
|
| 50 |
$OPTION{goodcase} = { |
$OPTION{goodcase} = { |
| 51 |
'pics-label' => 'PICS-Label', |
'pics-label' => 'PICS-Label', |
| 52 |
'message-id' => 'Message-ID', |
'message-id' => 'Message-ID', |
Parent Directory
| 
Revision Log
| 
Patch