GIF89a; Mini Shell

Mini Shell

Direktori : /home/serb/public_html/fckeditor/editor/filemanager/browser/default/connectors/perl/
Upload File :
Current File : /home/serb/public_html/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl

#####
#  FCKeditor - The text editor for internet
#  Copyright (C) 2003-2004 Frederico Caldeira Knabben
#  
#  Licensed under the terms of the GNU Lesser General Public License:
#  		http://www.opensource.org/licenses/lgpl-license.php
#  
#  For further information visit:
#  		http://www.fckeditor.net/
#  
#  File Name: util.pl
#  	This is the File Manager Connector for Perl.
#  
#  Version:  2.0 RC3
#  Modified: 2005-02-28 17:06:13
#  
#  File Authors:
#  		Takashi Yamaguchi (jack@omakase.net)
#####

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));

}

1;

./BlackJoker Mini Shell 1.0