--- /dev/null
+#####\r
+# FCKeditor - The text editor for Internet - http://www.fckeditor.net\r
+# Copyright (C) 2003-2010 Frederico Caldeira Knabben\r
+#\r
+# == BEGIN LICENSE ==\r
+#\r
+# Licensed under the terms of any of the following licenses at your\r
+# choice:\r
+#\r
+# - GNU General Public License Version 2 or later (the "GPL")\r
+# http://www.gnu.org/licenses/gpl.html\r
+#\r
+# - GNU Lesser General Public License Version 2.1 or later (the "LGPL")\r
+# http://www.gnu.org/licenses/lgpl.html\r
+#\r
+# - Mozilla Public License Version 1.1 or later (the "MPL")\r
+# http://www.mozilla.org/MPL/MPL-1.1.html\r
+#\r
+# == END LICENSE ==\r
+#\r
+# This is the File Manager Connector for Perl.\r
+#####\r
+\r
+sub RemoveFromStart\r
+{\r
+ local($sourceString, $charToRemove) = @_;\r
+ $sPattern = '^' . $charToRemove . '+' ;\r
+ $sourceString =~ s/^$charToRemove+//g;\r
+ return $sourceString;\r
+}\r
+\r
+sub RemoveFromEnd\r
+{\r
+ local($sourceString, $charToRemove) = @_;\r
+ $sPattern = $charToRemove . '+$' ;\r
+ $sourceString =~ s/$charToRemove+$//g;\r
+ return $sourceString;\r
+}\r
+\r
+sub ConvertToXmlAttribute\r
+{\r
+ local($value) = @_;\r
+ return(&specialchar_cnv($value));\r
+}\r
+\r
+sub specialchar_cnv\r
+{\r
+ local($ch) = @_;\r
+\r
+ $ch =~ s/&/&/g; # &\r
+ $ch =~ s/\"/"/g; #"\r
+ $ch =~ s/\'/'/g; # '\r
+ $ch =~ s/</</g; # <\r
+ $ch =~ s/>/>/g; # >\r
+ return($ch);\r
+}\r
+\r
+sub JS_cnv\r
+{\r
+ local($ch) = @_;\r
+\r
+ $ch =~ s/\"/\\\"/g; #"\r
+ return($ch);\r
+}\r
+\r
+1;\r