[Sommaire] [Imprimer]

   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;