diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/wiki/htdocs/applets/FCKeditor/editor/filemanager/browser/default/connectors/perl/basexml.pl	Thu Sep 22 15:09:50 2005 +0000
@@ -0,0 +1,59 @@
+#####
+#  FCKeditor - The text editor for internet
+#  Copyright (C) 2003-2005 Frederico Caldeira Knabben
+#  
+#  Licensed under the terms of the GNU Lesser General Public License:
+#  		http://www.opensource.org/licenses/lgpl-license.php
+#  
+#  For further information visit:
+#  		http://www.fckeditor.net/
+#  
+#  "Support Open Source software. What about a donation today?"
+#  
+#  File Name: basexml.pl
+#  	This is the File Manager Connector for Perl.
+#  
+#  File Authors:
+#  		Takashi Yamaguchi (jack@omakase.net)
+#####
+
+sub CreateXmlHeader
+{
+	local($command,$resourceType,$currentFolder) = @_;
+
+	# Create the XML document header.
+	print '<?xml version="1.0" encoding="utf-8" ?>';
+
+	# Create the main "Connector" node.
+	print '<Connector command="' . $command . '" resourceType="' . $resourceType . '">';
+
+	# Add the current folder node.
+	print '<CurrentFolder path="' . ConvertToXmlAttribute($currentFolder) . '" url="' . ConvertToXmlAttribute(GetUrlFromPath($resourceType,$currentFolder)) . '" />';
+}
+
+sub CreateXmlFooter
+{
+	print '</Connector>';
+}
+
+sub SendError
+{
+	local( $number, $text ) = @_;
+
+	print << "_HTML_HEAD_";
+Content-Type:text/xml; charset=utf-8
+Pragma: no-cache
+Cache-Control: no-cache
+Expires: Thu, 01 Dec 1994 16:00:00 GMT
+
+_HTML_HEAD_
+
+	# Create the XML document header
+	print '<?xml version="1.0" encoding="utf-8" ?>' ;
+	
+	print '<Connector><Error number="' . $number . '" text="' . &specialchar_cnv( $text ) . '" /></Connector>' ;
+	
+	exit ;
+}
+
+1;