util.pl
No OneTemporary
Actions

Size

1 KB

Subscribers

None

util.pl
View Options

	#####
	# FCKeditor - The text editor for Internet - http://www.fckeditor.net
	# Copyright (C) 2003-2007 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 $value;
	# return utf8_encode(htmlspecialchars($value));

	}

	sub specialchar_cnv
	{
	local($ch) = @_;

	$ch =~ s/&/&/g; # &
	$ch =~ s/\"/"/g; #"
	$ch =~ s/\'/'/g; # '
	$ch =~ s/</</g; # <
	$ch =~ s/>/>/g; # >
	return($ch);
	}

	1;