Subversion Repositories Applications.papyrus

Rev

Rev 775 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 775 Rev 2100
1 
<?php
 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
 3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
 4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
 5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
 6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
 7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
 8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
 9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
 10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
 11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
 12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
 13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
 14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
 15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
 16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
 17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
 18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
 19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
 21 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: pap_compression.fonct.php,v 1.3 2006-03-15 09:30:50 florian Exp $
 22 
// CVS : $Id: pap_compression.fonct.php,v 1.3 2006-03-15 09:30:50 florian Exp $
23 
/**
 23 
/**
24 
* Bibliothèque de fonction de compression et d'envoi de données.
 24 
* Bibliothèque de fonction de compression et d'envoi de données.
25 
*
 25 
*
26 
* Cette bibliothèque contient toutes les fonctions nécessaires à l'envoi de
 26 
* Cette bibliothèque contient toutes les fonctions nécessaires à l'envoi de
27 
* données au navigateur client. Cela consiste donc à vérifier le support de
 27 
* données au navigateur client. Cela consiste donc à vérifier le support de
28 
* la compression par le navigateur du client et à compresser puis envoyer ces donées.
 28 
* la compression par le navigateur du client et à compresser puis envoyer ces donées.
29 
*
 29 
*
30 
*@package Papyrus
 30 
*@package Papyrus
31 
*@subpackage Fonctions
 31 
*@subpackage Fonctions
32 
//Auteur original :
 32 
//Auteur original :
33 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
 33 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34 
//Autres auteurs :
 34 
//Autres auteurs :
35 
*@author        Aucun
 35 
*@author        Aucun
36 
*@copyright     Tela-Botanica 2000-2004
 36 
*@copyright     Tela-Botanica 2000-2004
37 
*@version       $Revision: 1.3 $ $Date: 2006-03-15 09:30:50 $
 37 
*@version       $Revision: 1.3 $ $Date: 2006-03-15 09:30:50 $
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
 39 
*/
40 
 
 40 
 
41 
// +------------------------------------------------------------------------------------------------------+
 41 
// +------------------------------------------------------------------------------------------------------+
42 
// |                                           LISTE de FONCTIONS                                         |
 42 
// |                                           LISTE de FONCTIONS                                         |
43 
// +------------------------------------------------------------------------------------------------------+
 43 
// +------------------------------------------------------------------------------------------------------+
44 
 
 44 
 
45 
 
 45 
 
46 
/** Fonction GEN_compresserDonneesZLIB() - Compresse des données si nécessaire et les retourne.
 46 
/** Fonction GEN_compresserDonneesZLIB() - Compresse des données si nécessaire et les retourne.
47 
*
 47 
*
48 
* Si les données sont plus grandes que 2048 caractères nous compressons et nous les retournons
 48 
* Si les données sont plus grandes que 2048 caractères nous compressons et nous les retournons
49 
* compressées. Si la compression est un echec false est retourné. Si le nombre de caractères des
 49 
* compressées. Si la compression est un echec false est retourné. Si le nombre de caractères des
50 
* données à compresser ou que l'extension ZLIB n'est pas présente, la valeur vide est retournée.
 50 
* données à compresser ou que l'extension ZLIB n'est pas présente, la valeur vide est retournée.
51 
*
 51 
*
52 
* @param   string données à compresser.
 52 
* @param   string données à compresser.
53 
* @param   int    taux de compression à utiliser.
 53 
* @param   int    taux de compression à utiliser.
54 
* @param   int    nombre de caractères minimums que doivent comporter les données pour être compressé.
 54 
* @param   int    nombre de caractères minimums que doivent comporter les données pour être compressé.
55 
* @return  mixed  données compressées, "false" si la compression échoue, void s'il n'est pas nécessaire de compresser.
 55 
* @return  mixed  données compressées, "false" si la compression échoue, void s'il n'est pas nécessaire de compresser.
56 
*/
 56 
