3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2019 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) {
17 // http://code.spip.net/@trace_query_start
18 function trace_query_start() {
21 include_spip('inc/autoriser');
22 // gare au bouclage sur calcul de droits au premier appel
23 // A fortiori quand on demande une trace
24 $trace = isset($_GET['var_profile']) and (autoriser('debug'));
27 return $trace ?
microtime() : 0;
30 // http://code.spip.net/@trace_query_end
31 function trace_query_end($query, $start, $result, $erreur, $serveur = '') {
33 trace_query_chrono($start, microtime(), $query, $result, $serveur);
35 // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
36 if ($erreur and !preg_match('/^select\b/i', $query)) {
37 erreur_squelette(array(sql_errno($serveur), $erreur, $query));
43 // http://code.spip.net/@trace_query_chrono
44 function trace_query_chrono($m1, $m2, $query, $result, $serveur = '') {
45 include_spip('inc/filtres_mini');
46 static $tt = 0, $nb = 0;
48 $x = _request('var_mode_objet');
49 if (isset($GLOBALS['debug']['aucasou'])) {
50 list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou'];
51 if ($x and !preg_match("/$boucle\$/", $x)) {
55 $boucle .= " ($serveur)";
57 $boucle = "<b>$boucle</b>";
62 $boucle = $contexte = '';
65 list($usec, $sec) = explode(" ", $m1);
66 list($usec2, $sec2) = explode(" ", $m2);
67 $dt = $sec2 +
$usec2 - $sec - $usec;
71 $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2", spip_htmlentities($query));
72 $e = sql_explain($query, $serveur);
73 $r = str_replace('Resource id ', '', (is_object($result) ?
get_class($result) : $result));
74 $GLOBALS['tableau_des_temps'][] = array($dt, $nb, $boucle, $q, $e, $r, $contexte);
78 function chrono_requete($temps) {
80 $hors = "<i>" . _T('zbug_hors_compilation') . "</i>";
81 $t = $q = $n = $d = array();
82 // Totaliser les temps et completer le Explain
83 foreach ($temps as $key => $v) {
84 list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v;
85 if (is_array($contexte)) {
86 $k = ($contexte[0] . " $boucle");
87 include_spip('public/compiler');
88 $env = reconstruire_contexte_compil($contexte);
103 if (!is_array($explain)) {
106 foreach ($explain as $j => $v) {
107 $explain[$j] = "<tr><th>$j</th><td>"
108 . str_replace(';', '<br />', $v)
111 $e = "<table class='explain'>"
115 . "<tr><th>Time</th><td>$dt</td></tr>"
116 . "<tr><th>Order</th><td>$nb</td></tr>"
117 . "<tr><th>Res</th><td>$res</td></tr>"
121 $temps[$key] = array($e, $env, $k);
123 // Trier par temps d'execution decroissant
124 array_multisort($t, SORT_DESC
, $q, $temps);
128 // Fabriquer les liens de navigations dans le tableau des temps
129 foreach ($temps as $k => $v) {
130 $titre = strip_tags($v[2]);
131 $href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i";
133 if (!isset($t[$v[2]])) {
136 $t[$v[2]][] = "<span class='spip-debug-arg'> "
137 . "<a title='$titre' href='$href'>$i</a>"
139 . ((count($t[$v[2]]) %
10 == 9) ?
"<br />" : '');
149 // Fabriquer le tableau des liens de navigation dans le grand tableau
150 foreach ($d as $k => $v) {
151 $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
156 _T('zbug_statistiques'),
158 . join("</td></tr>\n<tr><td>", $d)
160 . (# _request('var_mode_objet') ? '' :
161 ("<tr><td>" . count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>"))
164 return array($temps, $navigation);