← Back to branch summary

~ubuntu-branches/ubuntu/natty/moin/natty-updates

« back to all changes in this revision

Viewing changes to MoinMoin/web/static/htdocs/applets/FCKeditor/editor/filemanager/connectors/perl/util.pl

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Smedegaard
  • Date: 2008-06-22 21:17:13 UTC
  • mto: This revision was merged to the branch mainline in revision 18.
  • Revision ID: james.westby@ubuntu.com-20080622211713-inlv5k4eifxckelr
Import upstream version 1.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
MoinMoin/web/static/htdocs/applets/FCKeditor/editor/filemanager/connectors/perl/util.pl
1
 
#####
2
 
#  FCKeditor - The text editor for Internet - http://www.fckeditor.net
3
 
#  Copyright (C) 2003-2010 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/</&lt;/g;              # <
54
 
        $ch =~ s/>/&gt;/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;