*/
57 
function GEN_compresserDonneesZLIB($donnees, $taux_compression = 9, $valeur_incompressible = 2048)
 57 
function GEN_compresserDonneesZLIB($donnees, $taux_compression = 9, $valeur_incompressible = 2048)
58 
{
 58 
{
59 
    // Si les données sont infèrieures à 2048 nous ne compressons pas.
 59 
    // Si les données sont infèrieures à 2048 nous ne compressons pas.
60 
    if ((strlen($donnees) < $valeur_incompressible) || (! extension_loaded('zlib')) ) {
 60 
    if ((strlen($donnees) < $valeur_incompressible) || (! extension_loaded('zlib')) ) {
61 
        return '';
 61 
        return '';
62 
    }
 62 
    }
63 
    // Tentative de compression des donnée
 63 
    // Tentative de compression des donnée
64 
    $donnees_gzip = gzcompress($donnees, $taux_compression);
 64 
    $donnees_gzip = gzcompress($donnees, $taux_compression);
65 
    if (! $donnees_gzip) {
 65 
    if (! $donnees_gzip) {
66 
        return false;
 66 
        return false;
67 
    } else {
 67 
    } else {
68 
        return $donnees_gzip;
 68 
        return $donnees_gzip;
69 
    }
 69 
    }
70 
}
 70 
}
71 
 
 71 
 
72 
/** Fonction GEN_decompresserDonneesZLIB() - Décompresse des données si nécessaire et les retourne.
 72 
/** Fonction GEN_decompresserDonneesZLIB() - Décompresse des données si nécessaire et les retourne.
73 
*
 73 
*
74 
* Nous décompressons les données. Si la décompression renvoie faut, nous retournons les données
74 
* Nous décompressons les données. Si la décompression renvoie faut, nous retournons les données
75 
* tels qu'elle nous été transmises.
 75 
* tels qu'elle nous été transmises.
76 
*
 76 
*
77 
* @param   mixed   données à décompresser.
 77 
* @param   mixed   données à décompresser.
78 
* @return  mixed   données décompressées ou "false" si les données n'ont pas pue être décompréssées...
 78 
* @return  mixed   données décompressées ou "false" si les données n'ont pas pue être décompréssées...
79 
*/
 79 
*/
80 
function GEN_decompresserDonneesZLIB($donnees)
 80 
function GEN_decompresserDonneesZLIB($donnees)
81 
{
 81 
{
82 
    $donnees_ungzip = gzuncompress($donnees);
 82 
    $donnees_ungzip = gzuncompress($donnees);
83
83
84 
    if (! $donnees_ungzip) {
 84 
    if (! $donnees_ungzip) {
85 
        return false;
 85 
        return false;
86 
    } else {
 86 
    } else {
87 
        return $donnees_ungzip;
 87 
        return $donnees_ungzip;
88 
    }
 88 
    }
89 
}
 89 
}
90 
 
 90 
 
91 
/** Fonction GEN_retournerTypeCompressionNavigateur() - Retourne le type de compression du navigateur du client.
 91 
/** Fonction GEN_retournerTypeCompressionNavigateur() - Retourne le type de compression du navigateur du client.
92 
*
 92 
*
93 
* Si le navigateur supporte la compression nous retournons le type d'encodage supporté.
 93 
* Si le navigateur supporte la compression nous retournons le type d'encodage supporté.
94 
* Dans tous les autres cas, nous retournons une chaine vide.
 94 
* Dans tous les autres cas, nous retournons une chaine vide.
95 
* Nous utilisons la superglobale $_SERVER permettant d'obtenir "SERVER_PROTOCOL" et "HTTP_ACCEPT_ENCODING".
 95 
* Nous utilisons la superglobale $_SERVER permettant d'obtenir "SERVER_PROTOCOL" et "HTTP_ACCEPT_ENCODING".
96 
*
 96 
*
97 
* @return  string  la chaine correspondant au type d'encodage surpporté par le navigateur du client.
 97 
* @return  string  la chaine correspondant au type d'encodage surpporté par le navigateur du client.
98 
*/
 98 
