- support for datetime objects and timestamps for xmrlcp datetimes;
[plcapi.git] / lib / xmlrpc.inc
index 6bad30a..8974fb2 100644 (file)
                }\r
        }\r
 \r
-       // Try to be backward compat with php < 4.2 (are we not being nice ?)\r
-       $phpversion = phpversion();\r
-       if($phpversion[0] == '4' && $phpversion[2] < 2)\r
-       {\r
-               // give an opportunity to user to specify where to include other files from\r
-               if(!defined('PHP_XMLRPC_COMPAT_DIR'))\r
-               {\r
-                       define('PHP_XMLRPC_COMPAT_DIR',dirname(__FILE__).'/compat/');\r
-               }\r
-               if($phpversion[2] == '0')\r
-               {\r
-                       if($phpversion[4] < 6)\r
-                       {\r
-                               include(PHP_XMLRPC_COMPAT_DIR.'is_callable.php');\r
-                       }\r
-                       include(PHP_XMLRPC_COMPAT_DIR.'is_scalar.php');\r
-                       include(PHP_XMLRPC_COMPAT_DIR.'array_key_exists.php');\r
-                       include(PHP_XMLRPC_COMPAT_DIR.'version_compare.php');\r
-               }\r
-               include(PHP_XMLRPC_COMPAT_DIR.'var_export.php');\r
-               include(PHP_XMLRPC_COMPAT_DIR.'is_a.php');\r
-       }\r
-\r
        // G. Giunta 2005/01/29: declare global these variables,\r
        // so that xmlrpc.inc will work even if included from within a function\r
        // Milosch: 2005/08/07 - explicitly request these via $GLOBALS where used.\r
                'METHODNAME' => array('METHODCALL'),\r
                'PARAMS' => array('METHODCALL', 'METHODRESPONSE'),\r
                'FAULT' => array('METHODRESPONSE'),\r
-               'NIL' => array('VALUE') // only used when extension activated\r
+               'NIL' => array('VALUE'), // only used when extension activated\r
+               'EX:NIL' => array('VALUE') // only used when extension activated\r
        );\r
 \r
        // define extra types for supporting NULL (useful for json or <NIL/>)\r
        $GLOBALS['xmlrpc_internalencoding']='ISO-8859-1';\r
 \r
        $GLOBALS['xmlrpcName']='XML-RPC for PHP';\r
-       $GLOBALS['xmlrpcVersion']='2.2.2';\r
+       $GLOBALS['xmlrpcVersion']='3.0.0.beta';\r
 \r
        // let user errors start at 800\r
        $GLOBALS['xmlrpcerruser']=800;\r
        /// @deprecated\r
        $GLOBALS['xmlrpc_backslash']=chr(92).chr(92);\r
 \r
-       // set to TRUE to enable correct decoding of <NIL/> values\r
+       // set to TRUE to enable correct decoding of <NIL/> and <EX:NIL/> values\r
        $GLOBALS['xmlrpc_null_extension']=false;\r
 \r
+       // set to TRUE to enable encoding of php NULL values to <EX:NIL/> instead of <NIL/>\r
+       $GLOBALS['xmlrpc_null_apache_encoding']=false;\r
+\r
        // used to store state during parsing\r
        // quick explanation of components:\r
        //   ac - used to accumulate values\r
                                else\r
                                {\r
                                        $GLOBALS['_xh']['rt'] = strtolower($name);\r
+                                       $GLOBALS['_xh']['rt'] = strtolower($name);\r
                                }\r
                        }\r
                        else\r
                                        $GLOBALS['_xh']['vt']=null;\r
                                        break;\r
                                case 'NIL':\r
