[Jifty-commit] r3551 - in jifty/branches/html-mail: . lib/Jifty

[jifty-commit at lists.jifty.org]

Author: ternus
Date: Mon Jun 25 15:12:03 2007
New Revision: 3551

Modified:
   jifty/branches/html-mail/Makefile.PL
   jifty/branches/html-mail/lib/Jifty/Notification.pm
   jifty/branches/html-mail/t/TestApp/t/08-notifications.t

Log:
First crack at changing notifications to Email::MIME::CreateHTML



Modified: jifty/branches/html-mail/Makefile.PL
==============================================================================
--- jifty/branches/html-mail/Makefile.PL	(original)
+++ jifty/branches/html-mail/Makefile.PL	Mon Jun 25 15:12:03 2007
@@ -25,6 +25,7 @@
 requires('Email::MIME');
 requires('Email::MIME::Creator');
 requires('Email::MIME::ContentType');
+requires('Email::MIME::CreateHTML');
 requires('Email::Send' => '1.99_01'); # Email::Send::Jifty::Test
 requires('Email::Simple');
 requires('Email::Simple::Creator');

Modified: jifty/branches/html-mail/lib/Jifty/Notification.pm
==============================================================================
--- jifty/branches/html-mail/lib/Jifty/Notification.pm	(original)
+++ jifty/branches/html-mail/lib/Jifty/Notification.pm	Mon Jun 25 15:12:03 2007
@@ -6,9 +6,10 @@
 use base qw/Jifty::Object Class::Accessor::Fast/;
 use Email::Send            ();
 use Email::MIME::Creator;
+use Email::MIME::CreateHTML;
 
 __PACKAGE__->mk_accessors(
-    qw/body preface footer subject from _recipients _to_list to/);
+    qw/body html_body preface footer subject from _recipients _to_list to/);
 
 =head1 USAGE
 
@@ -89,14 +90,14 @@
 
     my $appname = Jifty->config->framework('ApplicationName');
 
-    my $message = Email::MIME->create(
+    my $message = Email::MIME->create_html(
         header => [
             From    => ($self->from    || _('%1 <%2>' , $appname, Jifty->config->framework('AdminEmail'))) ,
             To      => $to,
             Subject => Encode::encode('MIME-Header', $self->subject || _("A notification from %1!",$appname )),
         ],
         attributes => { charset => 'UTF-8' },
-        parts => $self->parts
+        body => $self->full_body
     );
     $message->encoding_set('8bit')
         if (scalar $message->parts == 1);

Modified: jifty/branches/html-mail/t/TestApp/t/08-notifications.t
==============================================================================
--- jifty/branches/html-mail/t/TestApp/t/08-notifications.t	(original)
+++ jifty/branches/html-mail/t/TestApp/t/08-notifications.t	Mon Jun 25 15:12:03 2007
@@ -5,8 +5,10 @@
 use lib 't/lib';
 use Jifty::SubTest;
 
-use Jifty::Test tests => 2;
+use Jifty::Test tests => 3;
 use_ok('Jifty::Notification');
+use_ok('Email::MIME::CreateHTML');
+use_ok('Email::MIME');
 
 TODO: {local $TODO = "Actually write tests"; ok(0, "Test notifications")};