2 # FCKeditor - The text editor for Internet - http://www.fckeditor.net
\r
3 # Copyright (C) 2003-2010 Frederico Caldeira Knabben
\r
5 # == BEGIN LICENSE ==
\r
7 # Licensed under the terms of any of the following licenses at your
\r
10 # - GNU General Public License Version 2 or later (the "GPL")
\r
11 # http://www.gnu.org/licenses/gpl.html
\r
13 # - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
\r
14 # http://www.gnu.org/licenses/lgpl.html
\r
16 # - Mozilla Public License Version 1.1 or later (the "MPL")
\r
17 # http://www.mozilla.org/MPL/MPL-1.1.html
\r
21 # This is the File Manager Connector for Perl.
\r
26 local($command,$resourceType,$currentFolder) = @_;
\r
28 # Create the XML document header.
\r
29 print '<?xml version="1.0" encoding="utf-8" ?>';
\r
31 # Create the main "Connector" node.
\r
32 print '<Connector command="' . $command . '" resourceType="' . $resourceType . '">';
\r
34 # Add the current folder node.
\r
35 print '<CurrentFolder path="' . ConvertToXmlAttribute($currentFolder) . '" url="' . ConvertToXmlAttribute(GetUrlFromPath($resourceType,$currentFolder)) . '" />';
\r
40 print '</Connector>';
\r
45 local( $number, $text ) = @_;
\r
47 print << "_HTML_HEAD_";
\r
48 Content-Type:text/xml; charset=utf-8
\r
50 Cache-Control: no-cache
\r
51 Expires: Thu, 01 Dec 1994 16:00:00 GMT
\r
55 # Create the XML document header
\r
56 print '<?xml version="1.0" encoding="utf-8" ?>' ;
\r
59 print '<Connector><Error number="' . $number . '" text="' . &specialchar_cnv( $text ) . '" /></Connector>' ;
\r
62 print '<Connector><Error number="' . $number . '" /></Connector>' ;
\r