/usr/share/otrs/Kernel/Modules/AgentTicketPlain.pm is in otrs2 5.0.7-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 115 116 | # --
# Copyright (C) 2001-2016 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;
our $ObjectManagerDisabled = 1;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
return $Self;
}
sub Run {
my ( $Self, %Param ) = @_;
my $ArticleID = $Kernel::OM->Get('Kernel::System::Web::Request')->GetParam( Param => 'ArticleID' );
# get layout object
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
# check needed stuff
if ( !$ArticleID ) {
return $LayoutObject->ErrorScreen(
Message => 'No ArticleID!',
Comment => 'Please contact your administrator'
);
}
# get ticket object
my $TicketObject = $Kernel::OM->Get('Kernel::System::Ticket');
# check permissions
my $Access = $TicketObject->TicketPermission(
Type => 'ro',
TicketID => $Self->{TicketID},
UserID => $Self->{UserID}
);
# error screen, don't show ticket
if ( !$Access ) {
return $LayoutObject->NoPermission();
}
my %Article = $TicketObject->ArticleGet(
ArticleID => $ArticleID,
DynamicFields => 0,
);
my $Plain = $TicketObject->ArticlePlain( ArticleID => $ArticleID );
if ( !$Plain ) {
return $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 $LayoutObject->Attachment(
Filename => $Filename,
ContentType => 'message/rfc822',
Content => $Plain,
Type => 'attachment',
);
}
# show plain emails
$Plain = $LayoutObject->Ascii2Html(
Text => $Plain,
HTMLResultMode => 1,
);
# do some highlightings
$Plain
=~ s/^((From|To|Cc|Bcc|Subject|Reply-To|Organization|X-Company|Content-Type|Content-Transfer-Encoding):.*)/<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 = $LayoutObject->Header(
Type => 'Small',
);
$Output .= $LayoutObject->Output(
TemplateFile => 'AgentTicketPlain',
Data => {
Text => $Plain,
%Article,
},
);
$Output .= $LayoutObject->Footer(
Type => 'Small',
);
return $Output;
}
1;
|