source: sandbox/filemanager/tp/fckeditor/editor/filemanager/connectors/perl/util.pl @ 1575

Revision 1575, 1.4 KB checked in by amuller, 14 years ago (diff)

Ticket #597 - Implentação, melhorias do modulo gerenciador de arquivos

  • Property svn:executable set to *
Line 
1#####
2#  FCKeditor - The text editor for Internet - http://www.fckeditor.net
3#  Copyright (C) 2003-2009 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#  This is the File Manager Connector for Perl.
22#####
23
24sub RemoveFromStart
25{
26        local($sourceString, $charToRemove) = @_;
27        $sPattern = '^' . $charToRemove . '+' ;
28        $sourceString =~ s/^$charToRemove+//g;
29        return $sourceString;
30}
31
32sub RemoveFromEnd
33{
34        local($sourceString, $charToRemove) = @_;
35        $sPattern = $charToRemove . '+$' ;
36        $sourceString =~ s/$charToRemove+$//g;
37        return $sourceString;
38}
39
40sub ConvertToXmlAttribute
41{
42        local($value) = @_;
43        return(&specialchar_cnv($value));
44}
45
46sub specialchar_cnv
47{
48        local($ch) = @_;
49
50        $ch =~ s/&/&/g;             # &
51        $ch =~ s/\"/"/g;   #"
52        $ch =~ s/\'/'/g;    # '
53        $ch =~ s/</&lt;/g;              # <
54        $ch =~ s/>/&gt;/g;              # >
55        return($ch);
56}
57
58sub JS_cnv
59{
60        local($ch) = @_;
61
62        $ch =~ s/\"/\\\"/g;     #"
63        return($ch);
64}
65
661;
Note: See TracBrowser for help on using the repository browser.