3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
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')) return;
15 // http://doc.spip.org/@trace_query_start
16 function trace_query_start()
20 include_spip('inc/autoriser');
21 // gare au bouclage sur calcul de droits au premier appel
22 // A fortiori quand on demande une trace
23 $trace = isset($_GET['var_profile']) AND (autoriser('debug'));
25 return $trace ?
microtime() : 0;
28 // http://doc.spip.org/@trace_query_end
29 function trace_query_end($query, $start, $result, $erreur, $serveur=''){
31 trace_query_chrono($start, microtime(), $query, $result, $serveur);
32 // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
33 if ($erreur AND !preg_match('/^select\b/i', $query))
34 erreur_squelette(array(sql_errno($serveur), $erreur, $query));
38 // http://doc.spip.org/@trace_query_chrono
39 function trace_query_chrono($m1, $m2, $query, $result, $serveur='')
41 static $tt = 0, $nb=0;
42 global $tableau_des_temps;
44 include_spip('inc/filtres_mini');
46 $x = _request('var_mode_objet');
47 if (isset($GLOBALS['debug']['aucasou'])) {
48 list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou'];
49 if ($x AND !preg_match("/$boucle\$/", $x))
51 if ($serveur) $boucle .= " ($serveur)";
52 $boucle = "<b>$boucle</b>";
55 $boucle = $contexte = '';
58 list($usec, $sec) = explode(" ", $m1);
59 list($usec2, $sec2) = explode(" ", $m2);
60 $dt = $sec2 +
$usec2 - $sec - $usec;
64 $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2",spip_htmlentities($query));
65 $e = sql_explain($query, $serveur);
66 $r = str_replace('Resource id ','',(is_object($result)?
get_class($result):$result));
67 $tableau_des_temps[] = array($dt, $nb, $boucle, $q, $e, $r, $contexte);
71 function chrono_requete($temps)
74 $hors = "<i>" . _T('zbug_hors_compilation') . "</i>";
75 $t = $q = $n = $d = array();
76 // Totaliser les temps et completer le Explain
77 foreach ($temps as $key => $v) {
78 list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v;
79 if (is_array($contexte)) {
80 $k = ($contexte[0] . " $boucle");
81 include_spip('public/compiler');
82 $env = reconstruire_contexte_compil($contexte);
83 } else $k = $env = $boucle;
91 if (!is_array($explain))
93 foreach($explain as $j => $v) {
94 $explain[$j] = "<tr><th>$j</th><td>"
95 . str_replace(';','<br />',$v)
98 $e = "<table class='explain'>"
102 . "<tr><th>Time</th><td>$dt</td></tr>"
103 . "<tr><th>Order</th><td>$nb</td></tr>"
104 . "<tr><th>Res</th><td>$res</td></tr>"
108 $temps[$key] = array($e, $env, $k);
110 // Trier par temps d'execution decroissant
111 array_multisort($t, SORT_DESC
, $q, $temps);
115 // Fabriquer les liens de navigations dans le tableau des temps
116 foreach($temps as $k => $v) {
117 $titre = strip_tags($v[2]);
118 $href = quote_amp($GLOBALS['REQUEST_URI'])."#req$i";
120 $t[$v[2]][]= "<span class='spip-debug-arg'> "
121 . "<a title='$titre' href='$href'>$i</a>"
123 . ((count($t[$v[2]]) %
10 == 9) ?
"<br />" : '');
133 // Fabriquer le tableau des liens de navigation dans le grand tableau
134 foreach ($d as $k => $v) {
135 $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
139 $navigation = array(_T('zbug_statistiques'),
141 . join("</td></tr>\n<tr><td>", $d)
143 . (# _request('var_mode_objet') ? '' :
144 ("<tr><td>" . count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>")));
146 return array($temps, $navigation);