Subversion Repositories Applications.papyrus

#####
#  FCKeditor - The text editor for internet
#  Copyright (C) 2003-2006 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/
#  
#  "Support Open Source software. What about a donation today?"
#  
#  File Name: util.pl
#       This is the File Manager Connector for Perl.
#  
#  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));

}

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

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

1;