Egg::View::Mail::MIME::Entity - The content of the transmission of mail is made with MIMI::Entity.

Egg-Release-Mail documentation Contained in the Egg-Release-Mail distribution.

Index

Code Index:

NAME

Top

Egg::View::Mail::MIME::Entity - The content of the transmission of mail is made with MIMI::Entity.

SYNOPSIS

Top

  package MyApp::View::Mail::MyComp;
  use base qw/ Egg::View::Mail::Base /;

  ...........
  .....

  __PACKAGE__->setup_mailer( CMD => 'MIME::Entity' );

DESCRIPTION

Top

It is MAIL component for the content of the transmission of mail to be made from MIMI::Entity.

Use is enabled specifying 'MIME::Entity' for the second argument of 'setup_mailer' method.

  __PACKAGE__->setup_mailer( SMTP => qw/ MIME::Entity / );

METHODS

Top

create_mail_body ([MAIL_DATA_HASH])

The result is returned by the SCALAR reference by processing MAIL_DATA_HASH with MIMI::Entity.

The following item comes to be evaluated by the argument and the configuration of 'send' method of Egg::View::Mail::Base.

headers

The header that wants to be included in the content of mail can be passed with HASH.

  headers => {
    'X-Hoge' => 'fooo',
    },

attach

The attached file is put up by mail.

  attach => [
    {
      Path     => '/path/to/images/abc.gif',
      Type     => 'image/gif',
      Encoding => 'Base64',
      },
    {
      Path     => '/path/to/content/abc.txt',
      Type     => 'text/plain',
      },
    ],

SEE ALSO

Top

Egg::Release, Egg::View::Mail, Egg::View::Mail::Base, MIME::Entity,

AUTHOR

Top

Masatoshi Mizuno <lushe&64;cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.

Egg-Release-Mail documentation Contained in the Egg-Release-Mail distribution. 
package Egg::View::Mail::MIME::Entity;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: Entity.pm 285 2008-02-28 04:20:55Z lushe $
#
use strict;
use warnings;
use MIME::Entity;

our $VERSION = '0.01';

sub create_mail_body {
	my($self, $data)= @_;
	my $mime= do {
		my %attr;
		my $body= $self->__get_mailbody($data);
		if (my $headers= $data->{headers}) { %attr= %$headers }
		for ( [qw/ to          To          /],
		      [qw/ from        From        /],
		      [qw/ cc          CC          /],
		      [qw/ bcc         BCC         /],
		      [qw/ replay_to   Reply-To    /],
		      [qw/ return_path Return-Path /],
		      [qw/ subject     Subject     /],
		      [qw/ x_mailer    X-Mailer    /] ) {
			$attr{$_->[1]}= $data->{$_->[0]} if $data->{$_->[0]};
		}
		MIME::Entity->build( %attr, Data=> [$$body] );
	  };
	if (my $attach= $data->{attach}) {
		eval{
			if (ref($attach) eq 'HASH') {
				$mime->attach(%$attach);
			} elsif (ref($attach) eq 'ARRAY') {
				$mime->attach(%$_) for @{$self->attach};
			}
		  };
		$@ and die $@;
	}
	\$mime->stringify;
}

1;

__END__