1#####
2#  FCKeditor - The text editor for Internet - http://www.fckeditor.net
3#  Copyright (C) 2003-2007 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;
69