DADA::App::FormatMessages

NAME

DADA::App::FormatMessages

SYNOPSIS

 my $fm = DADA::App::FormatMessages->new(-List => $list); 
 
 # The subject of the message is...  
   $fm->Subject('This is the subject!'); 
   
 # Use information you find in the headers 
  $fm->use_header_info(1);

 # Use the email template.
   $fm->use_email_templates(1);  
 
 my ($header_str, $body_str) = $fm->format_headers_and_body({-entity => $entity});
 
 # (... later on... 
 
 use DADA::MAilingList::Settings; 
 use DADA::Mail::Send; 
 
 my $ls = DADA::MailingList::Settings->new({-list => $list}); 
 my $mh = DADA::Mail::Send->new({-list => $list}); 
 
 $mh->send(
           $mh->return_headers($header_str), 
                   Body => $body_str,
                  ); 

DESCRIPTION

DADA::App::FormatMessages is used to get a email message ready for sending to your mailing list. Most of its magic is behind the scenes, and isn't something you have to worry about, but we'll go through some detail.

METHODS

new

 my $fm = DADA::App::FormatMessages->new(-List => $list); 

format_headers_and_body

 my ($header_str, $body_str) = $fm->format_headers_and_body(-msg => $msg);

Given a string, $msg, returns two variables; $header_str, which will have all the headers and $body_str, that holds the body of your message.

ACCESSORS

Subject

Set the subject of a message

use_email_templates

If set to a true value, will apply your email templates to the HTML/PlainText parts of your message.

use_header_info

If set to a true value, will inspect the headers of a message (for example, the From: line) to work with

                        my $resize_images = 1; 
                        try {           
                                $entity = $self->resize_images($entity); 
                        } catch { 
                                warn 'resize_images failed to work: ' . $_; 
                                $resize_images = 0; 
                        };
                        
                        if($resize_images == 1){
                                try {           
                                        $entity = $self->tweak_image_size_attrs($entity); 
                                } catch { 
                                        warn 'tweak_image_size_attrs failed to work: ' . $_; 
                                };                      
                        }

PRIVATE METHODS

_make_multipart_alternative

 $entity = $self->_make_multipart_alternative($entity); 

Changes the single part, HTML entity into a multipart/alternative message, with an auto plaintext version.

_format_text

 $entity = $self->_format_text($entity);        

Given an MIME::Entity (may be multipart) will attempt to:

_create_multipart

 $entity = $self->_create_multipart($entity); 

Recursively goes through a multipart entity, changing any non-attachment singlepart HTML message into a multipart/alternative message with an auto-generated PlainText version.

_make_multipart

 $entity = $self->_make_multipart($entity);     
 

Takes a single part entity and changes it to a multipart/alternative message, with an autogenerated PlainText or HTML version.

_format_headers

 $entity = $self->_format_headers($entity)

Given an entity, will do some transformations on the headers. It will:

_list_name_subject

 my $subject = $self->_list_name_subject($list_name, $subject));

Appends, $list_name onto subject.

_expand_macro_tags

 $data = $self->_expand_macro_tags(-data => $data, 
                                    -type => (PlainText/HTML), 
                                   );
                                                                        

Given a string, changes Dada Mail's template tag into what they represent.

-type can be either PlainText or HTML

_macro_tags

 my $s_link   = $self->_macro_tags(-type => 'subscribe'  ); 
 my $us_link  = $self->_macro_tags(-type => 'unsubscribe');

Explode the various link pseudo tags into a form that will later be interpolated.

-type can be:

_apply_template

$content = $self->_apply_template({-content => $content, -type => $entity->head->mime_type, });

Given a string in -data, applies the correct email mailing list template, depending on what -type is passed, this will be either the PlainText or HTML version.

get_entity

get_entity is a simple subroutine that takes a string, passed in, -data and turns it into a HTML::Entities entity:

 my $entity = get_entity(
                  {
                      -data => $str, 
                  }
              ); 

Optionally, you may also pass the -parser_params parameter, which will direct the parser on how specifically to parse the message. Currently, there is only one param to play around with: -input_mechanism - you can set this to either, parse (which is the default), or parse_open.

If you pass, parse_open, also pass a filename in -data instead of a string. Right.

my $entity = get_entity( { -data => $filename, } );

Make sure to delete the file when you're finished.

email_template

This subroutine is extremely similar to DADA::Template::Widgets screen subroutine and in fact is basically a wrapper around it, although it also "knows" about Email Message headers and attempts not to muck them up when you place variables in the template.

It basically looks at the various parts of your email message and passes these parts to DADA::Template::Widgets screen subroutine to be templated out.

The parts of the email message that will be templated out are any and all text/plain, text/html bodies - both of which have an inline content disposition (ie: it's not an attachment) and the To, From and Subject headers of a message.

For the To and From headers, this subroutine will only attempt to template out the phrase part of the header and will make sure that the phrase is properly escaped out.

One main difference between this subroutine and screen is that this subroutine does not take the template to work with in the -data, or, -screen parameter, but instead takes it in the, -entity parameter. The -entity parameter should be populated like so:

 use MIME::Parser;
 my $parser = new MIME::Parser; 
 my $entity = $parser->parse_data($msg);
 
 DADA::App::FormatMessages::email_template({-entity => $entity});

( Probably should elaborate...)

COPYRIGHT

Copyright (c) 1999 - 2023 Justin Simoni All rights reserved.

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.


Dada Mail Project

Download

Installation

Support