source: extensions/FCKEditor/editor/filemanager/connectors/perl/util.pl @ 3295

Last change on this file since 3295 was 3295, checked in by patdenice, 15 years ago

New extension added:
FCK Editor (2.0.a)

File size: 1.4 KB
Line 
1#####
2#  FCKeditor - The text editor for Internet - http://www.fckeditor.net
3#  Copyright (C) 2003-2009 Frederico Caldeira Knabben
4#
5#  == BEGIN LICENSE ==
6#
7#  Licensed under the terms of any of the following licenses at your
8#  choice:
9#
10#   - GNU General Public License Version 2 or later (the "GPL")
11#     http://www.gnu.org/licenses/gpl.html
12#
13#   - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14#     http://www.gnu.org/licenses/lgpl.html
15#
16#   - Mozilla Public License Version 1.1 or later (the "MPL")
17#     http://www.mozilla.org/MPL/MPL-1.1.html
18#
19#  == END LICENSE ==
20#
21#  This is the File Manager Connector for Perl.
22#####
23
24sub RemoveFromStart
25{
26        local($sourceString, $charToRemove) = @_;
27        $sPattern = '^' . $charToRemove . '+' ;
28        $sourceString =~ s/^$charToRemove+//g;
29        return $sourceString;
30}
31
32sub RemoveFromEnd
33{
34        local($sourceString, $charToRemove) = @_;
35        $sPattern = $charToRemove . '+$' ;
36        $sourceString =~ s/$charToRemove+$//g;
37        return $sourceString;
38}
39
40sub ConvertToXmlAttribute
41{
42        local($value) = @_;
43        return $value;
44#       return utf8_encode(htmlspecialchars($value));
45
46}
47
48sub specialchar_cnv
49{
50        local($ch) = @_;
51
52        $ch =~ s/&/&/g;             # &
53        $ch =~ s/\"/"/g;   #"
54        $ch =~ s/\'/'/g;    # '
55        $ch =~ s/</&lt;/g;              # <
56        $ch =~ s/>/&gt;/g;              # >
57        return($ch);
58}
59
60sub JS_cnv
61{
62        local($ch) = @_;
63
64        $ch =~ s/\"/\\\"/g;     #"
65        return($ch);
66}
67
681;
Note: See TracBrowser for help on using the repository browser.