Ticket #119: temp.php

/**
 * Lecture générique d'un header accept
 * 
 * @param   string  $string
 * @return  array   array((string) $type => (int) $preference)
 * @access  private
 */

function __http_read_all_accept($string) {
    preg_match_all('/([^,;\s]+)(?:;q=([^,]+))*/', $string, $match = array ());
    $qualities = array_pop($match);
    $types = array_pop($match);
    $exit = array();
    foreach ($types as $key => $type) {
        $exit[$type] = $qualities[$key] ? $qualities[$key] : 1;
    }
    return $exit;
}


/**
 * Retourne un tableau contenant la liste des encodings que nous proposons, qui sont acceptables par le client
 * 
 * @param   string  $string (header client)
 * @param   array   $encodings (tableau des encodings que l'on propose)
 * @return  mixed   false si rien d'acceptable, array((string) $type=>(int)
 * $preference) sinon. Le tableau éventuel est classé par ordre croissant de
 * préférence.
 * @internal   L'identité est (presque) toujours acceptable
 */

function __http_read_accept_encoding($string, $encodings) {
    $exit = false;
    $accept = __http_read_all_accept($string);
    // The identity is always acceptable
    // unless a *; q=0 exists and no explicit identity declaration
    // and unless identity; q=0 is not defined
    $exit = array ('identity' => 1);
    $accept_keys = array_keys($accept);
    if (count($accept)) {
        $all_is_defined = in_array('*', $accept_keys);
        foreach ($encodings as $encoding) {
        // If an encoding is listed, and has a quality > 0, he is acceptable
            if (in_array($encoding, $accept_keys)) {
                !$accept[$encoding] or $exit[$encoding] = $accept[$encoding];
            }
        // Else, if there exists a * encoding with a quality > 0, the encoding not explicitely listed
        // inherits it
            elseif ($all_is_defined && $accept['*']) {
                $exit[$encoding] = $accept['*'];
            }
        }
        // Treat the identity:
        // If the identity is defined:
        if(isset($accept['identity'])){
            // If q=0, unset it
            if(!$accept['identity'])
                unset($exit['identity']);
        }
        // If it's not defined, but *; q=0 is defined, also unset it
        elseif($all_is_defined && !$accept['*']){
                unset($exit['identity']);
        }
    }

    !is_array($exit) or asort($exit, SORT_NUMERIC);
    return $exit;
}