<?
  
  // PLEASE CHANGE THIS TO POINT TO YOUR XINDICE SERVER
  $server="localhost";$port=4080;
  $base="/db";\; include\_once("class\_xindice.php");\; print("$<table width='600' bgcolor='#9999cc' border='1' bordercolor='#000000'><tr><td><h3>Testing Xindice</h3></td></tr></table><br />");
  
  // Create the Xindice access object
  xi=new Xindice("$server",$port);
  if(!$xi)\; \{\; die("Cannot\; create\; Xindice\; object,\; checkservernameand\; port$<br />");
  }
  xi->setXmlRpcDebug(0);
  
  // Create a collection "pepe" under db 
  $xi->createCollection($base,"pepe");
  
  // Insert a sample document there
  $a\_doc=\text{'}$<cosa>
    <person>
      <name>Foo</name>
      <age>10</age>
    </person>
    <person>
      <name>Goo</name>
      <age>83</age>
    </person>
  </cosa>';
  xi->insertDocument("$base/pepe","cosa",$a_doc);
  
  // List collections under base, should be an Array with "system" and "pepe"
  $cols=$xi->listCollections($base);\; print("$<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td colspan='2' bgcolor='#9999cc'>Collections under base:</td></tr>");
  foreach($cols\; as$col) {
    print("<tr><td>Collection</td><td>$col$</td></tr>");
  }
  print("</table><br/>");
  
  // List number of documents under base/pepe should be 1 (the inserted doc)
  tot=$xi->getDocumentCount($base."/pepe");
    print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Documents in $base/pepe:$tot</td></tr>");
  if($tot==1)\; \{\; print("$<tr><td>Test passed ok</td></tr></table>");
  }
  print("<br/>");
  
  // List the documents under base/pepe should be "cosa"
  docs=$xi->listDocuments($base."/pepe");
  print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td colspan='2' bgcolor='#9999cc'>Documents in $base/pepe:$tot</td></tr>");
  foreach($docs\; as$doc) {
    print("<tr><td>Document</td><td>$doc$</td></tr></table>");
  }
  print("<br/>");
  
  // Retrieve the "cosa" document
  cosa=$xi->getDocument($base."/pepe","cosa");
  print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Document  cosa:</td></tr>");
  print("<tr><td><textarea rows='11' cols='40'>$cosa$</textarea></td></tr></table>");
  print("<br />");
  
  // Remove the document
  xi->removeDocument($base."/pepe","cosa");$// List number of documents under base/pepe should be 0
  tot=$xi->getDocumentCount($base."/pepe");
  print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Documents in $base/pepe\; after\; removal:$tot</td></tr>");
  if($tot==0)\; \{\; print("$<tr><td>Test passed ok</td></tr></table>");
  }
  print("<br />");
  
  // Re-insert the document
  xi->insertDocument($base."/pepe","cosa",$cosa);
  
  // Make an Xpath query on the collection
  $query=$xi->queryCollection($base."/pepe","XPath","$//name");
  print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Query result (queryCollection):</td></tr>");
  print("<tr><td><textarea rows='11' cols='40'>query</textarea></td></tr></table>");
  print("<br />");
  
  // And the document
  $query=$xi->queryDocument($base."/pepe","XPath","$//name","cosa");
  print("<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Query result (queryDocument):</td></tr>");
  print("<tr><td><textarea rows='11' cols='40'>query</textarea></td></tr></table>");
  print("<br />");
  
  // An Xupdate modification
  $modification=\text{'}$<?xml version="1.0"?>  <xupdate:modifications version="1.0" xmlns:xupdate="http://www.xmldb.org/xupdate">    <xupdate:insert-after select="/cosa/person[1]" > <xupdate:element name="person"><name>Pirincho</name><age>2</age></xupdate:element></xupdate:insert-after></xupdate:modifications>
  ';
  query=$xi->queryDocument($base."/pepe","XUpdate","$modification","cosa");$// Retrieve the updated document
  cosa=$xi->getDocument("/db/pepe","cosa");\; print("$<table width='600' bgcolor='#ccccff' border='1' bordercolor='#000000'><tr><td bgcolor='#9999cc'>Updated document:</td></tr>");
  print("<tr><td><textarea rows='11' cols='40'>cosa</textarea></td></tr></table>");
  print("<br />");
  
  // Drop the test collection
  //$xi->dropCollection($base."/pepe");
  ?>