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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# --
# 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 https://www.gnu.org/licenses/gpl-3.0.txt.
# --
package Kernel::Output::HTML::FilterText::AutoLink;
use strict;
use warnings;
our $ObjectManagerDisabled = 1;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
return $Self;
}
sub Pre {
my ( $Self, %Param ) = @_;
# check needed stuff
if ( !defined $Param{Data} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => 'Need Data!'
);
$Kernel::OM->Get('Kernel::Output::HTML::Layout')->FatalDie();
}
return $Param{Data};
}
sub Post {
my ( $Self, %Param ) = @_;
# get layout object
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
# check needed stuff
if ( !defined $Param{Data} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => 'Need Data!'
);
$LayoutObject->FatalDie();
}
# get config object
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
# check whether auto article links should be used
return $Param{Data}
if !$ConfigObject->Get('Frontend::Output::OutputFilterTextAutoLink');
# find words to replace
my %Config = %{ $ConfigObject->Get("Frontend::Output::OutputFilterTextAutoLink") };
LINK:
for my $Link ( values %Config ) {
next LINK if !$Link->{RegExp};
# iterage through regular expressions and create a hash with found keywords
my %Keywords = ();
for my $RegExp ( @{ $Link->{RegExp} } ) {
my @Count = $RegExp =~ m{\(}gx;
my $Elements = scalar @Count;
if ( my @MatchData = ${ $Param{Data} } =~ m{((?<!\w)$RegExp)}gxi ) {
my $Counter = 0;
KEYWORD:
while ( $MatchData[$Counter] ) {
my $HoleMatchString = $MatchData[$Counter];
$HoleMatchString =~ s/^\s+|\s+$//g;
if ( $Keywords{$HoleMatchString} ) {
$Counter += $Elements + 1;
next KEYWORD;
}
for ( 1 .. $Elements ) {
$Keywords{$HoleMatchString}{$_} = $MatchData[ $Counter + $_ ];
}
$Counter += $Elements + 1;
}
}
}
# iterate trough keywords and replace them with URLs from the configuration
for my $Keyword ( sort keys %Keywords ) {
my %KW = %{ $Keywords{$Keyword} };
my $URLLink = '';
DATA:
for my $URLRef ( values %{$Link} ) {
next DATA if !$URLRef || ref($URLRef) ne 'HASH';
# check URL configuration sanity
next DATA if !$URLRef->{URL} || !$URLRef->{Image} || !$URLRef->{Target};
my $KeywordQuote = $LayoutObject->Ascii2Html( Text => $Keyword );
my $URL = $URLRef->{URL};
# replace the whole keyword
my $KeywordLinkEncode = $LayoutObject->LinkEncode($Keyword);
$URL =~ s/<MATCH>/$KeywordLinkEncode/g;
# replace the keyword components
for ( sort keys %KW ) {
$KeywordLinkEncode = $LayoutObject->LinkEncode( $KW{$_} );
$URL =~ s/<MATCH$_>/$KeywordLinkEncode/g;
}
# find out if it is an internal image or an external image
my $Image = $URLRef->{Image};
if ( $Image !~ m{^ http }smx ) {
$Image = $LayoutObject->{Images} . $URLRef->{Image};
}
# create the url string
$URL = "<a href=\"$URL\" target=\"$URLRef->{Target}\">";
$URL .= "<img border=\"0\" src=\"$Image\" ";
$URL .= " alt=\"$URLRef->{Description}: $KeywordQuote\"";
$URL .= " title=\"$URLRef->{Description}: $KeywordQuote\"/></a>";
$URLLink .= ' ' if ($URLLink);
$URLLink .= $URL;
}
# Replace the built URLs in the original text
if ($URLLink) {
${ $Param{Data} } =~ s/($Keyword)/$1 $URLLink/gi;
}
}
}
return $Param{Data};
}
1;
|
