| New file |
|---|
| 0,0 → 1,536 |
|---|
| <?php |
| |
| /***************************************************************************\ |
| * SPIP, Systeme de publication pour l'internet * |
| * * |
| * Copyright (c) 2001-2005 * |
| * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James * |
| * * |
| * Ce programme est un logiciel libre distribue sous licence GNU/GPL. * |
| * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. * |
| \***************************************************************************/ |
| |
| |
| // |
| // Des fonctions diverses utilisees lors du calcul d'une page ; ces fonctions |
| // bien pratiques n'ont guere de logique organisationnelle ; elles sont |
| // appelees par certaines balises au moment du calcul des pages. (Peut-on |
| // trouver un modele de donnees qui les associe physiquement au fichier |
| // definissant leur balise ??? |
| // |
| |
| // ON TROUVERA EN QUEUE DE FICHIER LES FONCTIONS FAISANT DES APPELS SQL |
| |
| |
| // Ce fichier ne sera execute qu'une fois |
| if (defined("_INC_CALCUL_OUTILS")) return; |
| define("_INC_CALCUL_OUTILS", "1"); |
| |
| // Pour les documents comme pour les logos, le filtre |fichier donne |
| // le chemin du fichier apres 'IMG/' ; peut-etre pas d'une purete |
| // remarquable, mais a conserver pour compatibilite ascendante. |
| // -> http://www.spip.net/fr_article901.html |
| function calcule_fichier_logo($on) { |
| $r = ereg_replace("^" . _DIR_IMG, "", $on); |
| return $r; |
| } |
| |
| // Renvoie le code html pour afficher un logo, avec ou sans survol, lien, etc. |
| |
| function affiche_logos($logos, $lien, $align) { |
| |
| list ($arton, $artoff) = $logos; |
| |
| if (!$arton) return $artoff; |
| |
| if ($taille = @getimagesize($arton)) { |
| $taille = " ".$taille[3]; |
| } |
| |
| if ($artoff) |
| $mouseover = " onmouseover=\"this.src='$artoff'\" " |
| ."onmouseout=\"this.src='$arton'\""; |
| |
| $milieu = "<img src=\"$arton\" alt=\"\"" |
| . ($align ? " align='$align'" : '') |
| . $taille |
| . $mouseover |
| . " style='border-width: 0px;' class='spip_logos' />"; |
| |
| return ($lien ? http_href($lien, $milieu) : $milieu); |
| } |
| |
| // |
| // Retrouver le logo d'un objet (et son survol) |
| // |
| |
| function calcule_logo($type, $onoff, $id, $id_rubrique, $ff) { |
| include_ecrire('inc_logos.php3'); |
| |
| $table_logos = array ( |
| 'ARTICLE' => 'art', |
| 'AUTEUR' => 'aut', |
| 'BREVE' => 'breve', |
| 'MOT' => 'mot', |
| 'RUBRIQUE' => 'rub', |
| 'SITE' => 'site' |
| ); |
| $type = $table_logos[$type]; |
| $nom = strtolower($onoff); |
| # attention au cas $id = '0' pour LOGO_SITE_SPIP : utiliser intval() |
| while (1) { |
| $on = cherche_image_nommee($type . $nom . intval($id)); |
| if ($on) { |
| if ($ff) |
| return (array('', "$on[1].$on[2]")); |
| else { |
| $off = ($onoff != 'ON') ? '' : |
| cherche_image_nommee($type . 'off' . $id); |
| return array ("$on[0]$on[1].$on[2]", |
| ($off ? ("$off[0]$off[1].$off[2]") : '')); |
| } |
| } |
| else if ($id_rubrique) { |
| $type = 'rub'; |
| $id = $id_rubrique; |
| $id_rubrique = 0; |
| } else if ($id AND $type == 'rub') |
| $id = sql_parent($id); |
| else return array('',''); |
| } |
| } |
| |
| // |
| // fonction standard de calcul de la balise #INTRODUCTION |
| // on peut la surcharger en definissant dans mes_fonctions.php3 : |
| // function introduction($type,$texte,$chapo,$descriptif) {...} |
| // |
| function calcul_introduction ($type, $texte, $chapo='', $descriptif='') { |
| if (function_exists("introduction")) |
| return introduction ($type, $texte, $chapo, $descriptif); |
| |
| switch ($type) { |
| case 'articles': |
| if ($descriptif) |
| return propre($descriptif); |
| else if (substr($chapo, 0, 1) == '=') // article virtuel |
| return ''; |
| else |
| return PtoBR(propre(supprimer_tags(couper_intro($chapo."\n\n\n".$texte, 500)))); |
| break; |
| case 'breves': |
| return PtoBR(propre(supprimer_tags(couper_intro($texte, 300)))); |
| break; |
| case 'forums': |
| return PtoBR(propre(supprimer_tags(couper_intro($texte, 600)))); |
| break; |
| case 'rubriques': |
| if ($descriptif) |
| return propre($descriptif); |
| else |
| return PtoBR(propre(supprimer_tags(couper_intro($texte, 600)))); |
| break; |
| } |
| } |
| |
| |
| // |
| // Balises dynamiques |
| // |
| |
| // elles sont traitees comme des inclusions |
| function synthetiser_balise_dynamique($nom, $args, $file, $lang, $ligne) { |
| return |
| ('<'.'?php |
| include_ecrire(\'inc_lang.php3\'); |
| lang_select("'.$lang.'"); |
| include_local("' |
| . $file |
| . '"); |
| inclure_balise_dynamique(balise_' |
| . $nom |
| . '_dyn(\'' |
| . join("', '", array_map('texte_script', $args)) |
| . "'),1, $ligne); |
| lang_dselect(); |
| ?" |
| .">"); |
| } |
| |
| // verifier leurs arguments et filtres, et calculer le code a inclure |
| function executer_balise_dynamique($nom, $args, $filtres, $lang, $ligne) { |
| if ($file = find_in_path('inc-' . strtolower($nom) . _EXTENSION_PHP)) |
| include_local($file); |
| else |
| die ("pas de balise dynamique pour #". strtolower($nom)." !"); |
| |
| // Y a-t-il une fonction de traitement filtres-arguments ? |
| $f = 'balise_' . $nom . '_stat'; |
| if (function_exists($f)) |
| $r = $f($args, $filtres); |
| else |
| $r = $args; |
| if (!is_array($r)) |
| return $r; |
| else |
| return synthetiser_balise_dynamique($nom, $r, $file, $lang, $ligne); |
| } |
| |
| |
| // |
| // FONCTIONS FAISANT DES APPELS SQL |
| // |
| |
| # NB : a l'exception des fonctions pour les balises dynamiques |
| |
| function calcul_exposer ($id, $type, $reference) { |
| static $exposer; |
| static $ref_precedente; |
| |
| // Que faut-il exposer ? Tous les elements de $reference |
| // ainsi que leur hierarchie ; on ne fait donc ce calcul |
| // qu'une fois (par squelette) et on conserve le resultat |
| // en static. |
| if ($reference<>$ref_precedente) { |
| $ref_precedente = $reference; |
| |
| $exposer = array(); |
| foreach ($reference as $element=>$id_element) { |
| if ($element == 'id_secteur') $element = 'id_rubrique'; |
| if ($x = table_from_primary($element)) { |
| list($table,$hierarchie) = $x; |
| $exposer[$element][$id_element] = true; |
| if ($hierarchie) { |
| list ($id_rubrique) = spip_abstract_fetsel( |
| array('id_rubrique'), |
| array($table), |
| array("$element=$id_element")); |
| $hierarchie = substr(calculer_hierarchie($id_rubrique), 2); |
| foreach (split(',',$hierarchie) as $id_rubrique) |
| $exposer['id_rubrique'][$id_rubrique] = true; |
| } |
| } |
| } |
| } |
| |
| // And the winner is... |
| return $exposer[$type][$id]; |
| } |
| |
| function table_from_primary($id) { |
| global $tables_principales; |
| include_ecrire('inc_serialbase.php3'); |
| foreach ($tables_principales as $k => $v) { |
| if ($v['key']['PRIMARY KEY'] == $id) |
| return array($k, array_key_exists('id_rubrique', $v['field'])); |
| } |
| return ''; |
| } |
| |
| function calcul_generation ($generation) { |
| $lesfils = array(); |
| $result = spip_abstract_select(array('id_rubrique'), |
| array('spip_rubriques AS rubriques'), |
| array(calcul_mysql_in('id_parent', |
| $generation, |
| ''))); |
| while ($row = spip_abstract_fetch($result)) |
| $lesfils[] = $row['id_rubrique']; |
| return join(",",$lesfils); |
| } |
| |
| function calcul_branche ($generation) { |
| if (!$generation) |
| return '0'; |
| else { |
| $branche[] = $generation; |
| while ($generation = calcul_generation ($generation)) |
| $branche[] = $generation; |
| return join(",",$branche); |
| } |
| } |
| |
| // fonction appelee par la balise #LOGO_DOCUMENT |
| function calcule_logo_document($id_document, $doubdoc, &$doublons, $flag_fichier, $lien, $align, $params) { |
| if (!$id_document) return ''; |
| if ($doubdoc) $doublons["documents"] .= ','.$id_document; |
| |
| if (!($row = spip_abstract_select(array('id_type', 'id_vignette', 'fichier', 'mode'), array('spip_documents AS documents'), array("id_document = $id_document")))) |
| // pas de document. Ne devrait pas arriver |
| return ''; |
| |
| list($id_type, $id_vignette, $fichier, $mode) = spip_abstract_fetch($row); |
| |
| // Lien par defaut = l'adresse du document |
| ## if (!$lien) $lien = $fichier; |
| |
| // Y a t il une vignette personnalisee ? |
| if ($id_vignette) { |
| if ($res = spip_abstract_select(array('fichier'), |
| array('spip_documents AS documents'), |
| array("id_document = $id_vignette"))) { |
| list($vignette) = spip_abstract_fetch($res); |
| if (@file_exists($vignette)) |
| $logo = generer_url_document($id_vignette); |
| } |
| } else if ($mode == 'vignette') { |
| $logo = generer_url_document($id_document); |
| if (!@file_exists($logo)) |
| $logo = ''; |
| } |
| |
| // taille maximum [(#LOGO_DOCUMENT{300,52})] |
| list($x,$y) = split(',', ereg_replace("[}{]", "", $params)); |
| |
| |
| if ($logo AND @file_exists($logo)) { |
| if ($x OR $y) |
| $logo = reduire_image($logo, $x, $y); |
| else { |
| $size = @getimagesize($logo); |
| $logo = "<img src='$logo' ".$size[3]." />"; |
| } |
| } |
| else { |
| // Retrouver l'extension |
| list($extension) = |
| spip_abstract_fetch(spip_abstract_select(array('extension'), |
| array('spip_types_documents AS documents'), |
| array("id_type = " . intval($id_type)))); |
| if (!$extension) $extension = 'txt'; |
| |
| // Pas de vignette, mais un fichier image -- creer la vignette |
| if (strstr(lire_meta('formats_graphiques'), $extension)) { |
| if ($img = copie_locale($fichier) |
| AND @file_exists($img)) { |
| if (!$x AND !$y) { |
| $logo = reduire_image($img); |
| } else { |
| # eviter une double reduction |
| $size = @getimagesize($img); |
| $logo = "<img src='$img' ".$size[3]." />"; |
| } |
| } |
| } |
| |
| // Document sans vignette ni image : vignette par defaut |
| if (!$logo) { |
| $img = vignette_par_defaut($extension, false); |
| $size = @getimagesize($img); |
| $logo = "<img src='$img' ".$size[3]." />"; |
| } |
| } |
| |
| // Reduire si une taille precise est demandee |
| if ($x OR $y) |
| $logo = reduire_image($logo, $x, $y); |
| |
| // flag_fichier : seul le fichier est demande |
| if ($flag_fichier) |
| # supprimer le IMG/ |
| return calcule_fichier_logo(extraire_attribut($logo, 'src')); |
| |
| |
| // Calculer le code html complet (cf. calcule_logo) |
| $logo = inserer_attribut($logo, 'alt', ''); |
| $logo = inserer_attribut($logo, 'style', 'border-width: 0px;'); |
| $logo = inserer_attribut($logo, 'class', 'spip_logos'); |
| if ($align) |
| $logo = inserer_attribut($logo, 'align', $align); |
| |
| if ($lien) |
| $logo = "<a href='$lien'>$logo</a>"; |
| |
| return $logo; |
| } |
| |
| |
| // fonction appelee par la balise #EMBED |
| function calcule_embed_document($id_document, $filtres, &$doublons, $doubdoc) { |
| if ($doubdoc && $id_document) $doublons["documents"] .= ', ' . $id_document; |
| return embed_document($id_document, $filtres, false); |
| } |
| |
| // les balises dynamiques et EMBED ont des filtres sans arguments |
| // car en fait ce sont des arguments pas des filtres. |
| // Si le besoin s'en fait sentir, il faudra r�cuperer la 2e moitie du tableau |
| |
| function argumenter_balise($fonctions, $sep) { |
| $res = array(); |
| if ($fonctions) |
| foreach ($fonctions as $f) $res[] = |
| str_replace('\'', '\\\'', str_replace('\\', '\\\\',$f[0])); |
| return ("'" . join($sep, $res) . "'"); |
| } |
| |
| // fonction appelee par la balise #NOTES |
| function calculer_notes() { |
| $r = $GLOBALS["les_notes"]; |
| $GLOBALS["les_notes"] = ""; |
| $GLOBALS["compt_note"] = 0; |
| $GLOBALS["marqueur_notes"] ++; |
| return $r; |
| } |
| |
| # retourne la profondeur d'une rubrique |
| |
| function sql_profondeur($id) { |
| $n = 0; |
| while ($id) { |
| $n++; |
| $id = sql_parent($id); |
| } |
| return $n; |
| } |
| |
| |
| function sql_parent($id_rubrique) { |
| $row = spip_abstract_fetsel(array(id_parent), |
| array('spip_rubriques'), |
| array("id_rubrique=" . intval($id_rubrique))); |
| return $row['id_parent']; |
| } |
| |
| function sql_rubrique($id_article) { |
| $row = spip_abstract_fetsel(array('id_rubrique'), |
| array('spip_articles'), |
| array("id_article=" . intval($id_article))); |
| return $row['id_rubrique']; |
| } |
| |
| function sql_auteurs($id_article, $table, $id_boucle, $serveur='') { |
| $auteurs = ""; |
| if ($id_article) { |
| $result_auteurs = spip_abstract_select(array('auteurs.nom', 'auteurs.email', 'auteurs.id_auteur'), |
| array('spip_auteurs AS auteurs', |
| 'spip_auteurs_articles AS lien'), |
| array("lien.id_article=$id_article", |
| "auteurs.id_auteur=lien.id_auteur"), |
| '',array(),'','',1, |
| $table, $id_boucle, $serveur); |
| |
| while($row_auteur = spip_abstract_fetch($result_auteurs, $serveur)) { |
| $nom_auteur = typo($row_auteur["nom"]); |
| $email_auteur = $row_auteur["email"]; |
| $id_auteur = $row_auteur["id_auteur"]; |
| if ($email_auteur) { |
| $auteurs[] = "<a href=\"http://www.tela-botanica.org/page:membres_du_reseau_annuaire?m=annuaire_fiche_utilisateur_consultation&id_annuaire=1&id_utilisateur=$id_auteur\">$nom_auteur</a>"; |
| } else { |
| $auteurs[] = "$nom_auteur"; |
| } |
| } |
| } |
| return (!$auteurs) ? "" : join($auteurs, ", "); |
| } |
| |
| function sql_petitions($id_article, $table, $id_boucle, $serveur, &$Cache) { |
| $retour = spip_abstract_fetsel( |
| array('texte'), |
| array('spip_petitions'), |
| array("id_article=".intval($id_article)), |
| '',array(),'','',1, |
| $table, $id_boucle, $serveur); |
| |
| if (!$retour) return ''; |
| # cette page est invalidee par toute petition |
| $Cache['varia']['pet'.$id_article] = 1; |
| # ne pas retourner '' car le texte sert aussi de presence |
| return ($retour['texte'] ? $retour['texte'] : ' '); |
| } |
| |
| # retourne le chapeau d'un article, et seulement s'il est publie |
| |
| function sql_chapo($id_article) { |
| if ($id_article) |
| return spip_abstract_fetsel(array('chapo'), |
| array('spip_articles'), |
| array("id_article=".intval($id_article), |
| "statut='publie'")); |
| } |
| |
| # retourne le champ 'accepter_forum' d'un article |
| function sql_accepter_forum($id_article) { |
| static $cache = array(); |
| |
| if (!$id_article) return; |
| |
| if (!isset($cache[$id_article])) { |
| $row = spip_abstract_fetsel(array('accepter_forum'), |
| array('spip_articles'), |
| array("id_article=".intval($id_article))); |
| $cache[$id_article] = $row['accepter_forum']; |
| } |
| |
| return $cache[$id_article]; |
| } |
| |
| |
| // Calcul de la rubrique associee a la requete |
| // (selection de squelette specifique par id_rubrique & lang) |
| |
| function sql_rubrique_fond($contexte) { |
| |
| if ($id = intval($contexte['id_rubrique'])) { |
| $row = spip_abstract_fetsel(array('lang'), |
| array('spip_rubriques'), |
| array("id_rubrique=$id")); |
| if ($row['lang']) |
| $lang = $row['lang']; |
| return array ($id, $lang); |
| } |
| |
| if ($id = intval($contexte['id_breve'])) { |
| $row = spip_abstract_fetsel(array('id_rubrique', 'lang'), |
| array('spip_breves'), |
| array("id_breve=$id")); |
| $id_rubrique_fond = $row['id_rubrique']; |
| if ($row['lang']) |
| $lang = $row['lang']; |
| return array($id_rubrique_fond, $lang); |
| } |
| |
| if ($id = intval($contexte['id_syndic'])) { |
| $row = spip_abstract_fetsel(array('id_rubrique'), |
| array('spip_syndic'), |
| array("id_syndic=$id")); |
| $id_rubrique_fond = $row['id_rubrique']; |
| $row = spip_abstract_fetsel(array('lang'), |
| array('spip_rubriques'), |
| array("id_rubrique='$id_rubrique_fond'")); |
| if ($row['lang']) |
| $lang = $row['lang']; |
| return array($id_rubrique_fond, $lang); |
| } |
| |
| if ($id = intval($contexte['id_article'])) { |
| $row = spip_abstract_fetsel(array('id_rubrique', 'lang'), |
| array('spip_articles'), |
| array("id_article=$id")); |
| $id_rubrique_fond = $row['id_rubrique']; |
| if ($row['lang']) |
| $lang = $row['lang']; |
| return array($id_rubrique_fond, $lang); |
| } |
| } |
| |
| // Ajouter "&lang=..." si la langue de base n'est pas celle du site |
| function lang_parametres_forum($s) { |
| |
| // ne pas se fatiguer si le site est unilingue (plus rapide) |
| if (strstr(lire_meta('langues_utilisees'), ',') |
| // chercher l'identifiant qui nous donnera la langue |
| AND preg_match(',id_(article|breve|rubrique|syndic)=([0-9]+),', $s, $r)){ |
| $objet = $r[1]; |
| $id = $r[2]; |
| list($lang) = spip_fetch_array(spip_query( |
| "SELECT lang FROM spip_${objet}s WHERE id_$objet=$id" |
| )); |
| // Si ce n'est pas la meme que celle du site, l'ajouter aux parametres |
| if ($lang AND $lang <> lire_meta('langue_site')) |
| $s .= "&lang=$lang"; |
| } |
| |
| return $s; |
| } |
| |
| ?> |