/[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.1 by wakaba, Sat Jul 6 10:29:31 2002 UTC revision 1.2 by wakaba, Sat Jul 6 11:36:39 2002 UTC
# Line 74  $OPTION{namespace_phname_goodcase} = 'X- Line 74  $OPTION{namespace_phname_goodcase} = 'X-
74  $Message::Header::NS_phname2uri{$OPTION{namespace_phname}} = $OPTION{namespace_uri};  $Message::Header::NS_phname2uri{$OPTION{namespace_phname}} = $OPTION{namespace_uri};
75  $Message::Header::NS_uri2phpackage{$OPTION{namespace_uri}} = __PACKAGE__;  $Message::Header::NS_uri2phpackage{$OPTION{namespace_uri}} = __PACKAGE__;
76    
77    package Message::Header::HTTP::CCPP;
78    ## CC/PP exchange protocol <http://www.w3.org/TR/NOTE-CCPPexchange>
79    our %OPTION = %Message::Header::HTTP::OPTION;
80    $OPTION{namespace_uri} = 'http://www.w3.org/1999/06/24-CCPPexchange';
81    $OPTION{namespace_phname} = '';
82    $OPTION{namespace_phname_goodcase} = '';
83    $OPTION{value_type} = {
84            ':default'      => ['Message::Field::Unstructured'],
85                    ## *-Profile-Diff-(1*DIGIT): field (field-body = application/XML)
86            profile => ['Message::Field::CSV'],
87            'profile-warning'       => ['Message::Field::CSV',{
88                    -is_quoted_string       => 0,
89            }],
90    };
91    
92    $Message::Header::NS_uri2package{ $OPTION{namespace_uri} } = __PACKAGE__;
93    
94  =head1 LICENSE  =head1 LICENSE
95    
96  Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.  Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24