[Sommaire] [Imprimer]

   1  #####
   2  #  FCKeditor - The text editor for Internet - http://www.fckeditor.net
   3  #  Copyright (C) 2003-2007 Frederico Caldeira Knabben
   4  #  
   5  #  == BEGIN LICENSE ==
   6  #  
   7  #  Licensed under the terms of any of the following licenses at your
   8  #  choice:
   9  #  
  10  #   - GNU General Public License Version 2 or later (the "GPL")
  11  #     http://www.gnu.org/licenses/gpl.html
  12  #  
  13  #   - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
  14  #     http://www.gnu.org/licenses/lgpl.html
  15  #  
  16  #   - Mozilla Public License Version 1.1 or later (the "MPL")
  17  #     http://www.mozilla.org/MPL/MPL-1.1.html
  18  #  
  19  #  == END LICENSE ==
  20  #  
  21  #  File Name: basexml.pl
  22  #      This is the File Manager Connector for Perl.
  23  #  
  24  #  File Authors:
  25  #          Takashi Yamaguchi (jack@omakase.net)
  26  #####
  27  
  28  sub CreateXmlHeader
  29  {
  30      local($command,$resourceType,$currentFolder) = @_;
  31  
  32      # Create the XML document header.
  33      print '<?xml version="1.0" encoding="utf-8" ?>';
  34  
  35      # Create the main "Connector" node.
  36      print '<Connector command="' . $command . '" resourceType="' . $resourceType . '">';
  37  
  38      # Add the current folder node.
  39      print '<CurrentFolder path="' . ConvertToXmlAttribute($currentFolder) . '" url="' . ConvertToXmlAttribute(GetUrlFromPath($resourceType,$currentFolder)) . '" />';
  40  }
  41  
  42  sub CreateXmlFooter
  43  {
  44      print '</Connector>';
  45  }
  46  
  47  sub SendError
  48  {
  49      local( $number, $text ) = @_;
  50  
  51      print << "_HTML_HEAD_";
  52  Content-Type:text/xml; charset=utf-8
  53  Pragma: no-cache
  54  Cache-Control: no-cache
  55  Expires: Thu, 01 Dec 1994 16:00:00 GMT
  56  
  57  _HTML_HEAD_
  58  
  59      # Create the XML document header
  60      print '<?xml version="1.0" encoding="utf-8" ?>' ;
  61      
  62      print '<Connector><Error number="' . $number . '" text="' . &specialchar_cnv( $text ) . '" /></Connector>' ;
  63      
  64      exit ;
  65  }
  66  
  67  1;