NAME

Mail::Message::Replace::MailInternet - fake Mail::Internet

INHERITANCE

 Mail::Message::Replace::MailInternet
   is a Mail::Message
   is a Mail::Reporter

SYNOPSIS

 !!! BETA !!!

 # change
 use Mail::Internet;
 # into
 use Mail::Message::Replace::MailInternet;
 # in existing code, and the code should still work, but
 # with the Mail::Message features.

DESCRIPTION

This module is a wrapper around a Mail::Message, which simulates a Mail::Internet object. The name-space of that module is hijacked and many methods are added.

Most methods will work without any change, but you may need to have a look at your smtpsend() and send() calls.

OVERLOADED

METHODS

Constructors

$obj->clone(OPTIONS)

See Mail::Message/"Constructors"

$obj->dup

Duplicate the message. The result will again be a Mail::Internet compatible object.

$obj->empty

Remove all data from this object. Very dangerous!

Mail::Message::Replace::MailInternet->new([ARG], [OPTIONS])

 Option    --Defined in     --Default
 Body                         undef
 FoldLength                   79
 Header                       undef
 MailFrom                     'KEEP'
 Modify                       0
 body        Mail::Message    undef
 body_type   Mail::Message    Mail::Message::Body::Lines
 deleted     Mail::Message    <false>
 field_type  Mail::Message    undef
 head        Mail::Message    undef
 head_type   Mail::Message    Mail::Message::Replace::MailHeader
 labels      Mail::Message    {}
 log         Mail::Reporter   'WARNINGS'
 messageId   Mail::Message    undef
 modified    Mail::Message    <false>
 trace       Mail::Reporter   'WARNINGS'
 trusted     Mail::Message    <false>

. Body => ARRAY-OF-LINES

Array of "\n" terminated lines. If not specified, the lines will be read from ARG.

. FoldLength => INTEGER

Number of characters permitted on any refolded header line. Passed to Mail::Message::Replace::MailHeader::new(FoldLength).

. Header => OBJECT

The Mail::Header object, which is passed here, is a fake one as well... It is translated into a new(head). If not given, the header will be parsed from the ARG.

. MailFrom => 'IGNORE'|'ERROR'|'COERCE'|'KEEP'

What to do with leading "From " lines in e-mail data. Passed to Mail::Message::Replace::MailHeader::new(MailFrom).

. Modify => BOOLEAN

Whether to re-fold all the incoming fields. Passed to Mail::Message::Replace::MailHeader::new(Modify).

. body => OBJECT

. body_type => CLASS

. deleted => BOOLEAN

. field_type => CLASS

. head => OBJECT

. head_type => CLASS

. labels => ARRAY|HASH

. log => LEVEL

. messageId => STRING

. modified => BOOLEAN

. trace => LEVEL

. trusted => BOOLEAN

example: replace traditional Mail::Internet by this wrapper

  # was
  use Mail::Internet;
  my $mi = Mail::Internet->new(@options);

  # becomes
  use Mail::Message::Replace::MailInternet;
  my $mi = Mail::Internet->new(@options);

Attributes

$obj->MailFrom([STRING])

Your email address.

Constructing a message

$obj->add_signature([FILENAME])

Replaced by sign(), but still usable. FILENAME is the file which contains the signature, which defaults to $ENV{HOME}/.signature.

$obj->bounce([RG-OBJECT|OPTIONS])

See Mail::Message::Construct::Bounce/"Constructing a message"

Mail::Message::Replace::MailInternet->build([MESSAGE|PART|BODY], CONTENT)

See Mail::Message::Construct::Build/"Constructing a message"

Mail::Message::Replace::MailInternet->buildFromBody(BODY, [HEAD], HEADERS)

See Mail::Message::Construct::Build/"Constructing a message"

$obj->extract(ARRAY or FILEHANDLE)

Read header and body from an ARRAY or FILEHANDLE

