]>
Commit | Line | Data |
---|---|---|
af59614d MKG |
1 | # BEGIN BPS TAGGED BLOCK {{{ |
2 | # | |
3 | # COPYRIGHT: | |
4 | # | |
320f0092 | 5 | # This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC |
af59614d MKG |
6 | # <sales@bestpractical.com> |
7 | # | |
8 | # (Except where explicitly superseded by other copyright notices) | |
9 | # | |
10 | # | |
11 | # LICENSE: | |
12 | # | |
13 | # This work is made available to you under the terms of Version 2 of | |
14 | # the GNU General Public License. A copy of that license should have | |
15 | # been provided with this software, but in any event can be snarfed | |
16 | # from www.gnu.org. | |
17 | # | |
18 | # This work is distributed in the hope that it will be useful, but | |
19 | # WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
21 | # General Public License for more details. | |
22 | # | |
23 | # You should have received a copy of the GNU General Public License | |
24 | # along with this program; if not, write to the Free Software | |
25 | # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA | |
26 | # 02110-1301 or visit their web page on the internet at | |
27 | # http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. | |
28 | # | |
29 | # | |
30 | # CONTRIBUTION SUBMISSION POLICY: | |
31 | # | |
32 | # (The following paragraph is not intended to limit the rights granted | |
33 | # to you to modify and distribute this software under the terms of | |
34 | # the GNU General Public License and is only of importance to you if | |
35 | # you choose to contribute your changes and enhancements to the | |
36 | # community by submitting them to Best Practical Solutions, LLC.) | |
37 | # | |
38 | # By intentionally submitting any modifications, corrections or | |
39 | # derivatives to this work, or any other work intended for use with | |
40 | # Request Tracker, to Best Practical Solutions, LLC, you confirm that | |
41 | # you are the copyright holder for those contributions and you grant | |
42 | # Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, | |
43 | # royalty-free, perpetual, license to use, copy, create derivative | |
44 | # works based on those contributions, and sublicense and distribute | |
45 | # those contributions and any derivatives thereof. | |
46 | # | |
47 | # END BPS TAGGED BLOCK }}} | |
48 | ||
49 | # | |
50 | package RT::Action::SendForward; | |
51 | ||
52 | use strict; | |
53 | use warnings; | |
54 | ||
55 | use base qw(RT::Action::SendEmail); | |
56 | ||
57 | use Email::Address; | |
58 | ||
59 | =head2 Prepare | |
60 | ||
61 | =cut | |
62 | ||
63 | sub Prepare { | |
64 | my $self = shift; | |
65 | ||
66 | my $txn = $self->TransactionObj; | |
67 | ||
68 | if ( $txn->Type eq 'Forward Transaction' ) { | |
69 | my $forwarded_txn = RT::Transaction->new( $self->CurrentUser ); | |
70 | $forwarded_txn->Load( $txn->Field ); | |
71 | $self->{ForwardedTransactionObj} = $forwarded_txn; | |
72 | } | |
73 | ||
74 | my ( $result, $message ) = $self->TemplateObj->Parse( | |
75 | Argument => $self->Argument, | |
76 | Ticket => $self->TicketObj, | |
77 | Transaction => $self->ForwardedTransactionObj, | |
78 | ForwardTransaction => $self->TransactionObj, | |
79 | ); | |
80 | ||
81 | if ( !$result ) { | |
82 | return (undef); | |
83 | } | |
84 | ||
85 | my $mime = $self->TemplateObj->MIMEObj; | |
86 | $mime->make_multipart unless $mime->is_multipart; | |
87 | ||
88 | my $entity; | |
89 | if ( $txn->Type eq 'Forward Transaction' ) { | |
90 | $entity = $self->ForwardedTransactionObj->ContentAsMIME; | |
91 | } | |
92 | else { | |
93 | my $txns = $self->TicketObj->Transactions; | |
94 | $txns->Limit( | |
95 | FIELD => 'Type', | |
96 | VALUE => $_, | |
97 | ) for qw(Create Correspond); | |
98 | ||
99 | $entity = MIME::Entity->build( | |
100 | Type => 'multipart/mixed', | |
101 | Description => 'forwarded ticket', | |
102 | ); | |
103 | $entity->add_part($_) foreach | |
104 | map $_->ContentAsMIME, | |
105 | @{ $txns->ItemsArrayRef }; | |
106 | } | |
107 | ||
108 | $mime->add_part($entity); | |
109 | ||
110 | my $txn_attachment = $self->TransactionObj->Attachments->First; | |
111 | for my $header (qw/From To Cc Bcc/) { | |
112 | if ( $txn_attachment->GetHeader( $header ) ) { | |
113 | $mime->head->set( $header => $txn_attachment->GetHeader($header) ); | |
114 | } | |
115 | } | |
116 | ||
117 | if ( RT->Config->Get('ForwardFromUser') ) { | |
118 | $mime->head->set( 'X-RT-Sign' => 0 ); | |
119 | } | |
120 | ||
121 | $self->SUPER::Prepare(); | |
122 | } | |
123 | ||
124 | sub SetSubjectToken { | |
125 | my $self = shift; | |
126 | return if RT->Config->Get('ForwardFromUser'); | |
127 | $self->SUPER::SetSubjectToken(@_); | |
128 | } | |
129 | ||
130 | sub ForwardedTransactionObj { | |
131 | my $self = shift; | |
132 | return $self->{'ForwardedTransactionObj'}; | |
133 | } | |
134 | ||
135 | RT::Base->_ImportOverlays(); | |
136 | ||
137 | 1; |