← Back to branch summary

~ubuntu-branches/ubuntu/natty/moin/natty-updates

« back to all changes in this revision

Viewing changes to wiki/htdocs/applets/FCKeditor/editor/filemanager/browser/default/connectors/asp/basexml.asp

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Smedegaard
  • Date: 2008-06-22 21:17:13 UTC
  • mto: This revision was merged to the branch mainline in revision 18.
  • Revision ID: james.westby@ubuntu.com-20080622211713-inlv5k4eifxckelr
Import upstream version 1.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
wiki/htdocs/applets/FCKeditor/editor/filemanager/browser/default/connectors/asp/basexml.asp
 
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.asp
 
14
 *      This file include the functions that create the base XML output.
 
15
 * 
 
16
 * File Authors:
 
17
 *              Frederico Caldeira Knabben (fredck@fckeditor.net)
 
18
-->
 
19
<%
 
20
 
 
21
Sub SetXmlHeaders()
 
22
        ' Cleans the response buffer.
 
23
        Response.Clear()
 
24
 
 
25
        ' Prevent the browser from caching the result.
 
26
        Response.CacheControl = "no-cache"
 
27
 
 
28
        ' Set the response format.
 
29
        Response.CharSet                = "UTF-8"
 
30
        Response.ContentType    = "text/xml"
 
31
End Sub
 
32
 
 
33
Sub CreateXmlHeader( command, resourceType, currentFolder )
 
34
        ' Create the XML document header.
 
35
        Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
 
36
 
 
37
        ' Create the main "Connector" node.
 
38
        Response.Write "<Connector command=""" & command & """ resourceType=""" & resourceType & """>"
 
39
        
 
40
        ' Add the current folder node.
 
41
        Response.Write "<CurrentFolder path=""" & ConvertToXmlAttribute( currentFolder ) & """ url=""" & ConvertToXmlAttribute( GetUrlFromPath( resourceType, currentFolder) ) & """ />"
 
42
End Sub
 
43
 
 
44
Sub CreateXmlFooter()
 
45
        Response.Write "</Connector>"
 
46
End Sub
 
47
 
 
48
Sub SendError( number, text )
 
49
        SetXmlHeaders
 
50
        
 
51
        ' Create the XML document header.
 
52
        Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
 
53
        
 
54
        Response.Write "<Connector><Error number=""" & number & """ text=""" & Server.HTMLEncode( text ) & """ /></Connector>"
 
55
        
 
56
        Response.End
 
57
End Sub
 
58
%>
 
 
b'\\ No newline at end of file'