$obj->forward(OPTIONS)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardAttach(OPTIONS)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardEncapsulate(OPTIONS)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardInline(OPTIONS)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardNo(OPTIONS)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardPostlude

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardPrelude

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->forwardSubject(STRING)

See Mail::Message::Construct::Forward/"Constructing a message"

$obj->read(ARRAY|FILEHANDLE, OPTIONS)

Mail::Message::Replace::MailInternet->read(ARRAY|FILEHANDLE, OPTIONS)

Read header and body from the specified ARRAY or FILEHANDLE. When used as object method, Mail::Message::read() is called, to be MailBox compliant. As class method, the Mail::Internet compatible read is called. OPTIONS are only available in the first case.

 Option             --Defined in     --Default
 body_type            Mail::Message::Construct::Read  undef
 strip_status_fields  Mail::Message::Construct::Read  <true>

. body_type => CLASS

. strip_status_fields => BOOLEAN

$obj->read_body(ARRAY|FILEHANDLE)

Read only the message's body from the ARRAY or FILEHANDLE.

$obj->read_header(ARRAY|FILEHANDLE)

Read only the message's header from the ARRAY or FILEHANDLE

$obj->rebuild(OPTIONS)

See Mail::Message::Construct::Rebuild/"Constructing a message"

$obj->reply(OPTIONS)

BE WARNED: the main job for creating a reply is done by Mail::Message::reply(), which may produce a result which is compatible, but may be different from Mail::Internet's version.

 Option         --Defined in     --Default
 Bcc              Mail::Message::Construct::Reply  undef
 Cc               Mail::Message::Construct::Reply  <'cc' in current>
 Exclude                           []
 From             Mail::Message::Construct::Reply  <'to' in current>
 Inline                            >
 Keep                              []
 Message-ID       Mail::Message::Construct::Reply  <uniquely generated>
 ReplyAll                          <false>
 Subject          Mail::Message::Construct::Reply  replySubject()
 To               Mail::Message::Construct::Reply  <sender in current>
 body             Mail::Message::Construct::Reply  undef
 group_reply      Mail::Message::Construct::Reply  <true>
 header_template                   $ENV{HOME}/.mailhdr
 include          Mail::Message::Construct::Reply  'INLINE'
 max_signature    Mail::Message::Construct::Reply  10
 message_type     Mail::Message::Construct::Reply  Mail::Message
 postlude         Mail::Message::Construct::Reply  undef
 prelude          Mail::Message::Construct::Reply  undef
 quote            Mail::Message::Construct::Reply  '> '
 signature        Mail::Message::Construct::Reply  undef
 strip_signature  Mail::Message::Construct::Reply  qr/^--\s/

. Bcc => ADDRESSES

. Cc => ADDRESSES

. Exclude => ARRAY-OF-NAMES

Remove the fields witht the specified names from the produced reply message.

. From => ADDRESSES

. Inline => STRING

Quotation STRING, which is translated into reply(quote). The normal default of quote is "> ", in stead of ">".

. Keep => ARRAY-OF-NAMES

Copy all header fields with the specified NAMES from the source to the reply message.

. Message-ID => STRING

. ReplyAll => BOOLEAN

Reply to the group? Translated into reply(group_reply), which has as default the exact oposite of this option, being true.

. Subject => STRING|CODE

. To => ADDRESSES

. body => BODY

. group_reply => BOOLEAN

. header_template => FILENAME|undef

Read the return header from the template file. When this is explicitly set to undef, or the file does not exist, then a header will be created.

. include => 'NO'|'INLINE'|'ATTACH'

. max_signature => INTEGER

. message_type => CLASS

. postlude => BODY|LINES

. prelude => BODY|LINES

. quote => CODE|STRING

. signature => BODY|MESSAGE

. strip_signature => REGEXP|STRING|CODE

$obj->replyPrelude([STRING|FIELD|ADDRESS|ARRAY-OF-THINGS])

See Mail::Message::Construct::Reply/"Constructing a message"

