[Sommaire] [Imprimer]

   1  #####
   2  #  FCKeditor - The text editor for Internet - http://www.fckeditor.net
   3  #  Copyright (C) 2003-2007 Frederico Caldeira Knabben
   4  #  
   5  #  == BEGIN LICENSE ==
   6  #  
   7  #  Licensed under the terms of any of the following licenses at your
   8  #  choice:
   9  #  
  10  #   - GNU General Public License Version 2 or later (the "GPL")
  11  #     http://www.gnu.org/licenses/gpl.html
  12  #  
  13  #   - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
  14  #     http://www.gnu.org/licenses/lgpl.html
  15  #  
  16  #   - Mozilla Public License Version 1.1 or later (the "MPL")
  17  #     http://www.mozilla.org/MPL/MPL-1.1.html
  18  #  
  19  #  == END LICENSE ==
  20  #  
  21  #  File Name: util.pl
  22  #      This is the File Manager Connector for Perl.
  23  #  
  24  #  File Authors:
  25  #          Takashi Yamaguchi (jack@omakase.net)
  26  #####
  27  
  28  sub RemoveFromStart
  29  {
  30      local($sourceString, $charToRemove) = @_;
  31      $sPattern = '^' . $charToRemove . '+' ;
  32      $sourceString =~ s/^$charToRemove+//g;
  33      return $sourceString;
  34  }
  35  
  36  sub RemoveFromEnd
  37  {
  38      local($sourceString, $charToRemove) = @_;
  39      $sPattern = $charToRemove . '+$' ;
  40      $sourceString =~ s/$charToRemove+$//g;
  41      return $sourceString;
  42  }
  43  
  44  sub ConvertToXmlAttribute
  45  {
  46      local($value) = @_;
  47      return $value;
  48  #    return utf8_encode(htmlspecialchars($value));
  49  
  50  }
  51  
  52  sub specialchar_cnv
  53  {
  54      local($ch) = @_;
  55  
  56      $ch =~ s/&/&/g;        # &
  57      $ch =~ s/\"/"/g;    #"
  58      $ch =~ s/\'/'/g;    # '
  59      $ch =~ s/</&lt;/g;        # <
  60      $ch =~ s/>/&gt;/g;        # >
  61      return($ch);
  62  }
  63  
  64  1;