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
|
# --
# 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::Output::HTML::FilterText::URL;
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();
}
$Self->{LinkHash} = undef;
my $Counter = 0;
my %Seen;
${ $Param{Data} } =~ s{
( > | < | > | < | ) # $1 greater-than and less-than sign
( # $2
(?: # http or only www
(?: (?: http s? | ftp ) :\/\/) | # http://, https:// and ftp://
(?: [a-z0-9\-]* \.? # allow for sub-domain or prefixes bug#12472
(?: www | ftp ) \. \w+ # www.something and ftp.something
)
)
.*? # this part should be better defined!
)
( # $3
[\?,;!\.] (?: \s | $ ) # this construct was root cause of bug#2450 and bug#7288
| \s
| \"
| "
|
| '
| > # greater-than and less-than sign
| < # "
| > # "
| < # "
| $ # bug#2715
) }
{
my $Start = $1;
my $Link = $2;
my $End = $3;
if ($Seen{$Link}) {
$Start . $Seen{$Link} . $End;
}
else {
$Counter++;
if ( $Link !~ m{^ ( http | https | ftp ) : \/ \/ }xi ) {
if ($Link =~ m{^ ftp }smx ) {
$Link = 'ftp://' . $Link;
}
else {
$Link = 'http://' . $Link;
}
}
my $Length = length $Link ;
$Length = $Length < 75 ? $Length : 75;
my $String = '#' x $Length;
$Self->{LinkHash}->{"[$String$Counter]"} = $Link;
$Seen{$Link} = "[$String$Counter]";
$Start . "[$String$Counter]" . $End;
}
}egxism;
return $Param{Data};
}
sub Post {
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();
}
if ( $Self->{LinkHash} ) {
for my $Key ( sort keys %{ $Self->{LinkHash} } ) {
my $LinkSmall = $Self->{LinkHash}->{$Key};
$LinkSmall =~ s/^(.{75}).*$/$1\[\.\.\]/gs;
$Self->{LinkHash}->{$Key} =~ s/ //g;
${ $Param{Data} }
=~ s/\Q$Key\E/<a href=\"$Self->{LinkHash}->{$Key}\" target=\"_blank\" title=\"$Self->{LinkHash}->{$Key}\">$LinkSmall<\/a>/g;
}
}
return $Param{Data};
}
1;
|