$obj->replySubject(STRING)

Mail::Message::Replace::MailInternet->replySubject(STRING)

See Mail::Message::Construct::Reply/"Constructing a message"

$obj->sign(OPTIONS)

Add a signature (a few extra lines) to the message.

 Option   --Default
 File       undef
 Signature  ''

. File => FILENAME

Specifies a filename where the signature is in.

. Signature => STRING|ARRAY-OF-LINES

The signature in memory.

The message

$obj->container

See Mail::Message/"The message"

$obj->isDummy

See Mail::Message/"The message"

$obj->isPart

See Mail::Message/"The message"

$obj->messageId

See Mail::Message/"The message"

$obj->nntppost(OPTIONS)

Send an NNTP message (newsgroup message), which is equivalent to Mail::Transport::NNTP or Mail::Message::send() with via 'nntp'.

 Option--Default
 Debug   <false>
 Host    <from Net::Config>
 Port    119

. Debug => BOOLEAN

. Host => HOSTNAME

. Port => INTEGER

$obj->print([FILEHANDLE])

Prints the whole message to the specified FILEHANDLE, which default to STDOUT. This calls Mail::Message::print().

$obj->send(TYPE, OPTIONS)

Send via Mail Transfer Agents (MUA). These will be handled by various Mail::Transport::Send extensions. The test TYPE is not supported.

$obj->size

See Mail::Message/"The message"

$obj->toplevel

See Mail::Message/"The message"

$obj->write([FILEHANDLE])

See Mail::Message/"The message"

The header

$obj->add(LINES)

Add header lines, which simply calls Mail::Message::Head::add() on the header for each specified LINE. The last added LINE is returned.

$obj->bcc

See Mail::Message/"The header"

$obj->cc

See Mail::Message/"The header"

$obj->clean_header

Not to be used, replaced by header().

$obj->combine(TAG, [WITH])

Not implemented, because I see no use for it.

$obj->date

See Mail::Message/"The header"

$obj->delete(NAME, [INDEX]])

Delete the fields with the specified NAME. The deleted fields are returned.

BE WARNED: if no NAME is specified, the delete is interpreted as the deletion of the message in a folder, so Mail::Box::Message::delete() will be called. This may have no negative effect at all...

Calls Mail::Message::Replace::MailHeader::delete()

$obj->destinations

See Mail::Message/"The header"

$obj->fold([LENGTH])

Fold all the fields to a certain maximum LENGTH. Implemented by Mail::Message::Replace::MailHeader::fold()

$obj->fold_length([[TAG], LENGTH])

Set the maximum line LENGTH. TAG is ignored. Implemented by Mail::Message::Replace::MailHeader::fold_length()

$obj->from

See Mail::Message/"The header"

$obj->get(NAME, [INDEX])

Get all the header fields with the specified NAME. In scalar context, only the first fitting NAME is returned. Even when only one NAME is specified, multiple lines may be returned: some fields appear more than once in a header. Calls Mail::Message::Replace::MailHeader::get()

$obj->guessTimestamp

See Mail::Message/"The header"

$obj->head([HEAD])

Returns the head of the message, or creates an empty one if none is defined. The HEAD argument, which sets the header, is not available for Mail::Internet, but is there to be compatible with the head method of Mail::Message.

$obj->header([ARRAY])

Optionally reads a header from the ARRAY, and then returns those fields as array-ref nicely folded. Implemented by Mail::Message::Replace::MailHeader::header()

$obj->nrLines

See Mail::Message/"The header"

$obj->print_header(FILEHANDLE)

Calls Mail::Message::Head::Complete::print().

$obj->replace(TAG, LINE, [INDEX])

Adds LINES to the header, but removes fields with the same name if they already exist. Calls Mail::Message::Replace::MailHeader::replace()

$obj->sender

See Mail::Message/"The header"

$obj->study(FIELDNAME)

See Mail::Message/"The header"

$obj->subject

See Mail::Message/"The header"