+                               case 'EX:NIL':\r
                                        if ($GLOBALS['xmlrpc_null_extension'])\r
                                        {\r
                                                if ($GLOBALS['_xh']['vt']!='value')\r
                                        if ($rebuild_xmlrpcvals)\r
                                        {\r
                                                // build the xmlrpc val out of the data received, and substitute it\r
-                                               $temp =& new xmlrpcval($GLOBALS['_xh']['value'], $GLOBALS['_xh']['vt']);\r
+                                               $temp = new xmlrpcval($GLOBALS['_xh']['value'], $GLOBALS['_xh']['vt']);\r
                                                // in case we got info about underlying php class, save it\r
                                                // in the object we're rebuilding\r
                                                if (isset($GLOBALS['_xh']['php_class']))\r
                                        $GLOBALS['_xh']['method']=preg_replace('/^[\n\r\t ]+/', '', $GLOBALS['_xh']['ac']);\r
                                        break;\r
                                case 'NIL':\r
+                               case 'EX:NIL':\r
                                        if ($GLOBALS['xmlrpc_null_extension'])\r
                                        {\r
                                                $GLOBALS['_xh']['vt']='null';\r
                        }\r
 \r
                        // keepalives: enabled by default ONLY for PHP >= 4.3.8\r
-                       // (see http://curl.haxx.se/docs/faq.html#7.3)\r
-                       if(version_compare(phpversion(), '4.3.8') >= 0)\r
-                       {\r
-                               $this->keepalive = true;\r
-                       }\r
+                       $this->keepalive = true;\r
 \r
                        // by default the xml parser can support these 3 charset encodings\r
                        $this->accepted_charset_encodings = array('UTF-8', 'ISO-8859-1', 'US-ASCII');\r
                        }\r
                        elseif(is_string($msg))\r
                        {\r
-                               $n =& new xmlrpcmsg('');\r
+                               $n = new xmlrpcmsg('');\r
                                $n->payload = $msg;\r
                                $msg = $n;\r
                        }\r
                        else\r
                        {\r
                                $this->errstr='Connect error: '.$this->errstr;\r
-                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $this->errstr . ' (' . $this->errno . ')');\r
+                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $this->errstr . ' (' . $this->errno . ')');\r
                                return $r;\r
                        }\r
 \r
                        if(!fputs($fp, $op, strlen($op)))\r
                        {\r
-                       fclose($fp);\r
+                               fclose($fp);\r
                                $this->errstr='Write error';\r
-                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $this->errstr);\r
+                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $this->errstr);\r
                                return $r;\r
                        }\r
                        else\r
                        if(!function_exists('curl_init'))\r
                        {\r
                                $this->errstr='CURL unavailable on this install';\r
-                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_curl'], $GLOBALS['xmlrpcstr']['no_curl']);\r
+                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_curl'], $GLOBALS['xmlrpcstr']['no_curl']);\r
                                return $r;\r
                        }\r
                        if($method == 'https')\r
                                        ((is_string($info) && strpos($info, 'OpenSSL') === null) || (is_array($info) && !isset($info['ssl_version']))))\r
                                {\r
                                        $this->errstr='SSL unavailable on this install';\r
-                                       $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_ssl'], $GLOBALS['xmlrpcstr']['no_ssl']);\r
+                                       $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_ssl'], $GLOBALS['xmlrpcstr']['no_ssl']);\r
                                        return $r;\r
                                }\r
                        }\r
                        if(!$result) /// @todo we should use a better check here - what if we get back '' or '0'?\r
                        {\r
                                $this->errstr='no response';\r
-                               $resp=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['curl_fail'], $GLOBALS['xmlrpcstr']['curl_fail']. ': '. curl_error($curl));\r
+                               $resp=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['curl_fail'], $GLOBALS['xmlrpcstr']['curl_fail']. ': '. curl_error($curl));\r
                                curl_close($curl);\r
                                if($keepalive)\r
                                {\r
                                                }\r
                                                else\r
                                                {\r
-                                                       $result =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['multicall_error'], $GLOBALS['xmlrpcstr']['multicall_error']);\r
+                                                       $result = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['multicall_error'], $GLOBALS['xmlrpcstr']['multicall_error']);\r
                                                }\r
                                        }\r
                                }\r
                        $calls = array();\r
                        foreach($msgs as $msg)\r
                        {\r
-                               $call['methodName'] =& new xmlrpcval($msg->method(),'string');\r
+                               $call['methodName'] = new xmlrpcval($msg->method(),'string');\r
                                $numParams = $msg->getNumParams();\r
                                $params = array();\r
                                for($i = 0; $i < $numParams; $i++)\r
                                {\r
                                        $params[$i] = $msg->getParam($i);\r
                                }\r
-                               $call['params'] =& new xmlrpcval($params, 'array');\r
-                               $calls[] =& new xmlrpcval($call, 'struct');\r
+                               $call['params'] = new xmlrpcval($params, 'array');\r
+                               $calls[] = new xmlrpcval($call, 'struct');\r
                        }\r
