comparison wiki/htdocs/applets/FCKeditor/editor/filemanager/browser/default/connectors/perl/basexml.pl @ 0:77665d8e2254

tag of nonpublic@localhost--archive/moin--enterprise--1.5--base-0 (automatically generated log message) imported from: moin--main--1.5--base-0
author Thomas Waldmann <tw-public@gmx.de>
date Thu, 22 Sep 2005 15:09:50 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:77665d8e2254
1 #####
2 # FCKeditor - The text editor for internet
3 # Copyright (C) 2003-2005 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: basexml.pl
14 # This is the File Manager Connector for Perl.
15 #
16 # File Authors:
17 # Takashi Yamaguchi (jack@omakase.net)
18 #####
19
20 sub CreateXmlHeader
21 {
22 local($command,$resourceType,$currentFolder) = @_;
23
24 # Create the XML document header.
25 print '<?xml version="1.0" encoding="utf-8" ?>';
26
27 # Create the main "Connector" node.
28 print '<Connector command="' . $command . '" resourceType="' . $resourceType . '">';
29
30 # Add the current folder node.
31 print '<CurrentFolder path="' . ConvertToXmlAttribute($currentFolder) . '" url="' . ConvertToXmlAttribute(GetUrlFromPath($resourceType,$currentFolder)) . '" />';
32 }
33
34 sub CreateXmlFooter
35 {
36 print '</Connector>';
37 }
38
39 sub SendError
40 {
41 local( $number, $text ) = @_;
42
43 print << "_HTML_HEAD_";
44 Content-Type:text/xml; charset=utf-8
45 Pragma: no-cache
46 Cache-Control: no-cache
47 Expires: Thu, 01 Dec 1994 16:00:00 GMT
48
49 _HTML_HEAD_
50
51 # Create the XML document header
52 print '<?xml version="1.0" encoding="utf-8" ?>' ;
53
54 print '<Connector><Error number="' . $number . '" text="' . &specialchar_cnv( $text ) . '" /></Connector>' ;
55
56 exit ;
57 }
58
59 1;