← Back to branch summary

~alexharrington/xibo/pyclient-1.1.0a22

« back to all changes in this revision

Viewing changes to server/3rdparty/fckeditor/editor/filemanager/connectors/perl/util.pl

  • Committer: Alex Harrington
  • Date: 2009-12-31 11:38:50 UTC
  • Revision ID: alex@longhill.org.uk-20091231113850-bz5flhqq2gsw0qxf
Converted to 2.0 repo format and fixed lineendings

Show diffs side-by-side

added added

removed removed

Lines of Context:
server/3rdparty/fckeditor/editor/filemanager/connectors/perl/util.pl
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
 
#  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 $value;
44
 
#       return utf8_encode(htmlspecialchars($value));
45
 
 
46
 
}
47
 
 
48
 
sub specialchar_cnv
49
 
{
50
 
        local($ch) = @_;
51
 
 
52
 
        $ch =~ s/&/&/g;             # &
53
 
        $ch =~ s/\"/"/g;   #"
54
 
        $ch =~ s/\'/'/g;    # '
55
 
        $ch =~ s/</&lt;/g;              # <
56
 
        $ch =~ s/>/&gt;/g;              # >
57
 
        return($ch);
58
 
}
59
 
 
60
 
sub JS_cnv
61
 
{
62
 
        local($ch) = @_;
63
 
 
64
 
        $ch =~ s/\"/\\\"/g;     #"
65
 
        return($ch);
66
 
}
67
 
 
68
 
1;
 
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
#  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 $value;
 
44
#       return utf8_encode(htmlspecialchars($value));
 
45
 
 
46
}
 
47
 
 
48
sub specialchar_cnv
 
49
{
 
50
        local($ch) = @_;
 
51
 
 
52
        $ch =~ s/&/&amp;/g;             # &
 
53
        $ch =~ s/\"/&quot;/g;   #"
 
54
        $ch =~ s/\'/&#39;/g;    # '
 
55
        $ch =~ s/</&lt;/g;              # <
 
56
        $ch =~ s/>/&gt;/g;              # >
 
57
        return($ch);
 
58
}
 
59
 
 
60
sub JS_cnv
 
61
{
 
62
        local($ch) = @_;
 
63
 
 
64
        $ch =~ s/\"/\\\"/g;     #"
 
65
        return($ch);
 
66
}
 
67
 
 
68
1;