Changeset 1158 for trunk/LATMOS-Accounts-Web

Timestamp:

09/20/12 10:37:15 (12 years ago)

Author:

nanardon

Message:

add attachment support in mail

Location:

trunk/LATMOS-Accounts-Web

Files:

• lib/LATMOS/Accounts/Web/Controller/Ajax/Services/Mailing.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm (modified) (4 diffs)
• root/html/ajax/services/mailing/attachments.tt (added)
• root/html/services/mailing/index.tt (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax/Services/Mailing.pm

@@ -86 +86 @@
 }
 
+sub attachments :Local {
+    my ( $self, $c ) = @_;
+    foreach ($c->req->param('rm_attachment')) {
+        $c->session->{mailing}{attachments}[$_ -1] = undef;
+    }
+
+    $c->session->{mailing}{attachments} = [
+        grep { $_ }
+        @{
+        $c->session->{mailing}{attachments} || []}
+    ];
+}
+
 sub end : Private {
     my ( $self, $c ) = @_;

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm

@@ -47 +47 @@
         $c->go('send');
     }
+
+    if ($c->req->upload('attachment')) {
+        $c->forward('attachment');
+    }
 }
 
@@ -52 +56 @@
     my ( $self, $c ) = @_;
 }
+
+sub attachment :Private {
+    my ( $self, $c ) = @_;
+    my $upload = $c->req->upload('attachment');
+    my $attach = Email::MIME->create(
+        attributes => {
+            content_type => $upload->type,
+            filename     => $upload->filename,
+            encoding     => 'base64',
+            name         => $upload->filename,,
+        },
+        body => $upload->slurp,
+    );
+    push(@{$c->session->{mailing}{attachments}}, $attach);
+} 
 
 sub filter :Local {
@@ -96 +115 @@
             charset      => 'utf-8',
         },
-        parts      => [ $bodypart ],
+        parts      => [ $bodypart, @{$c->session->{mailing}{attachments}} ],
     );
     $email->header_set( Subject => $c->req->param('subject') );
@@ -118 +137 @@
     $c->session->{mailing}{subject} = '';
     $c->session->{mailing}{body} = '';
+    $c->session->{mailing}{attachments} = [];
     $c->session->{to} = {};
 
 }
+
 
 =head1 AUTHOR

trunk/LATMOS-Accounts-Web/root/html/services/mailing/index.tt

@@ -15 +15 @@
 
 </form>
+
+<div id="attachment_list">
+[% INCLUDE 'ajax/services/mailing/attachments.tt' %]
+</div>
+<form action="[% c.uri_for('/services', 'mailing') %]"
+    enctype="multipart/form-data" method="POST">
+<input type=file name="attachment">
+<input type="submit" value="Ajouter">
+</form>