Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 1531 → Rev 1532

/branches/livraison_narmer/papyrus/applettes/inclure/inclure.php
29,7 → 29,7
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: inclure.php,v 1.2 2006-12-08 15:57:30 jp_milcent Exp $
// CVS : $Id: inclure.php,v 1.2.2.1 2007-08-02 12:45:45 jp_milcent Exp $
/**
* Applette : Inclure
*
42,7 → 42,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.2 $ $Date: 2006-12-08 15:57:30 $
*@version $Revision: 1.2.2.1 $ $Date: 2007-08-02 12:45:45 $
// +------------------------------------------------------------------------------------------------------+
*/
 
121,17 → 121,20
$href = $GLOBALS['_INCLURE_']['site'][$options['interwiki']]['url'];
$href = sprintf($href, $options['page']);
$contenu = file_get_contents($href);
if ($contenu != false) {
$tab_matches = '';
preg_match($GLOBALS['_INCLURE_']['site'][$options['interwiki']]['preg'], $contenu, $tab_matches);
$tab_encodage = '';
preg_match('/<meta +http-equiv="Content-Type" +content="text\/html; *charset=(.+)"\/>/Ui', $contenu, $tab_encodage);
if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $GLOBALS['_INCLURE_']['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {
$GLOBALS['_INCLURE_']['sortie'] = utf8_decode($tab_matches[1]);
if (preg_match('/charset=(.+)"/Ui', $contenu, $tab_encodage) || preg_match('/encoding="(.+)"/Ui', $contenu, $tab_encodage)) {
if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $GLOBALS['_INCLURE_']['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {
$GLOBALS['_INCLURE_']['sortie'] = utf8_decode($tab_matches[1]);
} else {
$GLOBALS['_INCLURE_']['sortie'] = $tab_matches[1];
}
} else {
$GLOBALS['_INCLURE_']['sortie'] = $tab_matches[1];
$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_ENCODAGE, $href);
}
} else {
$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_INCLUSION, $href);
159,6 → 162,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006-12-08 15:57:30 jp_milcent
* Amélioration de la gestion du débogage de l'applette inclure.
*
* Revision 1.1 2006/12/01 17:36:28 florian
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
*
/branches/livraison_narmer/papyrus/applettes/inclure/langues/incl_langue_fr.inc.php
29,7 → 29,7
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: incl_langue_fr.inc.php,v 1.2 2006-12-08 15:57:30 jp_milcent Exp $
// CVS : $Id: incl_langue_fr.inc.php,v 1.2.2.1 2007-08-02 12:45:47 jp_milcent Exp $
/**
* papyrus
*
42,7 → 42,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.2 $ $Date: 2006-12-08 15:57:30 $
*@version $Revision: 1.2.2.1 $ $Date: 2007-08-02 12:45:47 $
// +------------------------------------------------------------------------------------------------------+
*/
 
56,6 → 56,8
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand un problème a été rencontré lors de l'inclusion.*/
define('CATEG_LG_ERREUR_INCLUSION', "Applette INCLURE : problème lors de la tentative d'inclusion de la page : %s");
/** Texte affiché quand un problème a été rencontré pour la détermination de l'encodage.*/
define('CATEG_LG_ERREUR_ENCODAGE', "Applette INCLURE : problème lors de la recherche de l'encodage de la page à inclure : %s");
/** Texte affiché quand un site n'a pas été indexé.*/
define('CATEG_LG_ERREUR_SITE', "Applette INCLURE : le site interwiki '%s' n'est pas référencé dans le fichier de configuration avancé de Papyrus.");
/** Texte affiché quand le paramètre "interwiki" est abscent.*/
72,6 → 74,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006-12-08 15:57:30 jp_milcent
* Amélioration de la gestion du débogage de l'applette inclure.
*
* Revision 1.1 2006/12/01 17:36:28 florian
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
*
/branches/livraison_narmer/papyrus/applettes/inclure/squelettes/incl_liste.tpl.html
8,4 → 8,5
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php endif; ?>
<?=$sortie;?>
<!-- INCLURE - FIN -->