2 # FCKeditor - The text editor for Internet - http://www.fckeditor.net
\r
3 # Copyright (C) 2003-2007 Frederico Caldeira Knabben
\r
5 # == BEGIN LICENSE ==
\r
7 # Licensed under the terms of any of the following licenses at your
\r
10 # - GNU General Public License Version 2 or later (the "GPL")
\r
11 # http://www.gnu.org/licenses/gpl.html
\r
13 # - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
\r
14 # http://www.gnu.org/licenses/lgpl.html
\r
16 # - Mozilla Public License Version 1.1 or later (the "MPL")
\r
17 # http://www.mozilla.org/MPL/MPL-1.1.html
\r
21 # This is the File Manager Connector for Perl.
\r
26 local($sourceString, $charToRemove) = @_;
\r
27 $sPattern = '^' . $charToRemove . '+' ;
\r
28 $sourceString =~ s/^$charToRemove+//g;
\r
29 return $sourceString;
\r
34 local($sourceString, $charToRemove) = @_;
\r
35 $sPattern = $charToRemove . '+$' ;
\r
36 $sourceString =~ s/$charToRemove+$//g;
\r
37 return $sourceString;
\r
40 sub ConvertToXmlAttribute
\r
44 # return utf8_encode(htmlspecialchars($value));
\r
52 $ch =~ s/&/&/g; # &
\r
53 $ch =~ s/\"/"/g; #"
\r
54 $ch =~ s/\'/'/g; # '
\r
55 $ch =~ s/</</g; # <
\r
56 $ch =~ s/>/>/g; # >
\r