Parent Directory
| 
Revision Log
2002-06-09 wakaba <w@suika.fam.cx> * Entity.pm: - (stringify): Minimumize MIME charset name when MIME'izing. - (mime-entity): New 'format' type. - (default_media_subtype): New option. Now 'default_media_type' is used for only (narrower meaning of) media type. - (content_type): See 'default_media_type' and 'default_media_subtype'. (Was hardcoded as 'text/plain'.) - (option): '-resucrive': new option. * Header.pm (parse, parse_array): Don't discard invalid line (non-'field' line). (Treat as "X-Unknown" field.)
| 1 | wakaba | 1.1 | |
| 2 | =head1 NAME | ||
| 3 | |||
| 4 | wakaba | 1.20 | Message::Header --- A Perl Module for Internet Message Headers |
| 5 | wakaba | 1.1 | |
| 6 | =cut | ||
| 7 | |||
| 8 | package Message::Header; | ||
| 9 | use strict; | ||
| 10 | wakaba | 1.20 | use vars qw(%DEFAULT @ISA %REG $VERSION); |
| 11 | wakaba | 1.23 | $VERSION=do{my @r=(q$Revision: 1.22 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 12 | wakaba | 1.20 | require Message::Field::Structured; ## This may seem silly:-) |
| 13 | push @ISA, qw(Message::Field::Structured); | ||
| 14 | |||
| 15 | %REG = %Message::Util::REG; | ||
| 16 | $REG{M_field} = qr/^([^\x3A]+):$REG{FWS}([\x00-\xFF]*)$/; | ||
| 17 | $REG{M_fromline} = qr/^\x3E?From$REG{WSP}+([\x00-\xFF]*)$/; | ||
| 18 | $REG{ftext} = qr/[\x21-\x39\x3B-\x7E]+/; ## [2]822 | ||
| 19 | $REG{N |