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 |
|
---|
24 | sub RemoveFromStart
|
---|
25 | {
|
---|
26 | local($sourceString, $charToRemove) = @_;
|
---|
27 | $sPattern = '^' . $charToRemove . '+' ;
|
---|
28 | $sourceString =~ s/^$charToRemove+//g;
|
---|
29 | return $sourceString;
|
---|
30 | }
|
---|
31 |
|
---|
32 | sub RemoveFromEnd
|
---|
33 | {
|
---|
34 | local($sourceString, $charToRemove) = @_;
|
---|
35 | $sPattern = $charToRemove . '+$' ;
|
---|
36 | $sourceString =~ s/$charToRemove+$//g;
|
---|
37 | return $sourceString;
|
---|
38 | }
|
---|
39 |
|
---|
40 | sub ConvertToXmlAttribute
|
---|
41 | {
|
---|
42 | local($value) = @_;
|
---|
43 | return(&specialchar_cnv($value));
|
---|
44 | }
|
---|
45 |
|
---|
46 | sub specialchar_cnv
|
---|
47 | {
|
---|
48 | local($ch) = @_;
|
---|
49 |
|
---|
50 | $ch =~ s/&/&/g; # &
|
---|
51 | $ch =~ s/\"/"/g; #"
|
---|
52 | $ch =~ s/\'/'/g; # '
|
---|
53 | $ch =~ s/</</g; # <
|
---|
54 | $ch =~ s/>/>/g; # >
|
---|
55 | return($ch);
|
---|
56 | }
|
---|
57 |
|
---|
58 | sub JS_cnv
|
---|
59 | {
|
---|
60 | local($ch) = @_;
|
---|
61 |
|
---|
62 | $ch =~ s/\"/\\\"/g; #"
|
---|
63 | return($ch);
|
---|
64 | }
|
---|
65 |
|
---|
66 | 1;
|
---|
Note: See
TracBrowser
for help on using the repository browser.