diff options
Diffstat (limited to 'httemplate/elements/fckeditor/editor/filemanager/connectors/perl/util.pl')
| -rw-r--r-- | httemplate/elements/fckeditor/editor/filemanager/connectors/perl/util.pl | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/httemplate/elements/fckeditor/editor/filemanager/connectors/perl/util.pl b/httemplate/elements/fckeditor/editor/filemanager/connectors/perl/util.pl deleted file mode 100644 index c245a04..0000000 --- a/httemplate/elements/fckeditor/editor/filemanager/connectors/perl/util.pl +++ /dev/null @@ -1,66 +0,0 @@ -#####
-# FCKeditor - The text editor for Internet - http://www.fckeditor.net
-# Copyright (C) 2003-2010 Frederico Caldeira Knabben
-#
-# == BEGIN LICENSE ==
-#
-# Licensed under the terms of any of the following licenses at your
-# choice:
-#
-# - GNU General Public License Version 2 or later (the "GPL")
-# http://www.gnu.org/licenses/gpl.html
-#
-# - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
-# http://www.gnu.org/licenses/lgpl.html
-#
-# - Mozilla Public License Version 1.1 or later (the "MPL")
-# http://www.mozilla.org/MPL/MPL-1.1.html
-#
-# == END LICENSE ==
-#
-# This is the File Manager Connector for Perl.
-#####
-
-sub RemoveFromStart
-{
- local($sourceString, $charToRemove) = @_;
- $sPattern = '^' . $charToRemove . '+' ;
- $sourceString =~ s/^$charToRemove+//g;
- return $sourceString;
-}
-
-sub RemoveFromEnd
-{
- local($sourceString, $charToRemove) = @_;
- $sPattern = $charToRemove . '+$' ;
- $sourceString =~ s/$charToRemove+$//g;
- return $sourceString;
-}
-
-sub ConvertToXmlAttribute
-{
- local($value) = @_;
- return(&specialchar_cnv($value));
-}
-
-sub specialchar_cnv
-{
- local($ch) = @_;
-
- $ch =~ s/&/&/g; # &
- $ch =~ s/\"/"/g; #"
- $ch =~ s/\'/'/g; # '
- $ch =~ s/</</g; # <
- $ch =~ s/>/>/g; # >
- return($ch);
-}
-
-sub JS_cnv
-{
- local($ch) = @_;
-
- $ch =~ s/\"/\\\"/g; #"
- return($ch);
-}
-
-1;
|