*/
99 
function GEN_retournerTypeCompressionNavigateur()
 99 
function GEN_retournerTypeCompressionNavigateur()
100 
{
 100 
{
101 
    // Si les entêtes HTTP ont déjà été envoyés, nous retournons void.
 101 
    // Si les entêtes HTTP ont déjà été envoyés, nous retournons void.
102 
    if (headers_sent()) return '';
 102 
    if (headers_sent()) return '';
103 
    if ($_SERVER['SERVER_PROTOCOL'] != 'HTTP/1.1') return '';
 103 
    if ($_SERVER['SERVER_PROTOCOL'] != 'HTTP/1.1') return '';
104 
    if (isset ($_SERVER['HTTP_ACCEPT_ENCODING']) && strpos($_SERVER['HTTP_ACCEPT_ENCODING'], 'x-gzip') !== false) return 'x-gzip';
 104 
    if (isset ($_SERVER['HTTP_ACCEPT_ENCODING']) && strpos($_SERVER['HTTP_ACCEPT_ENCODING'], 'x-gzip') !== false) return 'x-gzip';
105 
    if (isset ($_SERVER['HTTP_ACCEPT_ENCODING']) && strpos($_SERVER['HTTP_ACCEPT_ENCODING'], 'gzip')   !== false) return 'gzip';
 105 
    if (isset ($_SERVER['HTTP_ACCEPT_ENCODING']) && strpos($_SERVER['HTTP_ACCEPT_ENCODING'], 'gzip')   !== false) return 'gzip';
106
106
107 
    return '';
 107 
    return '';
108 
}
 108 
}
109 
 
 109 
 
110 
/** Fonction GEN_envoyerDonneesCompressees() - Envoi les données au navigateur du client.
 110 
/** Fonction GEN_envoyerDonneesCompressees() - Envoi les données au navigateur du client.
111 
*
 111 
*
112 
* Si le navigateur supporte la compression nous lui envoyons les données compressées. Sinon,
 112 
* Si le navigateur supporte la compression nous lui envoyons les données compressées. Sinon,
113 
* nous lui envoyons les données décompressées. Si la décompression échoue nous n'envoyons rien
 113 
* nous lui envoyons les données décompressées. Si la décompression échoue nous n'envoyons rien
114 
* et la fonction retourne false. Si l'envoi est un succès la fonction retourne true.
 114 
* et la fonction retourne false. Si l'envoi est un succès la fonction retourne true.
115 
* Cett fonction fait appel aux fonctions GEN_retournerTypeCompressionNavigateur() et
 115 
* Cett fonction fait appel aux fonctions GEN_retournerTypeCompressionNavigateur() et
116 
* GEN_decompresserDonneesZLIB().
 116 
* GEN_decompresserDonneesZLIB().
117 
*
 117 
*
118 
* @param   mixed  données compressées (ou pas) à envoyer au navigateur.
 118 
* @param   mixed  données compressées (ou pas) à envoyer au navigateur.
119 
* @return  bool   booléen indiquant si l'envoi est un succès (true) ou pas (false).
 119 
* @return  bool   booléen indiquant si l'envoi est un succès (true) ou pas (false).
120 
*/
 120 
*/
121 
function GEN_envoyerDonneesCompressees($donnees_compressees)
 121 
