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
117
118
119
120
121
122
|
# --
# Kernel/Modules/AgentTicketPlain.pm - to get a plain view
# Copyright (C) 2001-2005 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: AgentTicketPlain.pm,v 1.3 2005/07/23 09:57:53 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --
package Kernel::Modules::AgentTicketPlain;
use strict;
use vars qw($VERSION);
$VERSION = '$Revision: 1.3 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
# --
sub new {
my $Type = shift;
my %Param = @_;
# allocate new hash for object
my $Self = {};
bless ($Self, $Type);
foreach (keys %Param) {
$Self->{$_} = $Param{$_};
}
# check needed Opjects
foreach (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 = shift;
my %Param = @_;
# --
# check needed stuff
# --
if (!$Self->{ArticleID}) {
return $Self->{LayoutObject}->ErrorScreen(
Message => "No ArticleID!",
Comment => 'Please contact your admin'
);
}
# --
# check permissions
# --
if (!$Self->{TicketObject}->Permission(
Type => 'ro',
TicketID => $Self->{TicketID},
UserID => $Self->{UserID})) {
# error screen, don't show ticket
return $Self->{LayoutObject}->NoPermission(WithHeader => 'yes');
}
my %Article = $Self->{TicketObject}->ArticleGet(ArticleID => $Self->{ArticleID});
my $Text = $Self->{TicketObject}->ArticlePlain(ArticleID => $Self->{ArticleID});
if ($Text) {
if ($Self->{Subaction} eq 'Download') {
# return new page
return $Self->{LayoutObject}->Attachment(
# Type => 'attached',
Filename => "Ticket-$Article{TicketNumber}-TicketID-$Self->{TicketID}-ArticleID-$Self->{ArticleID}.eml",
ContentType => 'text/plain',
Content => $Text,
Type => 'attachment',
);
}
else {
# Ascii2Html
$Text = $Self->{LayoutObject}->Ascii2Html(
Text => $Text,
HTMLResultMode => 1,
);
# do some highlightings
$Text =~ s/^((From|To|Cc|Bcc|Subject|Reply-To|Organization|X-Company):.*)/<font color=\"red\">$1<\/font>/gmi;
$Text =~ s/^(Date:.*)/<FONT COLOR=777777>$1<\/font>/m;
$Text =~ s/^((X-Mailer|User-Agent|X-OS):.*(Mozilla|Win?|Outlook|Microsoft|Internet Mail Service).*)/<blink>$1<\/blink>/gmi;
$Text =~ s/(^|^<blink>)((X-Mailer|User-Agent|X-OS|X-Operating-System):.*)/<font color=\"blue\">$1$2<\/font>/gmi;
$Text =~ s/^((Resent-.*):.*)/<font color=\"green\">$1<\/font>/gmi;
$Text =~ s/^(From .*)/<font color=\"gray\">$1<\/font>/gm;
$Text =~ s/^(X-OTRS.*)/<font color=\"#99BBDD\">$1<\/font>/gmi;
my $Output = $Self->{LayoutObject}->Header(Value => "$Article{TicketNumber} / $Self->{TicketID} / $Self->{ArticleID}");
$Output .= $Self->{LayoutObject}->NavigationBar();
$Output .= $Self->{LayoutObject}->Output(
TemplateFile => 'AgentTicketPlain',
Data => {
Text => $Text,
%Article,
TicketID => $Self->{TicketID},
ArticleID => $Self->{ArticleID},
}
);
$Output .= $Self->{LayoutObject}->Footer();
return $Output;
}
}
else {
return $Self->{LayoutObject}->ErrorScreen(
Message => "Can't read plain article! Maybe there is no plain email in backend! Read BackendMessage.",
Comment => 'Please contact your admin!',
);
}
}
# --
1;
|