-                       $multicall =& new xmlrpcmsg('system.multicall');\r
+                       $multicall = new xmlrpcmsg('system.multicall');\r
                        $multicall->addParam(new xmlrpcval($calls, 'array'));\r
 \r
                        // Attempt RPC call\r
                                                                return false;           // Bad value\r
                                                        }\r
                                                        // Normal return value\r
-                                                       $response[$i] =& new xmlrpcresp($val[0], 0, '', 'phpvals');\r
+                                                       $response[$i] = new xmlrpcresp($val[0], 0, '', 'phpvals');\r
                                                        break;\r
                                                case 2:\r
                                                        ///     @todo remove usage of @: it is apparently quite slow\r
                                                        {\r
                                                                return false;\r
                                                        }\r
-                                                       $response[$i] =& new xmlrpcresp(0, $code, $str);\r
+                                                       $response[$i] = new xmlrpcresp(0, $code, $str);\r
                                                        break;\r
                                                default:\r
                                                        return false;\r
                                                                return false;           // Bad value\r
                                                        }\r
                                                        // Normal return value\r
-                                                       $response[$i] =& new xmlrpcresp($val->arraymem(0));\r
+                                                       $response[$i] = new xmlrpcresp($val->arraymem(0));\r
                                                        break;\r
                                                case 'struct':\r
                                                        $code = $val->structmem('faultCode');\r
                                                        {\r
                                                                return false;\r
                                                        }\r
-                                                       $response[$i] =& new xmlrpcresp(0, $code->scalarval(), $str->scalarval());\r
+                                                       $response[$i] = new xmlrpcresp(0, $code->scalarval(), $str->scalarval());\r
                                                        break;\r
                                                default:\r
                                                        return false;\r
@@ -2208,7 +2188,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                * Given an open file handle, read all data available and parse it as axmlrpc response.\r
                * NB: the file handle is not closed by this function.\r
                * NNB: might have trouble in rare cases to work on network streams, as we\r
-        *      check for a read of 0 bytes instead of feof($fp).\r
+               *      check for a read of 0 bytes instead of feof($fp).\r
                *      But since checking for feof(null) returns false, we would risk an\r
                *      infinite loop in that case, because we cannot trust the caller\r
                *      to give us a valid pointer to an open file...\r
@@ -2266,7 +2246,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                        else\r
                                        {\r
                                                error_log('XML-RPC: xmlrpcmsg::parseResponse: HTTPS via proxy error, tunnel connection possibly failed');\r
-                                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $GLOBALS['xmlrpcstr']['http_error']. ' (HTTPS via proxy error, tunnel connection possibly failed)');\r
+                                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $GLOBALS['xmlrpcstr']['http_error']. ' (HTTPS via proxy error, tunnel connection possibly failed)');\r
                                                return $r;\r
                                        }\r
                                }\r
@@ -2287,7 +2267,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                {\r
                                        $errstr= substr($data, 0, strpos($data, "\n")-1);\r
                                        error_log('XML-RPC: xmlrpcmsg::parseResponse: HTTP error, got response: ' .$errstr);\r
-                                       $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $GLOBALS['xmlrpcstr']['http_error']. ' (' . $errstr . ')');\r
+                                       $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['http_error'], $GLOBALS['xmlrpcstr']['http_error']. ' (' . $errstr . ')');\r
                                        return $r;\r
                                }\r
 \r
@@ -2316,7 +2296,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                        }\r
                                }\r
                                // be tolerant to line endings, and extra empty lines\r