function GEN_envoyerDonneesCompressees($donnees_compressees)
122 
{
 122 
{
123 
    // Le navigateur du client accepte-t-il la compression?
 123 
    // Le navigateur du client accepte-t-il la compression?
124 
    $type_encodage = GEN_retournerTypeCompressionNavigateur();
 124 
    $type_encodage = GEN_retournerTypeCompressionNavigateur();
125
125
126 
    // La compression n'est pas supportée.
 126 
    // La compression n'est pas supportée.
127 
    if (empty($type_encodage)) {
 127 
    if (empty($type_encodage)) {
128 
        $donnees_decompressees = GEN_decompresserDonneesZLIB($donnees_compressees);
 128 
        $donnees_decompressees = GEN_decompresserDonneesZLIB($donnees_compressees);
129 
        if (! $donnees_decompressees) {
 129 
        if (! $donnees_decompressees) {
130 
            return false;
 130 
            return false;
131 
        }
 131 
        }
132 
        $res = $donnees_decompressees;
 132 
        $res = $donnees_decompressees;
133 
        return $res;
 133 
        return $res;
134 
    } else {
 134 
    } else {
135 
        // La compression est supportée. Nous envoyons les données compressées.
 135 
        // La compression est supportée. Nous envoyons les données compressées.
136 
        header('Content-Encoding: gzip');
 136 
        header('Content-Encoding: gzip');
137 
        // Laisser la chaine ci-dessous entre guillemets. Les cotes font planter le programme!
 137 
        // Laisser la chaine ci-dessous entre guillemets. Les cotes font planter le programme!
138 
        $res = "\x1f\x8b\x08\x00\x00\x00\x00\x00";
 138 
        $res = "\x1f\x8b\x08\x00\x00\x00\x00\x00";
139 
        $res .= $donnees_compressees;
 139 
        $res .= $donnees_compressees;
140 
    }
 140 
    }
141
141
142 
    return $res;
 142 
    return $res;
143 
}
 143 
}
144 
 
 144 
 
145 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 145 
/* +--Fin du code ----------------------------------------------------------------------------------------+
146 
*
 146 
*
147 
* $Log: not supported by cvs2svn $
 147 
* $Log: pap_compression.fonct.php,v $
- 
 
 148 
* Revision 1.3  2006-03-15 09:30:50  florian
- 
 
 149 
* suppression des echos, qui entrainaient des problemes d'affichages
- 
 
 150 
*
148 
* Revision 1.2  2004/06/22 15:27:15  alex
 151 
* Revision 1.2  2004/06/22 15:27:15  alex
149 
* ajout du test d'existence la variable $_SERVER['HTTP_ENCODING_TYPE'] avant de tester sa valeur
 152 
* ajout du test d'existence la variable $_SERVER['HTTP_ENCODING_TYPE'] avant de tester sa valeur
150 
*
 153 
*
151 
* Revision 1.1  2004/06/15 15:09:26  jpm
 154 
* Revision 1.1  2004/06/15 15:09:26  jpm
152 
* Changement de nom et d'arborescence de Genesia en Papyrus.
 155 
* Changement de nom et d'arborescence de Genesia en Papyrus.
153 
*
 156 
*
154 
* Revision 1.4  2004/04/22 08:39:05  jpm
 157 
* Revision 1.4  2004/04/22 08:39:05  jpm
155 
* Correction d'une déclaration en tant que global d'une variable superglobale.
 158 
* Correction d'une déclaration en tant que global d'une variable superglobale.
156 
*
 159 
*
157 
* Revision 1.3  2004/04/09 16:22:49  jpm
 160 
* Revision 1.3  2004/04/09 16:22:49  jpm
158 
* Envoi d'une page sous forme compressée si l'extenssion ZLIB existe. Sinon, la page part non compréssée.
 161 
* Envoi d'une page sous forme compressée si l'extenssion ZLIB existe. Sinon, la page part non compréssée.
159 
*
 162 
*
160 
* Revision 1.2  2004/04/06 15:56:33  jpm
 163 
* Revision 1.2  2004/04/06 15:56:33  jpm
161 
* Changement de l'ordre des fonctions dans le fichier.
 164 
* Changement de l'ordre des fonctions dans le fichier.
162 
*
 165 
*
163 
*
 166 
*
164 
* +-- Fin du code ----------------------------------------------------------------------------------------+
 167 
* +-- Fin du code ----------------------------------------------------------------------------------------+
165 
*/
 168 
*/
166 
?>
 169 
?>