$obj->tidy_headers

No effect anymore (always performed).

$obj->timestamp

See Mail::Message/"The header"

$obj->to

See Mail::Message/"The header"

The body

$obj->body([ARRAY-OF-LINES|LIST-OF-LINES])

Returns an array of lines, representing the body. With arguments, a new body will be created. In Mail::Internet, the body is not an object but a simple array.

BE WARNED: this overrules the Mail::Message::body() method, which may cause some confusion. Use bodyObject() to get access to that body's data.

$obj->bodyObject([BODY])

Calls Mail::Message::body(), because that body method is overruled by the one which has a Mail::Internet compatible interface.

$obj->contentType

See Mail::Message/"The body"

$obj->decoded(OPTIONS)

See Mail::Message/"The body"

$obj->encode(OPTIONS)

See Mail::Message/"The body"

$obj->isMultipart

See Mail::Message/"The body"

$obj->isNested

See Mail::Message/"The body"

$obj->parts(['ALL'|'ACTIVE'|'DELETED'|'RECURSE'|FILTER])

See Mail::Message/"The body"

$obj->print_body([FILEHANDLE])

Prints the body to the specified FILEHANDLE, which defaults to STDOUT. This calls Mail::Message::Body::print().

$obj->remove_sig([NRLINES])

Remove the signature of a message with a maximum of NRLINES lines, which defaults to 10. The work is done on the decoded body content, by Mail::Message::Body::stripSignature().

$obj->smtpsend(OPTIONS)

This method is calling Mail::Message::send() via smtp, which is implemented in Mail::Transport::SMTP. The implementation is slightly different, so this method is not 100% compliant.

 Option  --Default
 Debug     <false>
 Hello     <helo_domain from Net::Config>
 Host      $ENV{SMTPHOSTS} or from Net::Config
 MailFrom  $ENV{MAILADDRESS} or $ENV{USER}
 Port      25

. Debug => BOOLEAN

. Hello => STRING

. Host => HOSTNAME

Only the first detected HOSTNAME is taken, so differs from the original implementation.

. MailFrom => STRING

Your e-mail address. This simulated Mail::Internet object does not try to create an e-mail address from the sendmail configuration file, because that is generally a bad idea in environments with virtual hosts, as we have now-adays.

. Port => INTEGER

$obj->tidy_body

Removes blank lines from begin and end of the body.

Flags

$obj->deleted([BOOLEAN])

See Mail::Message/"Flags"

$obj->isDeleted

See Mail::Message/"Flags"

$obj->isModified

See Mail::Message/"Flags"

$obj->label(LABEL|PAIRS)

See Mail::Message/"Flags"

$obj->labels

See Mail::Message/"Flags"

$obj->labelsToStatus

See Mail::Message/"Flags"

$obj->modified([BOOLEAN])

See Mail::Message/"Flags"

$obj->statusToLabels

See Mail::Message/"Flags"

The whole message as text

$obj->as_mbox_string

Returns the whole message as one string, which can be included in an MBOX folder (while not using Mail::Box::Mbox). Lines in the body which start with From are escaped with an >.

$obj->file

See Mail::Message::Construct::Text/"The whole message as text"

$obj->lines

See Mail::Message::Construct::Text/"The whole message as text"

$obj->printStructure([FILEHANDLE|undef],[INDENT])

See Mail::Message::Construct::Text/"The whole message as text"

$obj->string

See Mail::Message::Construct::Text/"The whole message as text"

The nasty bits

$obj->isa(CLASS)

Mail::Message::Replace::MailInternet->isa(CLASS)

Of course, the isa() class inheritance check should not see our nasty trick.

Internals

$obj->clonedFrom

See Mail::Message/"Internals"

Mail::Message::Replace::MailInternet->coerce(MESSAGE)

Coerce (adapt type) of the specified MESSAGE (anything Mail::Message::coerce() accepts) into an Mail::Internet simulating object.

$obj->isDelayed

See Mail::Message/"Internals"

