1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
# --
# Copyright (C) 2001-2017 OTRS AG, http://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
package Kernel::Modules::AgentTicketPlain;
use strict;
use warnings;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
# check needed objects
for (qw(ParamObject DBObject TicketObject LayoutObject LogObject ConfigObject UserObject)) {
if ( !$Self->{$_} ) {
$Self->{LayoutObject}->FatalError( Message => "Got no $_!" );
}
}
$Self->{ArticleID} = $Self->{ParamObject}->GetParam( Param => 'ArticleID' );
return $Self;
}
sub Run {
my ( $Self, %Param ) = @_;
# check needed stuff
if ( !$Self->{ArticleID} ) {
return $Self->{LayoutObject}->ErrorScreen(
Message => 'No ArticleID!',
Comment => 'Please contact your administrator'
);
}
# check permissions
my $Access = $Self->{TicketObject}->TicketPermission(
Type => 'ro',
TicketID => $Self->{TicketID},
UserID => $Self->{UserID}
);
# error screen, don't show ticket
if ( !$Access ) {
return $Self->{LayoutObject}->NoPermission();
}
my %Article = $Self->{TicketObject}->ArticleGet(
ArticleID => $Self->{ArticleID},
DynamicFields => 0,
);
my $Plain = $Self->{TicketObject}->ArticlePlain( ArticleID => $Self->{ArticleID} );
if ( !$Plain ) {
return $Self->{LayoutObject}->ErrorScreen(
Message => 'Can\'t read plain article! Maybe there is no plain email in backend! '
, 'Read BackendMessage.',
Comment => 'Please contact your administrator',
);
}
# download email
if ( $Self->{Subaction} eq 'Download' ) {
# return file
my $Filename = "Ticket-$Article{TicketNumber}-TicketID-$Article{TicketID}-"
. "ArticleID-$Article{ArticleID}.eml";
return $Self->{LayoutObject}->Attachment(
Filename => $Filename,
ContentType => 'message/rfc822',
Content => $Plain,
Type => 'attachment',
);
}
# show plain emails
$Plain = $Self->{LayoutObject}->Ascii2Html(
Text => $Plain,
HTMLResultMode => 1,
);
# do some highlightings
$Plain
=~ s/^((From|To|Cc|Bcc|Subject|Reply-To|Organization|X-Company):.*)/<span class="Error">$1<\/span>/gmi;
$Plain =~ s/^(Date:.*)/<span class="Error">$1<\/span>/m;
$Plain
=~ s/^((X-Mailer|User-Agent|X-OS):.*(Mozilla|Win?|Outlook|Microsoft|Internet Mail Service).*)/<span class="Error">$1<\/span>/gmi;
$Plain =~ s/^((Resent-.*):.*)/<span class="Error">$1<\/span>/gmi;
$Plain =~ s/^(From .*)/<span class="Error">$1<\/span>/gm;
$Plain =~ s/^(X-OTRS.*)/<span class="Error">$1<\/span>/gmi;
my $Output = $Self->{LayoutObject}->Header(
Type => 'Small',
);
$Output .= $Self->{LayoutObject}->Output(
TemplateFile => 'AgentTicketPlain',
Data => {
Text => $Plain,
%Article,
},
);
$Output .= $Self->{LayoutObject}->Footer(
Type => 'Small',
);
return $Output;
}
1;
|
