Parent Directory
| 
Revision Log
2002-07-13 Wakaba <w@suika.fam.cx> * Message.pm (Message::Header::Message::DispositionNotification): Use Message::Field::MDNDisposition and Message::Field::ReportingUA.
| 1 | wakaba | 1.1 | |
| 2 | =head1 NAME | ||
| 3 | |||
| 4 | Message::Header::Message --- Internet Messages -- Definition | ||
| 5 | for RFC 822 like header fields of message/* media types | ||
| 6 | |||
| 7 | =cut | ||
| 8 | |||
| 9 | require Message::Header::Default; | ||
| 10 | package Message::Header::Message; | ||
| 11 | use strict; | ||
| 12 | use vars qw($VERSION); | ||
| 13 | wakaba | 1.2 | $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 14 | wakaba | 1.1 | |
| 15 | package Message::Header::Message::DeliveryStatus; | ||
| 16 | our %OPTION = %Message::Header::Default::OPTION; | ||
| 17 | $OPTION{namespace_uri} = 'urn:x-suika-fam-cx:msgpm:header:message:delivery-status'; | ||
| 18 | |||
| 19 | $OPTION{use_ph_namespace} = 0; | ||
| 20 | $OPTION{namespace_phname} = ''; | ||
| 21 | $OPTION{namespace_phname_goodcase} = ''; | ||
| 22 | |||
| 23 | $OPTION{case_sensible} = 0; | ||
| 24 | $OPTION{to_be_goodcase} = \&Message::Header::Default::_goodcase; | ||
| 25 | |||
| 26 | $OPTION{goodcase} = { | ||
| 27 | 'dsn-gateway' => 'DSN-Gateway', | ||
| 28 | 'final-log-id' => 'Final-Log-ID', | ||
| 29 | #'original-envelope-id' => 'Original-Envelope-Id', | ||
| 30 | 'received-from-mta' => 'Received-From-MTA', | ||
| 31 | 'remote-mta' => 'Remote-MTA', | ||
| 32 | 'reporting-mta' => 'Reporting-MTA', | ||
| 33 | }; | ||
| 34 | |||
| 35 | $OPTION{value_type} = { | ||
| 36 | wakaba | 1.2 | ':default' => ['Message::Field::Unstructured',{ |
| 37 | -use_encoded_word => 0, | ||
| 38 | }], | ||
| 39 | wakaba | 1.1 | |
| 40 | action => ['Message::Field::ValueParams'], | ||
| 41 | 'arival-date' => ['Message::Field::Date'], | ||
| 42 | 'diagnostic-code' => ['Message::Field::TypedText'], | ||
| 43 | 'dsn-gateway' => ['Message::Field::TypedText'], | ||
| 44 | 'final-recipient' => ['Message::Field::TypedText',{ | ||
| 45 | -separator => ';', | ||
| 46 | }], | ||
| 47 | 'last-attempt-date' => ['Message::Field::Date'], | ||
| 48 | 'original-recipient' => ['Message::Field::TypedText',{ | ||
| 49 | -separator => ';', | ||
| 50 | }], | ||
| 51 | 'received-from-mta' => ['Message::Field::TypedText'], | ||
| 52 | 'remote-mta' => ['Message::Field::TypedText'], | ||
| 53 | 'reporting-mta' => ['Message::Field::TypedText'], |