From c44c70de1ece996693ff75d3116d7fcba4936baf Mon Sep 17 00:00:00 2001
From: Romain Quetiez <romain.quetiez@combodo.com>
Date: Tue, 14 Apr 2009 13:34:43 +0000
Subject: [PATCH] Pages reorg

SVN:code[33]
---
 webservices/export.php | 73 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 webservices/export.php

diff --git a/webservices/export.php b/webservices/export.php
new file mode 100644
index 000000000..530f95279
--- /dev/null
+++ b/webservices/export.php
@@ -0,0 +1,73 @@
+<?php
+require_once('../application/application.inc.php');
+require_once('../application/webpage.class.inc.php');
+require_once('../application/csvpage.class.inc.php');
+require_once('../application/xmlpage.class.inc.php');
+
+require_once('../application/startup.inc.php');
+
+require_once('../application/loginwebpage.class.inc.php');
+login_web_page::DoLogin(); // Check user rights and prompt if needed
+
+$sOperation = utils::ReadParam('operation', 'menu');
+$oContext = new UserContext();
+$oAppContext = new ApplicationContext();
+$iActiveNodeId = utils::ReadParam('menu', -1);
+$currentOrganization = utils::ReadParam('org_id', '');
+
+// Main program
+$sExpression = utils::ReadParam('expression', '');
+$sFormat = strtolower(utils::ReadParam('format', 'html'));
+$oP = null;
+
+if (!empty($sExpression))
+{
+	try
+	{
+		$oFilter = DBObjectSearch::FromOQL($sExpression);
+		if ($oFilter)
+		{
+			$oSet = new CMDBObjectSet($oFilter);
+			switch($sFormat)
+			{
+				case 'html':
+				$oP = new web_page("iTop - Export");
+				cmdbAbstractObject::DisplaySet($oP, $oSet);
+				break;
+				
+				case 'csv':
+				$oP = new CSVPage("iTop - Export");
+				cmdbAbstractObject::DisplaySetAsCSV($oP, $oSet);
+				break;
+				
+				case 'xml':
+				$oP = new XMLPage("iTop - Export");
+				cmdbAbstractObject::DisplaySetAsXML($oP, $oSet);
+				break;
+				
+				default:
+				$oP = new web_page("iTop - Export");
+				$oP->add("Unsupported format '$sFormat'. Possible values are: html, csv or xml.");
+			}
+		}
+	}
+	catch(Exception $e)
+	{
+		$oP = new web_page("iTop - Export");
+		$oP->p("Error the query can not be executed.");		
+		$oP->p($e->GetHtmlDesc());		
+	}
+}
+if (!$oP)
+{
+	// Display a short message about how to use this page
+	$oP = new web_page("iTop - Export");
+	$oP->p("<strong>General purpose export page.</strong>");
+	$oP->p("<strong>Parameters:</strong>");
+	$oP->p("<ul><li>expression: an OQL expression (URL encoded if needed)</li>
+			    <li>format: (optional, default is html) the desired output format. Can be one of 'html', 'csv' or 'xml'</li>
+		    </ul>");
+}
+
+$oP->output();
+?>