/usr/share/otrs/Kernel/Modules/AgentTicketPlain.pm is in otrs2 3.3.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # --
# Kernel/Modules/AgentTicketPlain.pm - to get a plain view
# Copyright (C) 2001-2014 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;
|