Revision 763,
1.2 KB
checked in by niltonneto, 15 years ago
(diff) |
Importação inicial do Expresso da Celepar
|
Line | |
---|
1 | #####
|
---|
2 | # FCKeditor - The text editor for internet
|
---|
3 | # Copyright (C) 2003-2006 Frederico Caldeira Knabben
|
---|
4 | #
|
---|
5 | # Licensed under the terms of the GNU Lesser General Public License:
|
---|
6 | # http://www.opensource.org/licenses/lgpl-license.php
|
---|
7 | #
|
---|
8 | # For further information visit:
|
---|
9 | # http://www.fckeditor.net/
|
---|
10 | #
|
---|
11 | # "Support Open Source software. What about a donation today?"
|
---|
12 | #
|
---|
13 | # File Name: util.pl
|
---|
14 | # This is the File Manager Connector for Perl.
|
---|
15 | #
|
---|
16 | # File Authors:
|
---|
17 | # Takashi Yamaguchi (jack@omakase.net)
|
---|
18 | #####
|
---|
19 |
|
---|
20 | sub RemoveFromStart
|
---|
21 | {
|
---|
22 | local($sourceString, $charToRemove) = @_;
|
---|
23 | $sPattern = '^' . $charToRemove . '+' ;
|
---|
24 | $sourceString =~ s/^$charToRemove+//g;
|
---|
25 | return $sourceString;
|
---|
26 | }
|
---|
27 |
|
---|
28 | sub RemoveFromEnd
|
---|
29 | {
|
---|
30 | local($sourceString, $charToRemove) = @_;
|
---|
31 | $sPattern = $charToRemove . '+$' ;
|
---|
32 | $sourceString =~ s/$charToRemove+$//g;
|
---|
33 | return $sourceString;
|
---|
34 | }
|
---|
35 |
|
---|
36 | sub ConvertToXmlAttribute
|
---|
37 | {
|
---|
38 | local($value) = @_;
|
---|
39 | return $value;
|
---|
40 | # return utf8_encode(htmlspecialchars($value));
|
---|
41 |
|
---|
42 | }
|
---|
43 |
|
---|
44 | sub specialchar_cnv
|
---|
45 | {
|
---|
46 | local($ch) = @_;
|
---|
47 |
|
---|
48 | $ch =~ s/&/&/g; # &
|
---|
49 | $ch =~ s/\"/"/g; #"
|
---|
50 | $ch =~ s/\'/'/g; # '
|
---|
51 | $ch =~ s/</</g; # <
|
---|
52 | $ch =~ s/>/>/g; # >
|
---|
53 | return($ch);
|
---|
54 | }
|
---|
55 |
|
---|
56 | 1;
|
---|
Note: See
TracBrowser
for help on using the repository browser.