Add 'php/phpxmlrpc/' from commit 'cd5dbb4a511e7a616a61187a5de1a611a9748cbd'
[plcapi.git] / php / phpxmlrpc / src / Helper / Charset.php
diff --git a/php/phpxmlrpc/src/Helper/Charset.php b/php/phpxmlrpc/src/Helper/Charset.php
new file mode 100644 (file)
index 0000000..4f1103b
--- /dev/null
@@ -0,0 +1,273 @@
+<?php
+
+namespace PhpXmlRpc\Helper;
+
+use PhpXmlRpc\PhpXmlRpc;
+
+class Charset
+{
+    // tables used for transcoding different charsets into us-ascii xml
+    protected $xml_iso88591_Entities = array("in" => array(), "out" => array());
+    protected $xml_iso88591_utf8 = array("in" => array(), "out" => array());
+
+    /// @todo add to iso table the characters from cp_1252 range, i.e. 128 to 159?
+    /// These will NOT be present in true ISO-8859-1, but will save the unwary
+    /// windows user from sending junk (though no luck when receiving them...)
+    /*
+    protected $xml_cp1252_Entities = array('in' => array(), out' => array(
+        '&#x20AC;', '?',        '&#x201A;', '&#x0192;',
+        '&#x201E;', '&#x2026;', '&#x2020;', '&#x2021;',
+        '&#x02C6;', '&#x2030;', '&#x0160;', '&#x2039;',
+        '&#x0152;', '?',        '&#x017D;', '?',
+        '?',        '&#x2018;', '&#x2019;', '&#x201C;',
+        '&#x201D;', '&#x2022;', '&#x2013;', '&#x2014;',
+        '&#x02DC;', '&#x2122;', '&#x0161;', '&#x203A;',
+        '&#x0153;', '?',        '&#x017E;', '&#x0178;'
+    ));
+    */
+
+    protected $charset_supersets = array(
+        'US-ASCII' => array('ISO-8859-1', 'ISO-8859-2', 'ISO-8859-3', 'ISO-8859-4',
+            'ISO-8859-5', 'ISO-8859-6', 'ISO-8859-7', 'ISO-8859-8',
+            'ISO-8859-9', 'ISO-8859-10', 'ISO-8859-11', 'ISO-8859-12',
+            'ISO-8859-13', 'ISO-8859-14', 'ISO-8859-15', 'UTF-8',
+            'EUC-JP', 'EUC-', 'EUC-KR', 'EUC-CN',),
+    );
+
+    protected static $instance = null;
+
+    /**
+     * This class is singleton for performance reasons.
+     *
+     * @return Charset
+     */
+    public static function instance()
+    {
+        if (self::$instance === null) {
+            self::$instance = new self();
+        }
+
+        return self::$instance;
+    }
+
+    private function __construct()
+    {
+        for ($i = 0; $i < 32; $i++) {
+            $this->xml_iso88591_Entities["in"][] = chr($i);
+            $this->xml_iso88591_Entities["out"][] = "&#{$i};";
+        }
+
+        for ($i = 160; $i < 256; $i++) {
+            $this->xml_iso88591_Entities["in"][] = chr($i);
+            $this->xml_iso88591_Entities["out"][] = "&#{$i};";
+        }
+
+        /*for ($i = 128; $i < 160; $i++)
+        {
+            $this->xml_cp1252_Entities['in'][] = chr($i);
+        }*/
+    }
+
+    /**
+     * Convert a string to the correct XML representation in a target charset.
+     *
+     * To help correct communication of non-ascii chars inside strings, regardless of the charset used when sending
+     * requests, parsing them, sending responses and parsing responses, an option is to convert all non-ascii chars
+     * present in the message into their equivalent 'charset entity'. Charset entities enumerated this way are
+     * independent of the charset encoding used to transmit them, and all XML parsers are bound to understand them.
+     * Note that in the std case we are not sending a charset encoding mime type along with http headers, so we are
+     * bound by RFC 3023 to emit strict us-ascii.
+     *
+     * @todo do a bit of basic benchmarking (strtr vs. str_replace)
+     * @todo make usage of iconv() or recode_string() or mb_string() where available
+     *
+     * @param string $data
+     * @param string $srcEncoding
+     * @param string $destEncoding
+     *
+     * @return string
+     */
+    public function encodeEntities($data, $srcEncoding = '', $destEncoding = '')
+    {
+        if ($srcEncoding == '') {
+            // lame, but we know no better...
+            $srcEncoding = PhpXmlRpc::$xmlrpc_internalencoding;
+        }
+
+        $conversion = strtoupper($srcEncoding . '_' . $destEncoding);
+        switch ($conversion) {
+            case 'ISO-8859-1_':
+            case 'ISO-8859-1_US-ASCII':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                $escapedData = str_replace($this->xml_iso88591_Entities['in'], $this->xml_iso88591_Entities['out'], $escapedData);
+                break;
+
+            case 'ISO-8859-1_UTF-8':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                $escapedData = utf8_encode($escapedData);
+                break;
+
+            case 'ISO-8859-1_ISO-8859-1':
+            case 'US-ASCII_US-ASCII':
+            case 'US-ASCII_UTF-8':
+            case 'US-ASCII_':
+            case 'US-ASCII_ISO-8859-1':
+            case 'UTF-8_UTF-8':
+            //case 'CP1252_CP1252':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                break;
+
+            case 'UTF-8_':
+            case 'UTF-8_US-ASCII':
+            case 'UTF-8_ISO-8859-1':
+                // NB: this will choke on invalid UTF-8, going most likely beyond EOF
+                $escapedData = '';
+                // be kind to users creating string xmlrpc values out of different php types
+                $data = (string)$data;
+                $ns = strlen($data);
+                for ($nn = 0; $nn < $ns; $nn++) {
+                    $ch = $data[$nn];
+                    $ii = ord($ch);
+                    // 7 bits: 0bbbbbbb (127)
+                    if ($ii < 128) {
+                        /// @todo shall we replace this with a (supposedly) faster str_replace?
+                        switch ($ii) {
+                            case 34:
+                                $escapedData .= '&quot;';
+                                break;
+                            case 38:
+                                $escapedData .= '&amp;';
+                                break;
+                            case 39:
+                                $escapedData .= '&apos;';
+                                break;
+                            case 60:
+                                $escapedData .= '&lt;';
+                                break;
+                            case 62:
+                                $escapedData .= '&gt;';
+                                break;
+                            default:
+                                $escapedData .= $ch;
+                        } // switch
+                    } // 11 bits: 110bbbbb 10bbbbbb (2047)
+                    elseif ($ii >> 5 == 6) {
+                        $b1 = ($ii & 31);
+                        $ii = ord($data[$nn + 1]);
+                        $b2 = ($ii & 63);
+                        $ii = ($b1 * 64) + $b2;
+                        $ent = sprintf('&#%d;', $ii);
+                        $escapedData .= $ent;
+                        $nn += 1;
+                    } // 16 bits: 1110bbbb 10bbbbbb 10bbbbbb
+                    elseif ($ii >> 4 == 14) {
+                        $b1 = ($ii & 15);
+                        $ii = ord($data[$nn + 1]);
+                        $b2 = ($ii & 63);
+                        $ii = ord($data[$nn + 2]);
+                        $b3 = ($ii & 63);
+                        $ii = ((($b1 * 64) + $b2) * 64) + $b3;
+                        $ent = sprintf('&#%d;', $ii);
+                        $escapedData .= $ent;
+                        $nn += 2;
+                    } // 21 bits: 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb
+                    elseif ($ii >> 3 == 30) {
+                        $b1 = ($ii & 7);
+                        $ii = ord($data[$nn + 1]);
+                        $b2 = ($ii & 63);
+                        $ii = ord($data[$nn + 2]);
+                        $b3 = ($ii & 63);
+                        $ii = ord($data[$nn + 3]);
+                        $b4 = ($ii & 63);
+                        $ii = ((((($b1 * 64) + $b2) * 64) + $b3) * 64) + $b4;
+                        $ent = sprintf('&#%d;', $ii);
+                        $escapedData .= $ent;
+                        $nn += 3;
+                    }
+                }
+
+                // when converting to latin-1, do not be so eager with using entities for characters 160-255
+                if ($conversion == 'UTF-8_ISO-8859-1') {
+                    $escapedData = str_replace(array_slice($this->xml_iso88591_Entities['out'], 32), array_slice($this->xml_iso88591_Entities['in'], 32), $escapedData);
+                }
+                break;
+
+            /*
+            case 'CP1252_':
+            case 'CP1252_US-ASCII':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                $escapedData = str_replace($this->xml_iso88591_Entities']['in'], $this->xml_iso88591_Entities['out'], $escapedData);
+                $escapedData = str_replace($this->xml_cp1252_Entities['in'], $this->xml_cp1252_Entities['out'], $escapedData);
+                break;
+            case 'CP1252_UTF-8':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                /// @todo we could use real UTF8 chars here instead of xml entities... (note that utf_8 encode all allone will NOT convert them)
+                $escapedData = str_replace($this->xml_cp1252_Entities['in'], $this->xml_cp1252_Entities['out'], $escapedData);
+                $escapedData = utf8_encode($escapedData);
+                break;
+            case 'CP1252_ISO-8859-1':
+                $escapedData = str_replace(array('&', '"', "'", '<', '>'), array('&amp;', '&quot;', '&apos;', '&lt;', '&gt;'), $data);
+                // we might as well replace all funky chars with a '?' here, but we are kind and leave it to the receiving application layer to decide what to do with these weird entities...
+                $escapedData = str_replace($this->xml_cp1252_Entities['in'], $this->xml_cp1252_Entities['out'], $escapedData);
+                break;
+            */
+
+            default:
+                $escapedData = '';
+                error_log('XML-RPC: ' . __METHOD__ . ": Converting from $srcEncoding to $destEncoding: not supported...");
+        }
+
+        return $escapedData;
+    }
+
+    /**
+     * Checks if a given charset encoding is present in a list of encodings or
+     * if it is a valid subset of any encoding in the list.
+     *
+     * @param string $encoding charset to be tested
+     * @param string|array $validList comma separated list of valid charsets (or array of charsets)
+     *
+     * @return bool
+     */
+    public function isValidCharset($encoding, $validList)
+    {
+        if (is_string($validList)) {
+            $validList = explode(',', $validList);
+        }
+        if (@in_array(strtoupper($encoding), $validList)) {
+            return true;
+        } else {
+            if (array_key_exists($encoding, $this->charset_supersets)) {
+                foreach ($validList as $allowed) {
+                    if (in_array($allowed, $this->charset_supersets[$encoding])) {
+                        return true;
+                    }
+                }
+            }
+
+            return false;
+        }
+    }
+
+    /**
+     * Used only for backwards compatibility
+     * @deprecated
+     *
+     * @param string $charset
+     *
+     * @return array
+     *
+     * @throws \Exception for unknown/unsupported charsets
+     */
+    public function getEntities($charset)
+    {
+        switch ($charset)
+        {
+            case 'iso88591':
+                return $this->xml_iso88591_Entities;
+            default:
+                throw new \Exception('Unsupported charset: ' . $charset);
+        }
+    }
+
+}