root/trunk/midgard/apis/soap/soap.xml

<?xml version="1.0" encoding='ISO-8859-1'?>
<Database xmlns="http://www.midgard-project.org/repligard/1.4">
<host id="fd1f86f884f8ee89cdf5a468a2b87ac2" changed="20021112191121">
        <info>auth</info>
        <style>5676b2f1795977dc468cd16126a371d7</style>
        <port>0</port>
        <prefix><![CDATA[/soap]]></prefix>
        <online>1</online>
        <name>localhost</name>
        <root>e39e203c3a2ae953eea5fb5f8cac320f</root>
        <sitegroup></sitegroup>
        <owner></owner>
</host>
<page id="e39e203c3a2ae953eea5fb5f8cac320f" changed="20021112191121">
        <title><![CDATA[SOAP]]></title>
        <up></up>
        <info>auth</info>
        <style></style>
        <author>b404dbef6bcef981665e7e50db3a9617</author>
        <changed>2002-10-31</changed>
        <name><![CDATA[SOAP-Root]]></name>
        <content><![CDATA[<?

mgd_include_snippet("/MidgardSOAP/Server");

require_once 'SOAP/Server.php';

$server = new SOAP_Server();
$server->_auto_translation = false;
$server->addObjectMap(new MidgardSOAPServer(),'urn:MidgardServer');
$server->service($HTTP_RAW_POST_DATA);

?>]]></content>
        <sitegroup></sitegroup>
</page>
<style id="5676b2f1795977dc468cd16126a371d7" changed="20021112191121">
        <up></up>
        <name><![CDATA[SOAP-Style]]></name>
        <sitegroup></sitegroup>
        <owner></owner>
</style>
<snippetdir id="909ba8cc07770fcd0de58cc28bc1ceec" changed="20021112191121">
        <up></up>
        <description/>
        <name><![CDATA[MidgardSOAP]]></name>
        <sitegroup></sitegroup>
        <owner></owner>
</snippetdir>
<person id="b404dbef6bcef981665e7e50db3a9617" changed="20021112191121">
        <birthdate><![CDATA[0000-00-00]]></birthdate>
        <city/>
        <department></department>
        <office>0</office>
        <topic></topic>
        <img></img>
        <info/>
        <homepage/>
        <email/>
        <extra/>
        <creator></creator>
        <lastname><![CDATA[Midgard]]></lastname>
        <firstname><![CDATA[Administrator]]></firstname>
        <handphone/>
        <homephone/>
        <pgpkey/>
        <postcode/>
        <workphone/>
        <subtopic></subtopic>
        <created>0000-00-00 00:00:00</created>
        <username/>
        <sitegroup></sitegroup>
        <password/>
        <street/>
</person>
<element id="154e58f83f2e97664df2aee803944a42" changed="20021112191121">
        <value><![CDATA[<(content)>]]></value>
        <style>5676b2f1795977dc468cd16126a371d7</style>
        <name><![CDATA[ROOT]]></name>
        <sitegroup></sitegroup>
</element>
<snippet id="95f2520232c49332079a74136ceb4f25" changed="20021112191121">
        <code><![CDATA[<?

/* TODO:
 * - define error codes and errno()
 * - our own errstr() function
 * - rename mgd_err(no|str) to err(no|str)
 * - method for retrieving error codes?!
 */

class MidgardResultSOAP {
  var $value;
  var $type;
  var $mgd_errno;
  var $mgd_errstr;

  function MidgardResultSOAP ($value = NULL, $errno = NULL, $errstr = NULL) {
    $this->value = $value ? $value : "";
    $this->type = is_object($value) ? get_class($value) : get_class($this);
    $this->mgd_errno = $errno ? $errno : mgd_errno();
    $this->mgd_errstr = $errstr ? $errstr : mgd_errstr($this->mgd_errno);
  }

  function to_soap () {
    return new SOAP_Value("Midgard", "{MidgardSOAP}" . "MidgardResultSOAP", $this);
  }
   
}

class MidgardSOAPServer {

  function func ($func, $param, $n = 1) {
    $call_func = "mgd_${func}";
    if (!function_exists($call_func))
      return $this->__fail($call_func, -11, "Function does not exist");

    $ret = array();

    $object = call_user_func_array($call_func, $param);
    if (!$object) return $this->__fail($object, -5);
    
    if (isset($object->__res__)) {
      while ($n && $object->fetch()) {
        array_push($ret, $this->__ok($object));
        $n--;
      }
    } else {
      $ret = $this->__ok($object);
    }

    return $ret;
  }

  function meth ($meth, $object, $param = NULL) {
    if (!is_object($object))
      return $this->__fail($object, -13, "Not an Object");

    if (!array_key_exists('type', get_object_vars($object)))
      return $this->__fail("", -14, "No type");

    if (!array_key_exists('value', get_object_vars($object)))
      return $this->__fail("", -15, "No value");

    // MidgardTopic => _topic
    // MidgardPageElement => _page_element
    $type = preg_replace(
      array("/^Midgard/", "/([A-Z])/e"),
      array("",           "'_' . strtolower('\\1')"),
      $object->type);

    $call_func = "mgd_get${type}"; // Fetch pure object for this type
    if (!function_exists($call_func))
      return $this->__fail($call_func, -11, "Function does not exist");
    $o = call_user_func($call_func);

    if ($object->value) {
      foreach ($object->value as $key => $val) {
        $o->$key = $val; // copy
      }
    }
    if (!method_exists($o, $meth))
      return $this->__fail($meth, -12, "Method does not exist");
    $ret = call_user_func_array(array($o, $meth), $param);

    return $this->__ok($ret);
  }

  function ping () {
    return $this->__ok('pong');
  }

  function __ok ($value = NULL) {
    $ms = new MidgardResultSOAP($value);
    return $ms->to_soap();
  }

  function __fail ($value = NULL, $errno = -10, $errstr = NULL) {
    $ms = new MidgardResultSOAP($value, $errno, $errstr);
    return $ms->to_soap();
  }
}
?>]]></code>
        <up>909ba8cc07770fcd0de58cc28bc1ceec</up>
        <creator>b404dbef6bcef981665e7e50db3a9617</creator>
        <revised>2002-11-12 19:10:30</revised>
        <revision>139</revision>
        <author><![CDATA[Peter Suschlik]]></author>
        <doc/>
        <revisor>4b02b5d0f52538b85215dbe79dc857df</revisor>
        <name><![CDATA[Server]]></name>
        <created>2002-10-28 17:49:24</created>
        <sitegroup></sitegroup>
</snippet>
<person id="4b02b5d0f52538b85215dbe79dc857df" changed="20021112191121">
        <birthdate><![CDATA[0000-00-00]]></birthdate>
        <city/>
        <department></department>
        <office>0</office>
        <topic></topic>
        <img></img>
        <info>homepage,email,extra</info>
        <homepage><![CDATA[http://www.midgard-project.org/]]></homepage>
        <email><![CDATA[midgard@greywolves.org]]></email>
        <extra><![CDATA[Default administrator account for Midgard]]></extra>
        <creator></creator>
        <lastname><![CDATA[Administrator]]></lastname>
        <firstname><![CDATA[Midgard]]></firstname>
        <handphone/>
        <homephone/>
        <pgpkey/>
        <postcode/>
        <workphone/>
        <subtopic></subtopic>
        <created>0000-00-00 00:00:00</created>
        <username></username>
        <sitegroup></sitegroup>
        <password></password>
        <street/>
</person>
</Database>