-                               $ar = split("\r?\n", trim(substr($data, 0, $pos)));\r
+                               $ar = preg_split("/\r?\n/", trim(substr($data, 0, $pos)));\r
                                while(list(,$line) = @each($ar))\r
                                {\r
                                        // take care of multi-line headers and cookies\r
@@ -2412,7 +2392,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                if(!$data = decode_chunked($data))\r
                                                {\r
                                                        error_log('XML-RPC: xmlrpcmsg::parseResponse: errors occurred when trying to rebuild the chunked data received from server');\r
-                                                       $r =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['dechunk_fail'], $GLOBALS['xmlrpcstr']['dechunk_fail']);\r
+                                                       $r = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['dechunk_fail'], $GLOBALS['xmlrpcstr']['dechunk_fail']);\r
                                                        return $r;\r
                                                }\r
                                        }\r
@@ -2442,14 +2422,14 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                                else\r
                                                                {\r
                                                                        error_log('XML-RPC: xmlrpcmsg::parseResponse: errors occurred when trying to decode the deflated data received from server');\r
-                                                                       $r =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['decompress_fail'], $GLOBALS['xmlrpcstr']['decompress_fail']);\r
+                                                                       $r = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['decompress_fail'], $GLOBALS['xmlrpcstr']['decompress_fail']);\r
                                                                        return $r;\r
                                                                }\r
                                                        }\r
                                                        else\r
                                                        {\r
                                                                error_log('XML-RPC: xmlrpcmsg::parseResponse: the server sent deflated data. Your php install must have the Zlib extension compiled in to support this.');\r
-                                                               $r =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['cannot_decompress'], $GLOBALS['xmlrpcstr']['cannot_decompress']);\r
+                                                               $r = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['cannot_decompress'], $GLOBALS['xmlrpcstr']['cannot_decompress']);\r
                                                                return $r;\r
                                                        }\r
                                                }\r
@@ -2481,7 +2461,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                        if($data == '')\r
                        {\r
                                error_log('XML-RPC: xmlrpcmsg::parseResponse: no response received from server.');\r
-                               $r =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_data'], $GLOBALS['xmlrpcstr']['no_data']);\r
+                               $r = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['no_data'], $GLOBALS['xmlrpcstr']['no_data']);\r
                                return $r;\r
                        }\r
 \r
@@ -2541,7 +2521,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                        // if user wants back raw xml, give it to him\r
                        if ($return_type == 'xml')\r
                        {\r
-                               $r =& new xmlrpcresp($data, 0, '', 'xml');\r
+                               $r = new xmlrpcresp($data, 0, '', 'xml');\r
                                $r->hdrs = $GLOBALS['_xh']['headers'];\r
                                $r->_cookies = $GLOBALS['_xh']['cookies'];\r
                                $r->raw_data = $raw_data;\r
@@ -2613,7 +2593,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                xml_get_current_line_number($parser), xml_get_current_column_number($parser));\r
                                }\r
                                error_log($errstr);\r
-                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'], $GLOBALS['xmlrpcstr']['invalid_return'].' ('.$errstr.')');\r
+                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'], $GLOBALS['xmlrpcstr']['invalid_return'].' ('.$errstr.')');\r
                                xml_parser_free($parser);\r
                                if($this->debug)\r
                                {\r
@@ -2633,7 +2613,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                        /// @todo echo something for user?\r
                                }\r
 \r
-                               $r =& new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'],\r
+                               $r = new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'],\r
                                $GLOBALS['xmlrpcstr']['invalid_return'] . ' ' . $GLOBALS['_xh']['isf_reason']);\r
                        }\r
                        // third error check: parsing of the response has somehow gone boink.\r
@@ -2643,7 +2623,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                // something odd has happened\r
                                // and it's time to generate a client side error\r
                                // indicating something odd went on\r
-                               $r=&new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'],\r
+                               $r=new xmlrpcresp(0, $GLOBALS['xmlrpcerr']['invalid_return'],\r
                                        $GLOBALS['xmlrpcstr']['invalid_return']);\r
                        }\r
                        else\r
@@ -2683,11 +2663,11 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                $errno = -1;\r
                                        }\r
 \r
-                                       $r =& new xmlrpcresp(0, $errno, $errstr);\r
+                                       $r = new xmlrpcresp(0, $errno, $errstr);\r
                                }\r
                                else\r
                                {\r
-                                       $r=&new xmlrpcresp($v, 0, '', $return_type);\r
+                                       $r=new xmlrpcresp($v, 0, '', $return_type);\r
                                }\r
                        }\r
 \r
