3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
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 $x = _request('var_mode_objet');
45 if (isset($GLOBALS['debug']['aucasou'])) {
46 list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou'];
47 if ($x AND !preg_match("/$boucle\$/", $x))
49 if ($serveur) $boucle .= " ($serveur)";
50 $boucle = "<b>$boucle</b>";
53 $boucle = $contexte = '';
56 list($usec, $sec) = explode(" ", $m1);
57 list($usec2, $sec2) = explode(" ", $m2);
58 $dt = $sec2 +
$usec2 - $sec - $usec;
62 $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2",htmlentities($query));
63 $e = sql_explain($query, $serveur);
64 $r = str_replace('Resource id ','',(is_object($result)?
get_class($result):$result));
65 $tableau_des_temps[] = array($dt, $nb, $boucle, $q, $e, $r, $contexte);
69 function chrono_requete($temps)
72 $hors = "<i>" . _T('zbug_hors_compilation') . "</i>";
73 $t = $q = $n = $d = array();
74 // Totaliser les temps et completer le Explain
75 foreach ($temps as $key => $v) {
76 list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v;
77 if (is_array($contexte)) {
78 $k = ($contexte[0] . " $boucle");
79 include_spip('public/compiler');
80 $env = reconstruire_contexte_compil($contexte);
81 } else $k = $env = $boucle;
89 if (!is_array($explain))
91 foreach($explain as $j => $v) {
92 $explain[$j] = "<tr><th>$j</th><td>"
93 . str_replace(';','<br />',$v)
96 $e = "<table class='explain'>"
100 . "<tr><th>Time</th><td>$dt</td></tr>"
101 . "<tr><th>Order</th><td>$nb</td></tr>"
102 . "<tr><th>Res</th><td>$res</td></tr>"
106 $temps[$key] = array($e, $env, $k);
108 // Trier par temps d'execution decroissant
109 array_multisort($t, SORT_DESC
, $q, $temps);
113 // Fabriquer les liens de navigations dans le tableau des temps
114 foreach($temps as $k => $v) {
115 $titre = strip_tags($v[2]);
116 $href = quote_amp($GLOBALS['REQUEST_URI'])."#req$i";
118 $t[$v[2]][]= "<span class='spip-debug-arg'> "
119 . "<a title='$titre' href='$href'>$i</a>"
121 . ((count($t[$v[2]]) %
10 == 9) ?
"<br />" : '');
131 // Fabriquer le tableau des liens de navigation dans le grand tableau
132 foreach ($d as $k => $v) {
133 $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
138 _T('zbug_statistiques')
139 . "<table style='text-align: left; border: 1px solid;'><tr><td>"
140 . join("</td></tr>\n<tr><td>", $d)
142 . (# _request('var_mode_objet') ? '' :
143 ("<tr><td>" . count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>"))
146 return array($temps, $navigation);