Subversion Repositories Applications.papyrus

Rev

Rev 1168 | Rev 1471 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1092 florian 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 5.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web.        |                                                                           |
9
// |                                                                                                      |
10
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de  |
11
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous  |
12
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site    |
13
// | "http://www.cecill.info".                                                                            |
14
// |                                                                                                      |
15
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de      |
16
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
17
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le       |
18
// | titulaire des droits patrimoniaux et les concédants successifs.                                      |
19
// |                                                                                                      |
20
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à       |
21
// | l'utilisation,  à la modification et/ou au développement et à la reproduction du logiciel par        |
22
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler  |
23
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances  |
24
// | informatiques approfondies. Les utilisateurs sont donc invités à charger  et  tester  l'adéquation   |
25
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes   |
26
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions  |
27
// | de sécurité.                                                                                         |
28
// |                                                                                                      |
29
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la       |
30
// | licence CeCILL, et que vous en avez accepté les termes.                                              |
31
// +------------------------------------------------------------------------------------------------------+
1424 alexandre_ 32
// CVS : $Id: pap_rendu.class.php,v 1.8 2007-05-30 16:20:07 alexandre_tb Exp $
1092 florian 33
/**
34
* Classe : pap_rendu
35
*
36
* Fournit des méthodes pour le rendu.
37
*
38
*@package Papyrus
39
*@subpackage Classes
40
//Auteur original :
41
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
42
//Autres auteurs :
43
*@author        Aucun
44
*@copyright     Tela-Botanica 2000-2006
1424 alexandre_ 45
*@version       $Revision: 1.8 $ $Date: 2007-05-30 16:20:07 $
1092 florian 46
// +------------------------------------------------------------------------------------------------------+
47
*/
48
 
49
// +------------------------------------------------------------------------------------------------------+
50
// |                                            ENTÊTE du PROGRAMME                                       |
51
// +------------------------------------------------------------------------------------------------------+
52
 
53
class Pap_Rendu {
1152 jp_milcent 54
 
55
	var $bool_balise_appli = false;
56
 
1092 florian 57
    function pap_rendu()
58
    {
59
 
60
    }
1152 jp_milcent 61
 
62
	function getBoolBaliseAppli()
63
	{
64
		return $this->bool_balise_appli;
65
	}
1092 florian 66
 
1152 jp_milcent 67
	function parserBaliseApplette($contenu, $bool_appli = false)
1092 florian 68
	{
1424 alexandre_ 69
		$noms_applettes = 'IDENTIFICATION|MENU|MOTEUR_RECHERCHE|SELECTEUR_SITES|VOUS_ETES_ICI|BAZAR_CALENDRIER';// Compatibilite ancienne syntaxe
1092 florian 70
		$GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] = preg_match_all(
1119 jp_milcent 71
				'/\{\{(\w+) ?[^}]*\}\}|<!-- (?:'.$GLOBALS['_GEN_commun']['balise_prefixe'].'|'.$GLOBALS['_GEN_commun']['balise_prefixe_client'].')('.$noms_applettes.')[^ ]* -->/',
1092 florian 72
				$contenu,
73
				$tab_decoupage,
74
				PREG_SET_ORDER);
1152 jp_milcent 75
		if ($bool_appli && $GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] > 0) {
76
			$this->bool_balise_appli = true;
77
		}
1092 florian 78
		for ($i = 0; $i < $GLOBALS['_PAPYRUS_']['applette']['nbr_balise']; $i++) {
1424 alexandre_ 79
			// Creation du nom de l'applette.
1092 florian 80
			$applette_nom = '';
81
			if (!empty($tab_decoupage[$i][1])) {
1134 jp_milcent 82
				$applette_nom = $tab_decoupage[$i][1];
1092 florian 83
			} else if (!empty($tab_decoupage[$i][2])) {
1134 jp_milcent 84
				$applette_nom = $tab_decoupage[$i][2];
1092 florian 85
			}
1134 jp_milcent 86
			// Ajout d'underscore devant les majuscules composant un nom d'applette puis mise en minuscule.
87
			// Ex : MotCles devient mot_cles
88
			$applette_nom = strtolower(preg_replace('/([a-z0-9])([A-Z])/', '$1_$2', $applette_nom));
1092 florian 89
			if (!isset($GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom])) {
90
				$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['nom'] = $applette_nom;
91
 
92
				// Recherche du fichier de l'applette
1424 alexandre_ 93
				$repertoire = '';
94
				$applette_nom_fichier = '';
95
				// Spécial Bazar Calendrier!
96
				if (preg_match('/_/', $applette_nom)) {
97
					$e = explode ('_', $applette_nom);
98
					$repertoire = $e[0];
99
					$applette_nom_fichier = $e[1];
100
					//trigger_error('<pre>'.$applette_nom_fichier.'-'.$repertoire.'</pre>', E_USER_ERROR);
101
				}
1092 florian 102
				if (file_exists(GEN_CHEMIN_APPLETTE.$applette_nom.GEN_SEP.$applette_nom.'.php')) {
1424 alexandre_ 103
					$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'] = GEN_CHEMIN_APPLETTE.$applette_nom.GEN_SEP.$applette_nom.'.php';
1092 florian 104
				} else if (file_exists(GEN_CHEMIN_CLIENT.$applette_nom.GEN_SEP.$applette_nom.'.php')) {
1424 alexandre_ 105
					$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'] = GEN_CHEMIN_CLIENT.$applette_nom.GEN_SEP.$applette_nom.'.php';
106
				} else if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'_'.$applette_nom_fichier.'.applette.php')) {
107
					// Syntaxe à privilièger en cas d'intégration d'une applette dans une application
108
					$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'] = GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'_'.$applette_nom_fichier.'.applette.php';
109
				} else if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.'.$applette_nom_fichier.'.applette.php')) {
