<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<!-- Generated by pod2coolhtml 1.101
-- Using Pod::CoolHTML 1.104 , (C) 1997 by Eryq (eryq@enteract.com).
--
-- DO NOT EDIT THIS HTML FILE! All your changes will be lost.
-- Edit the POD or Perl file that was used to create it.
-->
<HTML>
<HEAD>
<TITLE>MIME::Head</TITLE>
</HEAD>
<BODY LINK=#C00000 ALINK=#FF2020 VLINK=#900000>
<A NAME="__top"> </A><CENTER><TABLE BORDER=2 CELLPADDING=2 WIDTH=100%>
<TR>
<TD WIDTH=25% ALIGN=CENTER><B><FONT SIZE=+1>
<A HREF="Tools.pm.html">MIME::Tools</A></FONT></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Body.pm.html">MIME::Body</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Decoder.pm.html">MIME::Decoder</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Entity.pm.html">MIME::Entity</A></SMALL></B></TD>
<TR>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
MIME::Head</SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="IO.pm.html">MIME::IO</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Latin1.pm.html">MIME::Latin1</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Parser.pm.html">MIME::Parser</A></SMALL></B></TD>
<TR>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="ParserBase.pm.html">MIME::ParserBase</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="ToolUtils.pm.html">MIME::ToolUtils</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Tools.pm.html">MIME::Tools</A></SMALL></B></TD>
<TD WIDTH=25% ALIGN=CENTER><B><SMALL>
<A HREF="Words.pm.html">MIME::Words</A></SMALL></B></TD>
</TABLE></CENTER>
<P><TABLE WIDTH="100%">
<TR VALIGN="TOP"><TD ALIGN="LEFT"><CENTER>
<H1><FONT SIZE=7 COLOR=#600020><B>MIME::<BR>Head</B></FONT></H1><IMG SRC="mime-sm.gif" ALT="MIME!"></CENTER>
<TD>
<UL>
<LI><A HREF="#name">NAME</A>
</LI><LI><A HREF="#synopsis">SYNOPSIS</A>
</LI><LI><A HREF="#description">DESCRIPTION</A>
</LI><LI><A HREF="#public_interface">PUBLIC INTERFACE</A>
</LI><UL>
<LI><A HREF="#creation_input_and_output">Creation, input, and output</A>
</LI><LI><A HREF="#gettingsetting_fields">Getting/setting fields</A>
</LI><LI><A HREF="#mimespecific_methods">MIME-specific methods</A>
</LI></UL>
<LI><A HREF="#notes">NOTES</A>
</LI><LI><A HREF="#author">AUTHOR</A>
</LI><LI><A HREF="#version">VERSION</A>
</LI></UL>
</TABLE>
<P><HR>
<A NAME="name">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
NAME</FONT></H1>
</A>
<P>
MIME::Head - MIME message header (a subclass of Mail::Header)
<P><HR>
<A NAME="synopsis">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
SYNOPSIS</FONT></H1>
</A>
<P>
You can <B>create</B> a MIME::Head object in a number of ways:
<P>
<PRE> # Create a new, empty header, and populate it manually:
$head = MIME::Head->new;
$head->replace('content-type', 'text/plain; charset=US-ASCII');
$head->replace('content-length', $len);</PRE>
<P>
<PRE> # Parse a new header from a filehandle:
$head = MIME::Head->read(\*STDIN);</PRE>
<P>
<PRE> # Parse a new header from a file, or a readable pipe:
$testhead = MIME::Head->from_file("/tmp/test.hdr");
$a_b_head = MIME::Head->from_file("cat a.hdr b.hdr |");</PRE>
<P>
To <B>output</B> a MIME::Head object, use either of these:
<P>
<PRE> $head->print(\*STDOUT); # output to filehandle</PRE>
<P>
<PRE> print STDOUT $head->as_string; # output as string
print STDOUT $head->stringify; # ditto</PRE>
<P>
To get rid of all internal newlines in all fields (called <B>unfolding</B>):
<P>
<PRE> $head->unfold;</PRE>
<P>
To RFC-1522-decode any Q- or B-encoded-text in the header fields:
<P>
<PRE> $head->decode;</PRE>
<P>
To test whether a given field <B>exists,</B> count the occurences:
<P>
<PRE> warn "missing subject!" if (! $head->count('subject'));</PRE>
<P>
To <B>get the contents of a field,</B> either a <I>specific</I> occurence (defaults
to the first occurence in a scalar context) or <I>all</I> occurences
(in an array context):
<P>
<PRE> # Is this a reply?
$is_reply = 1 if ($head->get('Subject') =~ /^Re: /);</PRE>
<P>
<PRE> # Get receipt information:
print "Last received from: ", $head->get('Received', 0), "\n";
@all_received = $head->get('Received');</PRE>
<P>
To <B>get the first occurence</B> of a field as a string, regardless of context:
<P>
<PRE> # Print the subject, or the empty string if none:
print "Subject: ", $head->get('Subject',0), "\n";</PRE>
<P>
To <B>get all occurences</B> of a field as an array, regardless of context:
<P>
<PRE> # Too many hops? Count 'em and see!
if ($head->get_all('Received') > 5) { ...</PRE>
<P>
To <B>set a field</B> to a given string:
<P>
<PRE> # Declare this to be an HTML header:
$head->replace('Content-type', 'text/html');</PRE>
<P>
To get certain commonly-used <B>MIME information</B>:
<P>
<PRE> # Get/set a given MIME attribute:
unless ($charset = $head->mime_attr('content-type.charset')) {
$head->mime_attr("content-type.charset" => "US-ASCII");
}</PRE>
<P>
<PRE> # The content type (e.g., "text/html"):
$mime_type = $head->mime_type;</PRE>
<P>
<PRE> # The content transfer encoding (e.g., "quoted-printable"):
$mime_encoding = $head->mime_encoding;</PRE>
<P>
<PRE> # The recommended name when extracted (e.g., "choosy-moms-choose.gif"):
$file_name = $head->recommended_filename;</PRE>
<P>
<PRE> # The boundary text, for multipart messages:
$boundary = $head->multipart_boundary;</PRE>
<P><HR>
<A NAME="description">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
DESCRIPTION</FONT></H1>
</A>
<P>
A class for parsing in and manipulating RFC-822 message headers, with some
methods geared towards standard (and not so standard) MIME fields as
specified in RFC-1521, <I>Multipurpose Internet Mail Extensions</I>.
<P><HR>
<A NAME="public_interface">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
PUBLIC INTERFACE</FONT></H1>
</A>
<P><HR>
<A NAME="creation_input_and_output">
<H2><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h2bullet.gif" ALT="" BORDER="0"></A>
Creation, input, and output</FONT></H2>
</A>
<DL>
<P><DT><B><A NAME="new">new [ARG],[OPTIONS]</A></B><DD>
<I>Class method, inherited.</I>
Creates a new header object. Arguments are the same as those in the
superclass.
<P><DT><B><A NAME="from_file">from_file EXPR,OPTIONS</A></B><DD>
<I>Class or instance method</I>.
For convenience, you can use this to parse a header object in from EXPR,
which may actually be any expression that can be sent to open() so as to
return a readable filehandle. The "file" will be opened, read, and then
closed:
<P>
<PRE> # Create a new header by parsing in a file:
my $head = MIME::Head->from_file("/tmp/test.hdr");</PRE>
<P>
Since this method can function as either a class constructor <I>or</I>
an instance initializer, the above is exactly equivalent to:
<P>
<PRE> # Create a new header by parsing in a file:
my $head = MIME::Head->new->from_file("/tmp/test.hdr");</PRE>
<P>
On success, the object will be returned; on failure, the undefined value.
<P>
The OPTIONS are the same as in new(), and are passed into new()
if this is invoked as a class method.
<P>
<B>NOTE:</B> This is really just a convenience front-end onto <CODE>read()</CODE>,
provided mostly for backwards-compatibility with MIME-parser 1.0.
<P><DT><B><A NAME="read">read FILEHANDLE</A></B><DD>
<I>Instance (or class) method.</I>
This initiallizes a header object by reading it in from a FILEHANDLE,
until the terminating blank line is encountered.
A syntax error or end-of-stream will also halt processing.
<P>
Supply this routine with a reference to a filehandle glob; e.g., <CODE>\*STDIN</CODE>:
<P>
<PRE> # Create a new header by parsing in STDIN:
$head->read(\*STDIN);</PRE>
<P>
On success, the self object will be returned; on failure, a false value.
<P>
<B>Note:</B> in the MIME world, it is perfectly legal for a header to be
empty, consisting of nothing but the terminating blank line. Thus,
we can't just use the formula that "no tags equals error".
<P>
<B>Warning:</B> as of the time of this writing, Mail::Header::read did not flag
either syntax errors or unexpected end-of-file conditions (an EOF
before the terminating blank line). MIME::ParserBase takes this
into account.
</DL>
<P><HR>
<A NAME="gettingsetting_fields">
<H2><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h2bullet.gif" ALT="" BORDER="0"></A>
Getting/setting fields</FONT></H2>
</A>
<P>
The following are methods related to retrieving and modifying the header
fields. Some are inherited from Mail::Header, but I've kept the
documentation around for convenience.
<DL>
<P><DT><B><A NAME="add">add TAG,TEXT,[INDEX]</A></B><DD>
<I>Instance method, inherited.</I>
Add a new occurence of the field named TAG, given by TEXT:
<P>
<PRE> # Add the trace information:
$head->add('Received', 'from eryq.pr.mcs.net by gonzo.net with smtp');</PRE>
<P>
Normally, the new occurence will be <I>appended</I> to the existing
occurences. However, if the optional INDEX argument is 0, then the
new occurence will be <I>prepended</I>. If you want to be <I>explicit</I>
about appending, specify an INDEX of -1.
<P>
<B>WARNING</B>: this method always adds new occurences; it doesn't overwrite
any existing occurences... so if you just want to <I>change</I> the value
of a field (creating it if necessary), then you probably <B>don't</B> want to use
this method: consider using <CODE>replace()</CODE> instead.
<P><DT><B><A NAME="count">count TAG</A></B><DD>
<I>Instance method, inherited.</I>
Returns the number of occurences of a field; in a boolean context, this
tells you whether a given field exists:
<P>
<PRE> # Was a "Subject:" field given?
$subject_was_given = $head->count('subject');</PRE>
<P>
The TAG is treated in a case-insensitive manner.
This method returns some false value if the field doesn't exist,
and some true value if it does.
<P><DT><B><A NAME="decode">decode</A></B><DD>
<I>Instance method.</I>
Go through all the header fields, looking for RFC-1522-style "Q"
(quoted-printable, sort of) or "B" (base64) encoding, and decode them
in-place. Fellow Americans, you probably don't know what the hell I'm
talking about. Europeans, Russians, et al, you probably do. <CODE>:-)</CODE>.
<P>
For example, here's a valid header you might get:
<P>
<PRE> From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>
To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>
CC: =?ISO-8859-1?Q?Andr=E9_?= Pirard <PIRARD@vm1.ulg.ac.be>
Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
=?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=
=?US-ASCII?Q?.._cool!?=</PRE>
<P>
That basically decodes to (sorry, I can only approximate the
Latin characters with 7 bit sequences /o and 'e):
<P>
<PRE> From: Keith Moore <moore@cs.utk.edu>
To: Keld J/orn Simonsen <keld@dkuug.dk>
CC: Andr'e Pirard <PIRARD@vm1.ulg.ac.be>
Subject: If you can read this you understand the example... cool!</PRE>
<P>
<B>NOTE:</B> currently, the decodings are done without regard to the
character set: thus, the Q-encoding <CODE>=F8</CODE> is simply translated to the
octet (hexadecimal <CODE>F8</CODE>), period. For piece-by-piece decoding
of a given field, you want the array context of
<A HREF="#decode_mimewords">MIME::Word::decode_mimewords()</A>.
<P>
<B>WARNING:</B> the CRLF+SPACE separator that splits up long encoded words
into shorter sequences (see the Subject: example above) gets lost
when the field is unfolded, and so decoding after unfolding causes
a spurious space to be left in the field.
<I>THEREFORE: if you're going to decode, do so BEFORE unfolding!</I>
<P>
This method returns the self object.
<P>
<I>Thanks to Kent Boortz for providing the idea, and the baseline
RFC-1522-decoding code.</I>
<P><DT><B><A NAME="delete">delete TAG,[INDEX]</A></B><DD>
<I>Instance method, inherited.</I>
Delete all occurences of the field named TAG.
<P>
<PRE> # Remove some MIME information:
$head->delete('MIME-Version');
$head->delete('Content-type');</PRE>
<P><DT><B><A NAME="get">get TAG,[INDEX]</A></B><DD>
<I>Instance method, inherited.</I>
Get the contents of field TAG.
<P>
If a <B>numeric INDEX</B> is given, returns the occurence at that index,
or undef if not present:
<P>
<PRE> # Print the first and last 'Received:' entries (explicitly):
print "First, or most recent: ", $head->get('received', 0), "\n";
print "Last, or least recent: ", $head->get('received',-1), "\n"; </PRE>
<P>
If <B>no INDEX</B> is given, but invoked in a <B>scalar</B> context, then
INDEX simply defaults to 0:
<P>
<PRE> # Get the first 'Received:' entry (implicitly):
my $most_recent = $head->get('received');</PRE>
<P>
If <B>no INDEX</B> is given, and invoked in an <B>array</B> context, then
<I>all</I> occurences of the field are returned:
<P>
<PRE> # Get all 'Received:' entries:
my @all_received = $head->get('received');</PRE>
<P><DT><B><A NAME="get_all">get_all FIELD</A></B><DD>
<I>Instance method.</I>
Returns the list of <I>all</I> occurences of the field, or the
empty list if the field is not present:
<P>
<PRE> # How did it get here?
@history = $head->get_all('Received');</PRE>
<P>
<B>NOTE:</B> I had originally experimented with having <CODE>get()</CODE> return all
occurences when invoked in an array context... but that causes a lot of
accidents when you get careless and do stuff like this:
<P>
<PRE> print "\u$field: ", $head->get($field), "\n";</PRE>
<P>
It also made the intuitive behaviour unclear if the INDEX argument
was given in an array context. So I opted for an explicit approach
to asking for all occurences.
<P><DT><B><A NAME="print">print [OUTSTREAM]</A></B><DD>
<I>Instance method, override.</I>
Print the header out to the given OUTSTREAM, or the currently-selected
filehandle if none. The OUTSTREAM may be a filehandle, or any object
that responds to a print() message.
<P>
The override actually lets you print to any object that responds to
a print() method. This is vital for outputting MIME entities to scalars.
<P>
Also, it defaults to the <I>currently-selected</I> filehandle if none is given
(not STDOUT!), so <I>please</I> supply a filehandle to prevent confusion.
<P><DT><B><A NAME="stringify">stringify</A></B><DD>
<I>Instance method.</I>
Return the header as a string. You can also invoke it as <CODE>as_string</CODE>.
<P><DT><B><A NAME="unfold">unfold [FIELD]</A></B><DD>
<I>Instance method, inherited.</I>
Unfold (remove newlines in) the text of all occurences of the given FIELD.
If the FIELD is omitted, <I>all</I> fields are unfolded.
Returns the "self" object.
</DL>
<P><HR>
<A NAME="mimespecific_methods">
<H2><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h2bullet.gif" ALT="" BORDER="0"></A>
MIME-specific methods</FONT></H2>
</A>
<P>
All of the following methods extract information from the following fields:
<P>
<PRE> Content-type
Content-transfer-encoding
Content-disposition</PRE>
<P>
Be aware that they do not just return the raw contents of those fields,
and in some cases they will fill in sensible (I hope) default values.
Use <CODE>get()</CODE> or <CODE>mime_attr()</CODE> if you need to grab and process the
raw field text.
<P>
<B>NOTE:</B> some of these methods are provided both as a convenience and
for backwards-compatibility only, while others (like
recommended_filename()) <I>really do have to be in MIME::Head to work
properly,</I> since they look for their value in more than one field.
However, if you know that a value is restricted to a single
field, you should really use the Mail::Field interface to get it.
<DL>
<P><DT><B><A NAME="mime_attr">mime_attr ATTR,[VALUE]</A></B><DD>
A quick-and-easy interface to set/get the attributes in structured
MIME fields:
<P>
<PRE> $head->mime_attr("content-type" => "text/html");
$head->mime_attr("content-type.charset" => "US-ASCII");
$head->mime_attr("content-type.name" => "homepage.html");</PRE>
<P>
This would cause the final output to look something like this:
<P>
<PRE> Content-type: text/html; charset=US-ASCII; name="homepage.html"</PRE>
<P>
Note that the special empty sub-field tag indicates the anonymous
first sub-field.
<P>
<B>Giving VALUE as undefined</B> will cause the contents of the named subfield
to be deleted:
<P>
<PRE> $head->mime_attr("content-type.charset" => undef);</PRE>
<P>
<B>Supplying no VALUE argument</B> just returns the attribute's value,
or undefined if it isn't there:
<P>
<PRE> $type = $head->mime_attr("content-type"); # returns "text/html"
$name = $head->mime_attr("content-type.name"); # returns "homepage.html"</PRE>
<P>
In all cases, the new/current value is returned.
<P><DT><B><A NAME="mime_encoding">mime_encoding</A></B><DD>
<I>Instance method.</I>
Try <I>real hard</I> to determine the content transfer encoding
(e.g., <CODE>"base64"</CODE>, <CODE>"binary"</CODE>), which is returned in all-lowercase.
<P>
If no encoding could be found, the default of <CODE>"7bit"</CODE> is returned.
I quote from RFC-1521 section 5:
<P>
<PRE> This is the default value -- that is, "Content-Transfer-Encoding: 7BIT"
is assumed if the Content-Transfer-Encoding header field is not present.</PRE>
<P><DT><B><A NAME="mime_type">mime_type [DEFAULT]</A></B><DD>
<I>Instance method.</I>
Try <CODE>real hard</CODE> to determine the content type (e.g., <CODE>"text/plain"</CODE>,
<CODE>"image/gif"</CODE>, <CODE>"x-weird-type"</CODE>, which is returned in all-lowercase.
"Real hard" means that if no content type could be found, the default
(usually <CODE>"text/plain"</CODE>) is returned. From RFC-1521 section 7.1:
<P>
<PRE> The default Content-Type for Internet mail is
"text/plain; charset=us-ascii".</PRE>
<P>
Unless this is a part of a "message/digest", in which case "message/rfc822"
is the default. Note that you can also <I>set</I> the default, but you
shouldn't: normally only the MIME parser uses this feature.
<P><DT><B><A NAME="multipart_boundary">multipart_boundary</A></B><DD>
<I>Instance method.</I>
If this is a header for a multipart message, return the
"encapsulation boundary" used to separate the parts. The boundary
is returned exactly as given in the <CODE>Content-type:</CODE> field; that
is, the leading double-hyphen (<CODE>--</CODE>) is <I>not</I> prepended.
<P>
(Well, <I>almost</I> exactly... from RFC-1521:
<P>
<PRE> (If a boundary appears to end with white space, the white space
must be presumed to have been added by a gateway, and must be deleted.) </PRE>
<P>
so we oblige and remove any trailing spaces.)
<P>
Returns undef (<B>not</B> the empty string) if either the message is not
multipart, if there is no specified boundary, or if the boundary is
illegal (e.g., if it is empty after all trailing whitespace has been
removed).
<P><DT><B><A NAME="recommended_filename">recommended_filename</A></B><DD>
<I>Instance method.</I>
Return the recommended external filename. This is used when
extracting the data from the MIME stream.
<P>
Returns undef if no filename could be suggested.
</DL>
<P><HR>
<A NAME="notes">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
NOTES</FONT></H1>
</A>
<DL>
<P><DT><B><A NAME="why">Why have separate objects for the entity, head, and body?</A></B><DD>
See the documentation for the MIME-tools distribution
for the rationale behind this decision.
<P><DT><B><A NAME="why">Why assume that MIME headers are email headers?</A></B><DD>
I quote from Achim Bohnet, who gave feedback on v.1.9 (I think
he's using the word <I>header</I> where I would use <I>field</I>; e.g.,
to refer to "Subject:", "Content-type:", etc.):
<P>
<PRE> There is also IMHO no requirement [for] MIME::Heads to look
like [email] headers; so to speak, the MIME::Head [simply stores]
the attributes of a complex object, e.g.:</PRE>
<P>
<PRE> new MIME::Head type => "text/plain",
charset => ...,
disposition => ..., ... ;</PRE>
<P>
I agree in principle, but (alas and dammit) RFC-1521 says otherwise.
RFC-1521 [MIME] headers are a syntactic subset of RFC-822 [email] headers.
Perhaps a better name for these modules would be RFC1521:: instead of
MIME::, but we're a little beyond that stage now.
<P>
In my mind's eye, I see an abstract class, call it MIME::Attrs, which does
what Achim suggests... so you could say:
<P>
<PRE> my $attrs = new MIME::Attrs type => "text/plain",
charset => ...,
disposition => ..., ... ;</PRE>
<P>
We could even make it a superclass of MIME::Head: that way, MIME::Head
would have to implement its interface, <I>and</I> allow itself to be
initiallized from a MIME::Attrs object.
<P>
However, when you read RFC-1521, you begin to see how much MIME information
is organized by its presence in particular fields. I imagine that we'd
begin to mirror the structure of RFC-1521 fields and subfields to such
a degree that this might not give us a tremendous gain over just
having MIME::Head.
<P><DT><B><A NAME="why">Why all this "occurence" and "index" jazz? Isn't every field unique?</A></B><DD>
Aaaaaaaaaahh....no.
<P>
(This question is generic to all Mail::Header subclasses, but I'll
field it here...)
<P>
Looking at a typical mail message header, it is sooooooo tempting to just
store the fields as a hash of strings, one string per hash entry.
Unfortunately, there's the little matter of the <CODE>Received:</CODE> field,
which (unlike <CODE>From:</CODE>, <CODE>To:</CODE>, etc.) will often have multiple
occurences; e.g.:
<P>
<PRE> Received: from gsfc.nasa.gov by eryq.pr.mcs.net with smtp
(Linux Smail3.1.28.1 #5) id m0tStZ7-0007X4C; Thu, 21 Dec 95 16:34 CST
Received: from rhine.gsfc.nasa.gov by gsfc.nasa.gov (5.65/Ultrix3.0-C)
id AA13596; Thu, 21 Dec 95 17:20:38 -0500
Received: (from eryq@localhost) by rhine.gsfc.nasa.gov (8.6.12/8.6.12)
id RAA28069; Thu, 21 Dec 1995 17:27:54 -0500
Date: Thu, 21 Dec 1995 17:27:54 -0500
From: Eryq <eryq@rhine.gsfc.nasa.gov>
Message-Id: <199512212227.RAA28069@rhine.gsfc.nasa.gov>
To: eryq@eryq.pr.mcs.net
Subject: Stuff and things</PRE>
<P>
The <CODE>Received:</CODE> field is used for tracing message routes, and although
it's not generally used for anything other than human debugging, I
didn't want to inconvenience anyone who actually wanted to get at that
information.
<P>
I <I>also</I> didn't want to make this a special case; after all, who
knows what <B>other</B> fields could have multiple occurences in the
future? So, clearly, multiple entries had to somehow be stored
multiple times... and the different occurences had to be retrievable.
</DL>
<P><HR>
<A NAME="author">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
AUTHOR</FONT></H1>
</A>
<P>
Copyright (c) 1996, 1997 by Eryq / eryq@zeegee.com
<P>
All rights reserved. This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
<P>
The more-comprehensive filename extraction is courtesy of
Lee E. Brotzman, Advanced Data Solutions.
<P><HR>
<A NAME="version">
<H1><FONT COLOR=#600020>
<A HREF="#__top"><IMG SRC="h1bullet.gif" ALT="" BORDER="0"></A>
VERSION</FONT></H1>
</A>
<P>
$Revision: 4.103 $ $Date: 1997/12/14 03:03:49 $
<P><HR>
<SMALL>
Last updated: Sat Jan 17 23:01:50 1998 <BR>
Generated by pod2coolhtml 1.101. Want a copy? Just email
<A HREF="mailto:eryq@enteract.com">eryq@enteract.com</A>.
(Yes, it's free.)
</SMALL></BODY>
</HTML>