芝麻web文件管理V1.00
编辑当前文件:/home/krishnamexports/www/panel/fckeditor/editor/filemanager/connectors/perl/basexml.pl
##### # FCKeditor - The text editor for Internet - http://www.fckeditor.net # Copyright (C) 2003-2009 Frederico Caldeira Knabben # # == BEGIN LICENSE == # # Licensed under the terms of any of the following licenses at your # choice: # # - GNU General Public License Version 2 or later (the "GPL") # http://www.gnu.org/licenses/gpl.html # # - GNU Lesser General Public License Version 2.1 or later (the "LGPL") # http://www.gnu.org/licenses/lgpl.html # # - Mozilla Public License Version 1.1 or later (the "MPL") # http://www.mozilla.org/MPL/MPL-1.1.html # # == END LICENSE == # # This is the File Manager Connector for Perl. ##### sub CreateXmlHeader { local($command,$resourceType,$currentFolder) = @_; # Create the XML document header. print ''; # Create the main "Connector" node. print '
'; # Add the current folder node. print '
'; } sub CreateXmlFooter { print '
'; } 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 '' ; print '
' ; exit ; } 1;