@@ -2778,8 +2758,8 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                        }\r
 \r
                        // coerce booleans into correct values\r
-                       // NB: we should iether do it for datetimes, integers and doubles, too,\r
-                       // or just plain remove this check, implemnted on booleans only...\r
+                       // NB: we should either do it for datetimes, integers and doubles, too,\r
+                       // or just plain remove this check, implemented on booleans only...\r
                        if($type==$GLOBALS['xmlrpcBoolean'])\r
                        {\r
                                if(strcasecmp($val,'true')==0 || $val==1 || ($val==true && strcasecmp($val,'false')))\r
@@ -2803,10 +2783,10 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                case 2:\r
                                        // we're adding a scalar value to an array here\r
                                        //$ar=$this->me['array'];\r
-                                       //$ar[]=&new xmlrpcval($val, $type);\r
+                                       //$ar[]=new xmlrpcval($val, $type);\r
                                        //$this->me['array']=$ar;\r
                                        // Faster (?) avoid all the costly array-copy-by-val done here...\r
-                                       $this->me['array'][]=&new xmlrpcval($val, $type);\r
+                                       $this->me['array'][]=new xmlrpcval($val, $type);\r
                                        return 1;\r
                                default:\r
                                        // a scalar, so set the value and remember we're scalar\r
@@ -2941,15 +2921,41 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                        $rs.="<${typ}>".(int)$val."</${typ}>";\r
                                                        break;\r
                                                case $GLOBALS['xmlrpcDouble']:\r
-                                               // avoid using standard conversion of float to string because it is locale-dependent,\r
-                                               // and also because the xmlrpc spec forbids exponential notation\r
-                                               // sprintf('%F') would be most likely ok but it is only available since PHP 4.3.10 and PHP 5.0.3.\r
-                                               // The code below tries its best at keeping max precision while avoiding exp notation,\r
-                                               // but there is of course no limit in the number of decimal places to be used...\r
-                                               $rs.="<${typ}>".preg_replace('/\\.?0+$/','',number_format((double)$val, 128, '.', ''))."</${typ}>";\r
+                                                       // avoid using standard conversion of float to string because it is locale-dependent,\r
+                                                       // and also because the xmlrpc spec forbids exponential notation\r
+                                                       // sprintf('%F') would be most likely ok but it is only available since PHP 4.3.10 and PHP 5.0.3.\r
+                                                       // The code below tries its best at keeping max precision while avoiding exp notation,\r
+                                                       // but there is of course no limit in the number of decimal places to be used...\r
+                                                       $rs.="<${typ}>".preg_replace('/\\.?0+$/','',number_format((double)$val, 128, '.', ''))."</${typ}>";\r
+                                                       break;\r
+                                               case $GLOBALS['xmlrpcDateTime']:\r
+                                                       if (is_string($val))\r
+                                                       {\r
+                                                               $rs.="<${typ}>${val}</${typ}>";\r
+                                                       }\r
+                                                       else if(is_a($val, 'DateTime'))\r
+                                                       {\r
+                                                               $rs.="<${typ}>".$val->format('Ymd\TH:i:s')."</${typ}>";\r
+                                                       }\r
+                                                       else if(is_int($val))\r
+                                                       {\r
+                                                               $rs.="<${typ}>".strftime("%Y%m%dT%H:%M:%S", $val)."</${typ}>";\r
+                                                       }\r
+                                                       else\r
+                                                       {\r
+                                                               // not really a good idea here: but what shall we output anyway? left for backward compat...\r
+                                                               $rs.="<${typ}>${val}</${typ}>";\r
+                                                       }\r
                                                        break;\r
                                                case $GLOBALS['xmlrpcNull']:\r
-                                                       $rs.="<nil/>";\r
+                                                       if ($GLOBALS['xmlrpc_null_apache_encoding'])\r
+                                                       {\r
+                                                               $rs.="<ex:nil/>";\r
+                                                       }\r
+                                                       else\r
+                                                       {\r
+                                                               $rs.="<nil/>";\r
+                                                       }\r
                                                        break;\r
                                                default:\r
                                                        // no standard type value should arrive here, but provide a possibility\r
@@ -3249,7 +3255,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
        * @author Dan Libby (dan@libby.com)\r
        *\r
        * @param xmlrpcval $xmlrpc_val\r
-       * @param array $options if 'decode_php_objs' is set in the options array, xmlrpc structs can be decoded into php objects\r
+       * @param array $options if 'decode_php_objs' is set in the options array, xmlrpc structs can be decoded into php objects; if 'dates_as_objects' is set xmlrpc datetimes are decoded as php DateTime objects (standard is\r
        * @return mixed\r
        */\r
        function php_xmlrpc_decode($xmlrpc_val, $options=array())\r
@@ -3276,6 +3282,27 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                                        return $xmlrpc_val->scalarval();\r
                                        }\r
                                }\r