110
					// Syntaxe obsolete
111
					$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'] = GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.'.$applette_nom_fichier.'.applette.php';
112
					$message = 	'MESSAGE Papyrus : le nom du fichier de l\'applette a une syntaxe obsolete'.'<br />'.
113
								'Nom applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['nom'].'<br />'.
114
								'Chemin fichier applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'].'<br />'.
115
								'Chemin fichier correct : '.GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'_'.$applette_nom_fichier.'.applette.php'.'<br />';
116
 
117
					trigger_error($message, E_USER_WARNING);
1092 florian 118
				} else {
119
					// On supprime l'applette de la liste
120
					unset($GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]);
1424 alexandre_ 121
			        // Ne devrait pas arreter le programme! Mais instancier le gestionnaire de deboguage.
1119 jp_milcent 122
			        $message = 	'ERREUR Papyrus : Impossible de trouver le fichier de l\'applette. <br />'.
123
			            		'Nom applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['nom'].' <br />'.
124
			            		'Chemin fichier applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'].' <br />'.
1424 alexandre_ 125
			            		'Ligne n&deg; : '. __LINE__ .'<br />'.
1119 jp_milcent 126
			            		'Fichier : '. __FILE__ ;
1126 jp_milcent 127
					trigger_error($message, E_USER_ERROR);
1424 alexandre_ 128
			    }
1092 florian 129
				// Nous incluons l'applette
130
			    if (file_exists($GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'])) {
131
			        include_once($GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin']);
1424 alexandre_ 132
			        // Nous recuperons l'expression reguliere de la balise pour l'utiliser lors de l'appel
133
			        // de la fonction de l'applette. L'appel des fonctions des applettes a lieu apres l'appel
134
			        // de l'application pour permettre a l'appli de modifier certains parametres (identification, ordre des menus).
1092 florian 135
			        $GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['applette_balise'] = $GLOBALS['_GEN_commun']['info_applette_balise'];
136
			        $GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['applette_fonction'] = $GLOBALS['_GEN_commun']['info_applette_nom_fonction'];
137
			    }
138
			}
1424 alexandre_ 139
			// Recuperation des infos sur la balise courrante.
1092 florian 140
			if (preg_match(	'/'.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['applette_balise'].'/', $tab_decoupage[$i][0], $applet_arguments)) {
141
				$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['balises'][] = $applet_arguments;
142
			} else {
143
				$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['balises'][] = array();
1424 alexandre_ 144
				$message = 	'ERREUR Papyrus : Impossible de r&eacute;cup&eacute;rer les arguments de l\'applette. <br />'.
1119 jp_milcent 145
							'Nom applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['nom'].' <br />'.
146
							'Chemin fichier applette : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['chemin'].' <br />'.
1424 alexandre_ 147
							'Ligne n&deg; : '. __LINE__ .'<br />'.
1119 jp_milcent 148
							'Fichier : '. __FILE__ .'<br />'.
149
							'<pre>'.print_r($tab_decoupage[$i][0], true).'</pre>'.
150
							'<pre>'.print_r('/'.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_nom]['applette_balise'].'/', true).'</pre>';
1126 jp_milcent 151
				trigger_error($message, E_USER_ERROR);
1092 florian 152
			}
153
		}
1424 alexandre_ 154
		//echo '<pre>'.print_r($GLOBALS['_PAPYRUS_']['info_applette'], true).'</pre>';
1092 florian 155
	}
1152 jp_milcent 156
 
157
	function remplacerBaliseApplette()
158
	{
159
		foreach ($GLOBALS['_PAPYRUS_']['info_applette'] as $applette_id => $applette_val) {
160
		    // Si on trouve au moins une balise, on lance la boucle pour les remplacer
161
		    if (!isset($GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['balises'])) {
162
		    	echo 'oc:'.$applette_id;
163
		    }
164
		    for ($j = 0; $j < count($GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['balises']); $j++) {
165
		        // TODO : supprimer cette particularité et utiliser la variable $GLOBALS['_PAPYRUS_']['info_applette']
166
		        // Nous comptabilisons le nombre d'utilisation des applettes dans un squelette pour l'applette Menu:
167
		        if (!isset($GLOBALS['_PAPYRUS_']['applette']['comptage'][$applette_val['applette_fonction']])) {
168
		            $GLOBALS['_PAPYRUS_']['applette']['comptage'][$applette_val['applette_fonction']] = 1;
169
		        } else {
170
		            $GLOBALS['_PAPYRUS_']['applette']['comptage'][$applette_val['applette_fonction']]++;
171
		        }
172
		        // Nous vérifions que le nom de la fonction principale de l'applette existe.
173
		        if (function_exists($GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['applette_fonction'])) {
174
		            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
175
		                call_user_func( $GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['applette_fonction'],
176
		                                    $GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['balises'][$j],
177
		                                    $GLOBALS['_GEN_commun']);
178
		        } else {
179
		            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
180
		                '<!-- '."\n".
181
		                $GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['balises'][$j][0].' : '.
182
		                'fonction de l\'applette "'.$applette_id.'" introuvable! '."\n".
183
		                'Fonction : '.$GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['applette_fonction']."\n".
184
		                ' -->';
185
		        }
186
		        // Remplacement des balises d'applette de Papyrus dans le squelette
187
		        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
1168 jp_milcent 188
		            str_replace(	$GLOBALS['_PAPYRUS_']['info_applette'][$applette_id]['balises'][$j][0],
1152 jp_milcent 189
		                			$GLOBALS['_PAPYRUS_']['applette']['contenu_applette'],
190
		                			$GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
191
			}
192
		}
193
	}
1092 florian 194
}
195
?>