root/trunk/midgard/apis/soap/midgard-soap.php

<?php
    require_once 'SOAP/Server.php';

    define("MGD_SOAP_ERR_OK", 0);
    define("MGD_SOAP_ERR_ERROR", -10);
    define("MGD_SOAP_ERR_OBJ_NOEXISTS", -5);
    define("MGD_SOAP_ERR_FUNCTION_NOEXISTS", -11);
    define("MGD_SOAP_ERR_METHOD_NOEXISTS", -12);
    define("MGD_SOAP_ERR_NO_OBJ", -13);
    define("MGD_SOAP_ERR_NO_TYPE", -14);
    define("MGD_SOAP_ERR_NO_VALUE", -15);

class MidgardResultSOAP
{
    var $value;
    var $type;
    var $_errno;
    var $_errstr;

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

        if ($errno) {
            $this->_errno = $errno;
            $this->_errstr = $this->errstr();
        } else {
            $this->_errno = mgd_errno();
            $this->_errstr = mgd_errstr($this->_errno);
        }
    }

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

    function errno()
    {
        return $this->_errno;
    }

    function errstr()
    {
        switch ($this->_errno) {
            case MGD_SOAP_ERR_OK:
                $errstr = "No Error";
            case MGD_SOAP_ERR_OBJ_NOEXISTS:
                $errstr = "Object doesn't exist";
                break;
            case MGD_SOAP_ERR_FUNCTION_NOEXISTS:
                $errstr = "Function does not exist";
                break;
            case MGD_SOAP_ERR_METHOD_NOEXISTS:
                $errstr = "Method does not exist";
                break;
            case MGD_SOAP_ERR_NO_OBJ:
                $errstr = "Not an object";
                break;
            case MGD_SOAP_ERR_NO_TYPE:
                $errstr = "No type";
                break;
            case MGD_SOAP_ERR_NO_VALUE:
                $errstr = "No value";
                break;
            case MGD_SOAP_ERR_ERROR:
            default:
                $errstr = "Other error";
        }

        return $errstr;
    }
}

class MidgardSOAPServer
{
    function func($func, $param, $limit = 1)
    {
        $call_func = "mgd_".$func;

        if (!function_exists($call_func))
            return $this->__fail($call_func, MGD_SOAP_ERR_FUNCTION_NOEXISTS);

        if (!$object = call_user_func_array($call_func, $param))
            return $this->__fail($object, MGD_SOAP_ERR_OBJ_NOEXISTS);

        if (isset($object->__res__)) {
            // This is a list!
            $ret = array();

            while ($limit-- > 0 and $object->fetch()) {
                $ret[] = $this->__ok($object);
            }
        } else {
            $ret = $this->__ok($object);
        }

        return $ret;
    }

    function meth($meth, $object, $param = NULL, $limit = 1)
    {
        if (!is_object($object))
            return $this->__fail($object, MGD_SOAP_ERR_NO_OBJ);

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

        if (!array_key_exists('value', get_object_vars($object)))
            return $this->__fail("", MGD_SOAP_ERR_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, MGD_SOAP_ERR_FUNCTION_NOEXISTS);

        $o = call_user_func($call_func); // get an empty object

        if (!method_exists($o, $meth))
            return $this->__fail($meth, MGD_SOAP_ERR_METHOD_NOEXISTS);

        if ($object->value) {
            foreach ($object->value as $key => $val) {
                $o->$key = $val; // fill the values of out object
            }
        }

        $result = call_user_func_array(array($o, $meth), $param);

        if (isset($result->__res__)) {
            // This is a list!
            $ret = array();

            while ($limit-- > 0 and $result->fetch()) {
                $ret[] = $this->__ok($result);
            }
        } else {
            $ret = $this->__ok($result);
        }

        return $ret;
    }

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

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

    function __fail($value = NULL, $errno = MGD_SOAP_ERR_ERROR)
    {
        $ms = new MidgardResultSOAP($value, $errno);
        return $ms->to_soap();
    }
}

    $server = new SOAP_Server();

    if (isset($_GET["charset"]) and $_GET["charset"] == 'utf-8')
        $server->response_encoding = 'UTF-8';
    else
        $server->response_encoding = 'ISO-8859-1';

    $server->addObjectMap(new MidgardSOAPServer(),'urn:MidgardServer');
    $server->service($HTTP_RAW_POST_DATA);
?>