move this file into lib

[catagits/Catalyst-Plugin-Email.git] / lib / Catalyst / Plugin / Email.pm

diff --git a/lib/Catalyst/Plugin/Email.pm b/lib/Catalyst/Plugin/Email.pm
new file mode 100644 (file)
index 0000000..87b6ca0
--- /dev/null
+++ b/lib/Catalyst/Plugin/Email.pm
@@ -0,0 +1,190 @@
+package Catalyst::Plugin::Email;
+
+use strict;
+use Email::Send;
+use Email::MIME;
+use Email::MIME::Creator;
+use Carp qw/croak/;
+
+our $VERSION = '0.08';
+
+=head1 NAME
+
+Catalyst::Plugin::Email - (DEPRECATED) Send emails with Catalyst
+
+=head1 SYNOPSIS
+
+    # please use Email::MIME::Kit or Catalyst::View::Email::Template instead
+
+    use Catalyst 'Email';
+
+    __PACKAGE__->config->{email} = [qw/SMTP smtp.oook.de/];
+
+    $c->email(
+        header => [
+            From    => 'sri@oook.de',
+            To      => 'sri@cpan.org',
+            Subject => 'Hello!'
+        ],
+        body => 'Hello sri'
+    );
+
+=head1 DESCRIPTION
+
+Send emails with Catalyst and L<Email::Send> and L<Email::MIME::Creator>.
+
+=head1 CONFIGURATION
+
+C<config> accepts the same options as L<Email::Send>.
+
+To send using the system's C<sendmail> program, set C<config> like so:
+
+    __PACKAGE__->config->{email} = ['Sendmail'];
+
+To send using authenticated SMTP:
+
+    __PACKAGE__->config->{email} = [
+        'SMTP', 
+        'smtp.myhost.com', 
+        username => $USERNAME, 
+        password => $PASSWORD, 
+    ];
+
+For different methods of sending emails, and appropriate C<config> options, 
+see L<Email::Send::NNTP>, L<Email::Send::Qmail>, L<Email::Send::SMTP> and 
+L<Email::Send::Sendmail>.
+
+=head1 METHODS
+
+=head2 email
+
+C<email()> accepts the same arguments as L<Email::MIME::Creator>'s 
+C<create()>.
+
+    $c->email(
+        header => [
+            To      => 'me@localhost',
+            Subject => 'A TT Email',
+        ],
+        body => $c->subreq( '/render_email' ),
+    );
+
+To send a multipart message, include a C<parts> argument containing an 
+arrayref of Email::MIME objects.
+
+    my @parts = (
+        Email::MIME->create(
+            attributes => {
+                content_type => 'application/pdf',
+                encoding     => 'quoted-printable',
+                name         => 'report.pdf',
+            },
+            body => $FILE_DATA,
+        ),
+        Email::MIME->create(
+            attributes => {
+                content_type => 'text/plain',
+                disposition  => 'attachment',
+                charset      => 'US-ASCII',
+            },
+            body => $c->subreq( '/render_email' ),
+        ),
+    );
+    
+    $c->email(
+        header => [
+            To      => 'me@localhost',
+            Subject => 'A TT Email',
+        ],
+        parts => \@parts,
+    );
+
+=cut
+
+sub email {
+    my $c = shift;
+    my $email = $_[1] ? {@_} : $_[0];
+    $email = Email::MIME->create(%$email);
+    my $args = $c->config->{email} || [];
+    my @args = @{$args};
+    my $class;
+    unless ( $class = shift @args ) {
+        $class = 'SMTP';
+        unshift @args, 'localhost';
+    }
+    send $class => $email, @args;
+}
+
+=head1 USING WITH A VIEW
+
+A common practice is to handle emails using the same template language used
+for HTML pages.  If your view supports the 'render' method (Like the TT view 
+does), you just set the body like this:
+  $c->email(
+     header => [
+        To      => 'me@localhost',
+        Subject => 'A TT Email',
+     ],
+     body => $c->view('TT')->render($c,'mytemplate.tt'),
+  }
+
+If your view doesn't support render, you can just forward to it, then reset 
+the body like this:
+
+    sub send_email : Local {
+        my ( $self, $c ) = @_;  
+        {
+        local $c->stash->{names}   = [ qw/andyg sri mst/ ],
+        local $c->stash->{template}= 'mytemplate.tt';   
+        $c->forward($c->view('MyView'));
+        $c->email(
+            header => [
+                To      => 'me@localhost',
+                Subject => 'A TT Email',
+            ],
+            body => $c->res->body,
+        );
+        $c->res->body(undef);
+        }
+    }
+    
+And the template:
+
+    [%- FOREACH name IN names -%]
+    Hi, [% name %]!
+    [%- END -%]
+    
+    --
+    Regards,
+    Us
+
+Output:
+
+    Hi, andyg!
+    Hi, sri!
+    Hi, mst!
+    
+    --
+    Regards,
+    Us
+
+=head1 SEE ALSO
+
+L<Catalyst>, L<Catalyst::Plugin::SubRequest>, L<Email::Send>,
+L<Email::MIME::Creator>
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@cpan.org>
+Andy Grundman
+Carl Franks 
+Marcus Ramberg C<mramberg@cpan.org>
+
+=head1 COPYRIGHT
+
+This program is free software, you can redistribute it and/or modify it 
+under the same terms as Perl itself.
+
+=cut
+
+1;