/[suikacvs]/messaging/manakai/lib/Message/Header/HTTP.pm
Suika

Diff of /messaging/manakai/lib/Message/Header/HTTP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Sat Jul 27 04:43:03 2002 UTC revision 1.5 by wakaba, Sat Aug 3 11:42:22 2002 UTC
# Line 28  $OPTION{field_sort_good_practice_order} Line 28  $OPTION{field_sort_good_practice_order}
28      qw/status/, ## CGI header      qw/status/, ## CGI header
29      qw/man c-man opt c-opt ext c-ext      qw/man c-man opt c-opt ext c-ext
30         cache-control connection date pragma transfer-encoding upgrade trailer via         cache-control connection date pragma transfer-encoding upgrade trailer via
31         /,       ## General-Headers         keep-alive/,     ## General-Headers
32      qw/accept accept-charset accept-encoding accept-language      qw/accept accept-charset accept-encoding accept-language
33         authorization expect from host         authorization expect from host
34         if-modified-since if-match if-none-match if-range if-unmodified-since         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         max-forwards proxy-authorization range referer te user-agent/,   ## Request-Headers
36      qw/accept-ranges age location proxy-authenticate retry-after server vary      qw/accept-ranges age location proxy-authenticate retry-after server vary
37         warning www-authenticate/,       ## Response-Headers         warning www-authenticate alternates/,    ## Response-Headers
38      qw/allow etag expires last-modified link      qw/allow etag expires last-modified link window-target
39         mime-version content-/,  ## Entity-Headers         mime-version derived-from base content-/,        ## Entity-Headers
40    ) {    ) {
41        $OPTION{field_sort_good_practice_order}->{$_} = $i++;        $OPTION{field_sort_good_practice_order}->{$_} = $i++;
42    }    }
# Line 56  $OPTION{goodcase} = { Line 56  $OPTION{goodcase} = {
56    
57  $OPTION{value_type} = {  $OPTION{value_type} = {
58          ':default'      => ['Message::Field::Unstructured'],          ':default'      => ['Message::Field::Unstructured'],
59            status  => ['Message::Field::Status'],
60                    
61            ## HTTP-Date / delta-second
62          date    => ['Message::Field::Date'],          date    => ['Message::Field::Date'],
63          expires => ['Message::Field::Date'],          expires => ['Message::Field::Date'],
64          'if-modified-since'     => ['Message::Field::Date'],          'if-modified-since'     => ['Message::Field::Date'],
65            'if-unmodified-since'   => ['Message::Field::Date'],
66          'last-modified' => ['Message::Field::Date'],          'last-modified' => ['Message::Field::Date'],
67                    
         man     => ['Message::Field::CSV'],  
         opt     => ['Message::Field::CSV'],  
68          p3p     => ['Message::Field::Params'],          p3p     => ['Message::Field::Params'],
69                    'window-target' => ['Message::Field::ValueParams'],
         ## Numeric value  
70          'mime-version'  => ['Message::Field::Numval'],          'mime-version'  => ['Message::Field::Numval'],
71            from    => ['Message::Field::Addresses'],
72                    
73            ## product
74          server  => ['Message::Field::UA'],          server  => ['Message::Field::UA'],
75          'user-agent'    => ['Message::Field::UA'],          'user-agent'    => ['Message::Field::UA'],
         'from'  => ['Message::Field::Addresses'],  
76                    
77            ## Comma Separated List
78          link    => ['Message::Field::CSV'],          link    => ['Message::Field::CSV'],
79          uri     => ['Message::Field::CSV'],          uri     => ['Message::Field::CSV'],
80            man     => ['Message::Field::CSV'],
81            opt     => ['Message::Field::CSV'],
82                    
83            ## A URI
84            base    => ['Message::Field::URI',{
85                    -output_comment => 0,
86                    -output_display_name    => 0,
87                    -value_pattern  => 'URL:%s',
88            }],
89          location        => ['Message::Field::URI'],          location        => ['Message::Field::URI'],
90          referer => ['Message::Field::URI'],          referer => ['Message::Field::URI',{
91          referrer        => ['Message::Field::URI'],                  -allow_fragment => 0,
92                    -output_angle_bracket   => 0,
93                    -use_comment    => 0,
94                    -use_display_name       => 0,
95            }],
96            referrer        => ['Message::Field::URI',{
97                    -allow_fragment => 0,
98                    -output_angle_bracket   => 0,
99                    -use_comment    => 0,
100                    -use_display_name       => 0,
101            }],
102  };  };
103    
104  $OPTION{uri_mailto_safe}        = {  $OPTION{uri_mailto_safe}        = {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24