$obj->readBody(PARSER, HEAD [, BODYTYPE])

See Mail::Message/"Internals"

$obj->readFromParser(PARSER, [BODYTYPE])

See Mail::Message/"Internals"

$obj->readHead(PARSER [,CLASS])

See Mail::Message/"Internals"

$obj->recursiveRebuildPart(PART, OPTIONS)

See Mail::Message::Construct::Rebuild/"Internals"

$obj->storeBody(BODY)

See Mail::Message/"Internals"

$obj->takeMessageId([STRING])

See Mail::Message/"Internals"

Error handling

$obj->AUTOLOAD

See Mail::Message::Construct/"METHODS"

$obj->addReport(OBJECT)

See Mail::Reporter/"Error handling"

$obj->defaultTrace([LEVEL]|[LOGLEVEL, TRACELEVEL]|[LEVEL, CALLBACK])

Mail::Message::Replace::MailInternet->defaultTrace([LEVEL]|[LOGLEVEL, TRACELEVEL]|[LEVEL, CALLBACK])

See Mail::Reporter/"Error handling"

$obj->errors

See Mail::Reporter/"Error handling"

$obj->log([LEVEL [,STRINGS]])

Mail::Message::Replace::MailInternet->log([LEVEL [,STRINGS]])

See Mail::Reporter/"Error handling"

$obj->logPriority(LEVEL)

Mail::Message::Replace::MailInternet->logPriority(LEVEL)

See Mail::Reporter/"Error handling"

$obj->logSettings

See Mail::Reporter/"Error handling"

$obj->notImplemented

See Mail::Reporter/"Error handling"

$obj->report([LEVEL])

See Mail::Reporter/"Error handling"

$obj->reportAll([LEVEL])

See Mail::Reporter/"Error handling"

$obj->shortSize([VALUE])

Mail::Message::Replace::MailInternet->shortSize([VALUE])

See Mail::Message/"Error handling"

$obj->shortString

See Mail::Message/"Error handling"

$obj->trace([LEVEL])

See Mail::Reporter/"Error handling"

$obj->warnings

See Mail::Reporter/"Error handling"

Cleanup

$obj->DESTROY

See Mail::Message/"Cleanup"

$obj->destruct

See Mail::Message/"Cleanup"

$obj->inGlobalDestruction

See Mail::Reporter/"Cleanup"

DETAILS

DIAGNOSTICS

Error: Cannot include forward source as $include.

Unknown alternative for the forward(include). Valid choices are NO, INLINE, ATTACH, and ENCAPSULATE.

Error: Mail::Internet does not support this kind of data

The ARGS data can only be a file handle or an ARRAY. Other data types are not supported (see read() if you want to have more).

Error: Method bounce requires To, Cc, or Bcc

The message bounce() method forwards a received message off to someone else without modification; you must specified it's new destination. If you have the urge not to specify any destination, you probably are looking for reply(). When you wish to modify the content, use forward().

Error: Method forwardAttach requires a preamble

Error: Method forwardEncapsulate requires a preamble

Error: No address to create forwarded to.

If a forward message is created, a destination address must be specified.

Error: No rebuild rule $name defined.

Error: Only build() Mail::Message's; they are not in a folder yet

You may wish to construct a message to be stored in a some kind of folder, but you need to do that in two steps. First, create a normal Mail::Message, and then add it to the folder. During this Mail::Box::addMessage() process, the message will get coerce()-d into the right message type, adding storage information and the like.

Error: Package $package does not implement $method.

Fatal error: the specific package (or one of its superclasses) does not implement this method where it should. This message means that some other related classes do implement this method however the class at hand does not. Probably you should investigate this and probably inform the author of the package.

SEE ALSO

This module is part of Mail-Box distribution version 2.082, built on April 28, 2008. Website: http://perl.overmeer.net/mailbox/

LICENSE

Copyrights 2001-2008 by Mark Overmeer. For other contributors see ChangeLog.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html