event refactor, landing on HEAD!

[freeside.git] / httemplate / elements / fckeditor / editor / filemanager / browser / default / connectors / perl / util.pl

diff --git a/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl b/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl
new file mode 100644 (file)
index 0000000..e860292
--- /dev/null
+++ b/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl
@@ -0,0 +1,60 @@
+#####\r
+#  FCKeditor - The text editor for Internet - http://www.fckeditor.net\r
+#  Copyright (C) 2003-2007 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 $value;\r
+#      return utf8_encode(htmlspecialchars($value));\r
+\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/</&lt;/g;              # <\r
+       $ch =~ s/>/&gt;/g;              # >\r
+       return($ch);\r
+}\r
+\r
+1;\r