+                               if (in_array('dates_as_objects', $options) && $xmlrpc_val->scalartyp() == 'dateTime.iso8601')\r
+                               {\r
+                                       // we return a Datetime object instead of a string\r
+                                       // since now the constructor of xmlrpcval accepts safely strings, ints and datetimes,\r
+                                       // we cater to all 3 cases here\r
+                                       $out = $xmlrpc_val->scalarval();\r
+                                       if (is_string($out))\r
+                                       {\r
+                                               $out= strtotime($out);\r
+                                       }\r
+                                       if (is_int($out))\r
+                                       {\r
+                                               $result = new Datetime();\r
+                                               $result->setTimestamp($out);\r
+                                               return $result;\r
+                                       }\r
+                                       elseif (is_a($out, 'Datetime'))\r
+                                       {\r
+                                               return $out;\r
+                                       }\r
+                               }\r
                                return $xmlrpc_val->scalarval();\r
                        case 'array':\r
                                $size = $xmlrpc_val->arraysize();\r
@@ -3357,20 +3384,20 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                {\r
                        case 'string':\r
                                if (in_array('auto_dates', $options) && preg_match('/^[0-9]{8}T[0-9]{2}:[0-9]{2}:[0-9]{2}$/', $php_val))\r
-                                       $xmlrpc_val =& new xmlrpcval($php_val, $GLOBALS['xmlrpcDateTime']);\r
+                                       $xmlrpc_val = new xmlrpcval($php_val, $GLOBALS['xmlrpcDateTime']);\r
                                else\r
-                                       $xmlrpc_val =& new xmlrpcval($php_val, $GLOBALS['xmlrpcString']);\r
+                                       $xmlrpc_val = new xmlrpcval($php_val, $GLOBALS['xmlrpcString']);\r
                                break;\r
                        case 'integer':\r
-                               $xmlrpc_val =& new xmlrpcval($php_val, $GLOBALS['xmlrpcInt']);\r
+                               $xmlrpc_val = new xmlrpcval($php_val, $GLOBALS['xmlrpcInt']);\r
                                break;\r
                        case 'double':\r
-                               $xmlrpc_val =& new xmlrpcval($php_val, $GLOBALS['xmlrpcDouble']);\r
+                               $xmlrpc_val = new xmlrpcval($php_val, $GLOBALS['xmlrpcDouble']);\r
                                break;\r
                                // <G_Giunta_2001-02-29>\r
                                // Add support for encoding/decoding of booleans, since they are supported in PHP\r
                        case 'boolean':\r
-                               $xmlrpc_val =& new xmlrpcval($php_val, $GLOBALS['xmlrpcBoolean']);\r
+                               $xmlrpc_val = new xmlrpcval($php_val, $GLOBALS['xmlrpcBoolean']);\r
                                break;\r
                                // </G_Giunta_2001-02-29>\r
                        case 'array':\r
@@ -3393,11 +3420,11 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                }\r
                                if($ko)\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval($arr, $GLOBALS['xmlrpcStruct']);\r
+                                       $xmlrpc_val = new xmlrpcval($arr, $GLOBALS['xmlrpcStruct']);\r
                                }\r
                                else\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval($arr, $GLOBALS['xmlrpcArray']);\r
+                                       $xmlrpc_val = new xmlrpcval($arr, $GLOBALS['xmlrpcArray']);\r
                                }\r
                                break;\r
                        case 'object':\r
