Subversion Repositories Applications.papyrus

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 jpm 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This library is free software; you can redistribute it and/or                                        |
9
// | modify it under the terms of the GNU Lesser General Public                                           |
10
// | License as published by the Free Software Foundation; either                                         |
11
// | version 2.1 of the License, or (at your option) any later version.                                   |
12
// |                                                                                                      |
13
// | This library is distributed in the hope that it will be useful,                                      |
14
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16
// | Lesser General Public License for more details.                                                      |
17
// |                                                                                                      |
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                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
775 florian 22
// CVS : $Id: pap_compression.fonct.php,v 1.3 2006-03-15 09:30:50 florian Exp $
4 jpm 23
/**
24
* Bibliothèque de fonction de compression et d'envoi de données.
25
*
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
28
* la compression par le navigateur du client et à compresser puis envoyer ces donées.
29
*
30
*@package Papyrus
31
*@subpackage Fonctions
32
//Auteur original :
33
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34
//Autres auteurs :
35
*@author        Aucun
36
*@copyright     Tela-Botanica 2000-2004
775 florian 37
*@version       $Revision: 1.3 $ $Date: 2006-03-15 09:30:50 $
4 jpm 38
// +------------------------------------------------------------------------------------------------------+
39
*/
40
 
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                           LISTE de FONCTIONS                                         |
43
// +------------------------------------------------------------------------------------------------------+
44
 
45
 
46
/** Fonction GEN_compresserDonneesZLIB() - Compresse des données si nécessaire et les retourne.
47
*
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
50
* données à compresser ou que l'extension ZLIB n'est pas présente, la valeur vide est retournée.
51
*
52
* @param   string données à compresser.
53
* @param   int    taux de compression à utiliser.
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.
56
*/
57
function GEN_compresserDonneesZLIB($donnees, $taux_compression = 9, $valeur_incompressible = 2048)
58
{
59
    // Si les données sont infèrieures à 2048 nous ne compressons pas.
60
    if ((strlen($donnees) < $valeur_incompressible) || (! extension_loaded('zlib')) ) {
61
        return '';
62
    }
63
    // Tentative de compression des donnée
64
    $donnees_gzip = gzcompress($donnees, $taux_compression);
65
    if (! $donnees_gzip) {
66
        return false;
67
    } else {
68
        return $donnees_gzip;
69
    }
70
}
71
 
72
/** Fonction GEN_decompresserDonneesZLIB() - Décompresse des données si nécessaire et les retourne.
73
*
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.
76
*
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...
79
*/
80
function GEN_decompresserDonneesZLIB($donnees)
81
{
82
    $donnees_ungzip = gzuncompress($donnees);
83
 
84
    if (! $donnees_ungzip) {
85
        return false;
86
    } else {
87
        return $donnees_ungzip;
88
    }
89
}
90
 
91
/** Fonction GEN_retournerTypeCompressionNavigateur() - Retourne le type de compression du navigateur du client.
92
*
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.
95
* Nous utilisons la superglobale $_SERVER permettant d'obtenir "SERVER_PROTOCOL" et "HTTP_ACCEPT_ENCODING".
96
*
97
* @return  string  la chaine correspondant au type d'encodage surpporté par le navigateur du client.
98
*/
99
function GEN_retournerTypeCompressionNavigateur()
100
{
101
    // Si les entêtes HTTP ont déjà été envoyés, nous retournons void.
102
    if (headers_sent()) return '';
103
    if ($_SERVER['SERVER_PROTOCOL'] != 'HTTP/1.1') return '';
18 alex 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';
4 jpm 106
 
107
    return '';
108
}
109
 
110
/** Fonction GEN_envoyerDonneesCompressees() - Envoi les données au navigateur du client.
111
*
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
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
116
* GEN_decompresserDonneesZLIB().
117
*
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).
120
*/
121
function GEN_envoyerDonneesCompressees($donnees_compressees)
122
{
123
    // Le navigateur du client accepte-t-il la compression?
124
    $type_encodage = GEN_retournerTypeCompressionNavigateur();
125
 
126
    // La compression n'est pas supportée.
127
    if (empty($type_encodage)) {
128
        $donnees_decompressees = GEN_decompresserDonneesZLIB($donnees_compressees);
129
        if (! $donnees_decompressees) {
130
            return false;
131
        }
775 florian 132
        $res = $donnees_decompressees;
133
        return $res;
4 jpm 134
    } else {
135
        // La compression est supportée. Nous envoyons les données compressées.
136
        header('Content-Encoding: gzip');
137
        // Laisser la chaine ci-dessous entre guillemets. Les cotes font planter le programme!
775 florian 138
        $res = "\x1f\x8b\x08\x00\x00\x00\x00\x00";
139
        $res .= $donnees_compressees;
4 jpm 140
    }
141
 
775 florian 142
    return $res;
4 jpm 143
}
144
 
145
/* +--Fin du code ----------------------------------------------------------------------------------------+
146
*
147
* $Log: not supported by cvs2svn $
775 florian 148
* 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
150
*
18 alex 151
* Revision 1.1  2004/06/15 15:09:26  jpm
152
* Changement de nom et d'arborescence de Genesia en Papyrus.
153
*
4 jpm 154
* Revision 1.4  2004/04/22 08:39:05  jpm
155
* Correction d'une déclaration en tant que global d'une variable superglobale.
156
*
157
* 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.
159
*
160
* Revision 1.2  2004/04/06 15:56:33  jpm
161
* Changement de l'ordre des fonctions dans le fichier.
162
*
163
*
164
* +-- Fin du code ----------------------------------------------------------------------------------------+
165
*/
166
?>