@@ -3405,6 +3432,10 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                {\r
                                        $xmlrpc_val = $php_val;\r
                                }\r
+                               else if(is_a($php_val, 'DateTime'))\r
+                               {\r
+                                       $xmlrpc_val = new xmlrpcval($php_val->format('Ymd\TH:i:s'), $GLOBALS['xmlrpcStruct']);\r
+                               }\r
                                else\r
                                {\r
                                        $arr = array();\r
@@ -3412,7 +3443,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                        {\r
                                                $arr[$k] = php_xmlrpc_encode($v, $options);\r
                                        }\r
-                                       $xmlrpc_val =& new xmlrpcval($arr, $GLOBALS['xmlrpcStruct']);\r
+                                       $xmlrpc_val = new xmlrpcval($arr, $GLOBALS['xmlrpcStruct']);\r
                                        if (in_array('encode_php_objs', $options))\r
                                        {\r
                                                // let's save original class name into xmlrpcval:\r
@@ -3424,32 +3455,32 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                        case 'NULL':\r
                                if (in_array('extension_api', $options))\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval('', $GLOBALS['xmlrpcString']);\r
+                                       $xmlrpc_val = new xmlrpcval('', $GLOBALS['xmlrpcString']);\r
                                }\r
-                               if (in_array('null_extension', $options))\r
+                               else if (in_array('null_extension', $options))\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval('', $GLOBALS['xmlrpcNull']);\r
+                                       $xmlrpc_val = new xmlrpcval('', $GLOBALS['xmlrpcNull']);\r
                                }\r
                                else\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval();\r
+                                       $xmlrpc_val = new xmlrpcval();\r
                                }\r
                                break;\r
                        case 'resource':\r
                                if (in_array('extension_api', $options))\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval((int)$php_val, $GLOBALS['xmlrpcInt']);\r
+                                       $xmlrpc_val = new xmlrpcval((int)$php_val, $GLOBALS['xmlrpcInt']);\r
                                }\r
                                else\r
                                {\r
-                                       $xmlrpc_val =& new xmlrpcval();\r
+                                       $xmlrpc_val = new xmlrpcval();\r
                                }\r
                        // catch "user function", "unknown type"\r
                        default:\r
                                // giancarlo pinerolo <ping@alt.it>\r
                                // it has to return\r
                                // an empty object in case, not a boolean.\r
-                               $xmlrpc_val =& new xmlrpcval();\r
+                               $xmlrpc_val = new xmlrpcval();\r
                                break;\r
                        }\r
                        return $xmlrpc_val;\r
@@ -3513,15 +3544,15 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                                {\r
                                        $vc = $v->structmem('faultCode');\r
                                        $vs = $v->structmem('faultString');\r
-                                       $r =& new xmlrpcresp(0, $vc->scalarval(), $vs->scalarval());\r
+                                       $r = new xmlrpcresp(0, $vc->scalarval(), $vs->scalarval());\r
                                }\r
                                else\r
                                {\r
-                                       $r =& new xmlrpcresp($v);\r
+                                       $r = new xmlrpcresp($v);\r
                                }\r
                                return $r;\r
                        case 'methodcall':\r
-                               $m =& new xmlrpcmsg($GLOBALS['_xh']['method']);\r
+                               $m = new xmlrpcmsg($GLOBALS['_xh']['method']);\r
                                for($i=0; $i < count($GLOBALS['_xh']['params']); $i++)\r
                                {\r
                                        $m->addParam($GLOBALS['_xh']['params'][$i]);\r
@@ -3616,7 +3647,7 @@ xmlrpc_encode_entitites($this->errstr, $GLOBALS['xmlrpc_internalencoding'], $cha
                // Note: we do not check for invalid chars in VALUE:\r
                //   this had better be done using pure ereg as below\r
                // Note 2: we might be removing whitespace/tabs that ought to be left in if\r
-        //   the received charset is a quoted string. But nobody uses such charset names...\r
+               //   the received charset is a quoted string. But nobody uses such charset names...\r
 \r
                /// @todo this test will pass if ANY header has charset specification, not only Content-Type. Fix it?\r
                $matches = array();\r