@@ -11,190 +11,190 @@ |
||
| 11 | 11 | \***************************************************************************/ |
| 12 | 12 | |
| 13 | 13 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 14 | - return; |
|
| 14 | + return; |
|
| 15 | 15 | } |
| 16 | 16 | |
| 17 | 17 | // https://code.spip.net/@trace_query_start |
| 18 | 18 | function trace_query_start() { |
| 19 | - static $trace = '?'; |
|
| 20 | - if ($trace === '?' or defined('_DEBUG_TRACE_QUERIES')) { |
|
| 21 | - if (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES) { |
|
| 22 | - $trace = true; |
|
| 23 | - } |
|
| 24 | - else { |
|
| 25 | - if (empty($GLOBALS['visiteur_session'])) { |
|
| 26 | - // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir |
|
| 27 | - // car ici on ne sait pas si c'est un hit anonyme |
|
| 28 | - // ou une requete SQL faite avant chargement de la session |
|
| 29 | - $trace = (!empty($_GET['var_profile']) ? '?' : false); |
|
| 30 | - } |
|
| 31 | - else { |
|
| 32 | - include_spip('inc/autoriser'); |
|
| 33 | - // gare au bouclage sur calcul de droits au premier appel |
|
| 34 | - // A fortiori quand on demande une trace |
|
| 35 | - $trace = false; // on ne trace pas la requete provoquee par autoriser('debug') |
|
| 36 | - $trace = (!empty($_GET['var_profile']) and autoriser('debug')); |
|
| 37 | - } |
|
| 38 | - } |
|
| 39 | - } |
|
| 40 | - |
|
| 41 | - return $trace ? microtime() : 0; |
|
| 19 | + static $trace = '?'; |
|
| 20 | + if ($trace === '?' or defined('_DEBUG_TRACE_QUERIES')) { |
|
| 21 | + if (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES) { |
|
| 22 | + $trace = true; |
|
| 23 | + } |
|
| 24 | + else { |
|
| 25 | + if (empty($GLOBALS['visiteur_session'])) { |
|
| 26 | + // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir |
|
| 27 | + // car ici on ne sait pas si c'est un hit anonyme |
|
| 28 | + // ou une requete SQL faite avant chargement de la session |
|
| 29 | + $trace = (!empty($_GET['var_profile']) ? '?' : false); |
|
| 30 | + } |
|
| 31 | + else { |
|
| 32 | + include_spip('inc/autoriser'); |
|
| 33 | + // gare au bouclage sur calcul de droits au premier appel |
|
| 34 | + // A fortiori quand on demande une trace |
|
| 35 | + $trace = false; // on ne trace pas la requete provoquee par autoriser('debug') |
|
| 36 | + $trace = (!empty($_GET['var_profile']) and autoriser('debug')); |
|
| 37 | + } |
|
| 38 | + } |
|
| 39 | + } |
|
| 40 | + |
|
| 41 | + return $trace ? microtime() : 0; |
|
| 42 | 42 | } |
| 43 | 43 | |
| 44 | 44 | // https://code.spip.net/@trace_query_end |
| 45 | 45 | function trace_query_end($query, $start, $result, $erreur, $serveur = '') { |
| 46 | - static $trace = '?'; |
|
| 47 | - if ($trace === '?') { |
|
| 48 | - if (empty($GLOBALS['visiteur_session'])) { |
|
| 49 | - // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir |
|
| 50 | - // car ici on ne sait pas si c'est un hit anonyme |
|
| 51 | - // ou une requete SQL faite avant chargement de la session |
|
| 52 | - $trace = (!empty($_GET['var_profile']) ? '?' : false); |
|
| 53 | - } |
|
| 54 | - else { |
|
| 55 | - include_spip('inc/autoriser'); |
|
| 56 | - // gare au bouclage sur calcul de droits au premier appel |
|
| 57 | - // A fortiori quand on demande une trace |
|
| 58 | - $trace = false; // on ne trace pas la requete provoquee par autoriser('debug') |
|
| 59 | - $trace = (!empty($_GET['var_profile']) and autoriser('debug')); |
|
| 60 | - } |
|
| 61 | - } |
|
| 62 | - if ($start) { |
|
| 63 | - $end = microtime(); |
|
| 64 | - list($usec, $sec) = explode(" ", $start); |
|
| 65 | - list($usec2, $sec2) = explode(" ", $end); |
|
| 66 | - $dt = $sec2 + $usec2 - $sec - $usec; |
|
| 67 | - pipeline('trig_trace_query', ['query' => $query, 'start' => $start, 'end' => $end, 'time' => $dt, 'result' => $result, 'erreur' => $erreur, 'serveur' => $serveur]); |
|
| 68 | - if ($trace) { |
|
| 69 | - trace_query_chrono($dt, $query, $result, $serveur); |
|
| 70 | - } |
|
| 71 | - } |
|
| 72 | - // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql |
|
| 73 | - if ($trace and $erreur and !preg_match('/^select\b/i', $query)) { |
|
| 74 | - erreur_squelette(array(sql_errno($serveur), $erreur, $query)); |
|
| 75 | - } |
|
| 76 | - |
|
| 77 | - return $result; |
|
| 46 | + static $trace = '?'; |
|
| 47 | + if ($trace === '?') { |
|
| 48 | + if (empty($GLOBALS['visiteur_session'])) { |
|
| 49 | + // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir |
|
| 50 | + // car ici on ne sait pas si c'est un hit anonyme |
|
| 51 | + // ou une requete SQL faite avant chargement de la session |
|
| 52 | + $trace = (!empty($_GET['var_profile']) ? '?' : false); |
|
| 53 | + } |
|
| 54 | + else { |
|
| 55 | + include_spip('inc/autoriser'); |
|
| 56 | + // gare au bouclage sur calcul de droits au premier appel |
|
| 57 | + // A fortiori quand on demande une trace |
|
| 58 | + $trace = false; // on ne trace pas la requete provoquee par autoriser('debug') |
|
| 59 | + $trace = (!empty($_GET['var_profile']) and autoriser('debug')); |
|
| 60 | + } |
|
| 61 | + } |
|
| 62 | + if ($start) { |
|
| 63 | + $end = microtime(); |
|
| 64 | + list($usec, $sec) = explode(" ", $start); |
|
| 65 | + list($usec2, $sec2) = explode(" ", $end); |
|
| 66 | + $dt = $sec2 + $usec2 - $sec - $usec; |
|
| 67 | + pipeline('trig_trace_query', ['query' => $query, 'start' => $start, 'end' => $end, 'time' => $dt, 'result' => $result, 'erreur' => $erreur, 'serveur' => $serveur]); |
|
| 68 | + if ($trace) { |
|
| 69 | + trace_query_chrono($dt, $query, $result, $serveur); |
|
| 70 | + } |
|
| 71 | + } |
|
| 72 | + // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql |
|
| 73 | + if ($trace and $erreur and !preg_match('/^select\b/i', $query)) { |
|
| 74 | + erreur_squelette(array(sql_errno($serveur), $erreur, $query)); |
|
| 75 | + } |
|
| 76 | + |
|
| 77 | + return $result; |
|
| 78 | 78 | } |
| 79 | 79 | |
| 80 | 80 | // https://code.spip.net/@trace_query_chrono |
| 81 | 81 | function trace_query_chrono($dt, $query, $result, $serveur = '') { |
| 82 | - include_spip('inc/filtres_mini'); |
|
| 83 | - static $tt = 0, $nb = 0; |
|
| 84 | - |
|
| 85 | - $x = _request('var_mode_objet'); |
|
| 86 | - if (isset($GLOBALS['debug']['aucasou'])) { |
|
| 87 | - list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou']; |
|
| 88 | - if ($x and !preg_match("/$boucle\$/", $x)) { |
|
| 89 | - return; |
|
| 90 | - } |
|
| 91 | - if ($serveur) { |
|
| 92 | - $boucle .= " ($serveur)"; |
|
| 93 | - } |
|
| 94 | - $boucle = "<b>$boucle</b>"; |
|
| 95 | - } else { |
|
| 96 | - if ($x) { |
|
| 97 | - return; |
|
| 98 | - } |
|
| 99 | - $boucle = $contexte = ''; |
|
| 100 | - } |
|
| 101 | - |
|
| 102 | - $tt += $dt; |
|
| 103 | - $nb++; |
|
| 104 | - |
|
| 105 | - $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2", spip_htmlentities($query)); |
|
| 106 | - $e = sql_explain($query, $serveur); |
|
| 107 | - $r = str_replace('Resource id ', '', (is_object($result) ? get_class($result) : $result)); |
|
| 108 | - $GLOBALS['tableau_des_temps'][] = array($dt, $nb, $boucle, $q, $e, $r, $contexte); |
|
| 82 | + include_spip('inc/filtres_mini'); |
|
| 83 | + static $tt = 0, $nb = 0; |
|
| 84 | + |
|
| 85 | + $x = _request('var_mode_objet'); |
|
| 86 | + if (isset($GLOBALS['debug']['aucasou'])) { |
|
| 87 | + list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou']; |
|
| 88 | + if ($x and !preg_match("/$boucle\$/", $x)) { |
|
| 89 | + return; |
|
| 90 | + } |
|
| 91 | + if ($serveur) { |
|
| 92 | + $boucle .= " ($serveur)"; |
|
| 93 | + } |
|
| 94 | + $boucle = "<b>$boucle</b>"; |
|
| 95 | + } else { |
|
| 96 | + if ($x) { |
|
| 97 | + return; |
|
| 98 | + } |
|
| 99 | + $boucle = $contexte = ''; |
|
| 100 | + } |
|
| 101 | + |
|
| 102 | + $tt += $dt; |
|
| 103 | + $nb++; |
|
| 104 | + |
|
| 105 | + $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2", spip_htmlentities($query)); |
|
| 106 | + $e = sql_explain($query, $serveur); |
|
| 107 | + $r = str_replace('Resource id ', '', (is_object($result) ? get_class($result) : $result)); |
|
| 108 | + $GLOBALS['tableau_des_temps'][] = array($dt, $nb, $boucle, $q, $e, $r, $contexte); |
|
| 109 | 109 | } |
| 110 | 110 | |
| 111 | 111 | |
| 112 | 112 | function chrono_requete($temps) { |
| 113 | - $total = 0; |
|
| 114 | - $hors = "<i>" . _T('zbug_hors_compilation') . "</i>"; |
|
| 115 | - $t = $q = $n = $d = array(); |
|
| 116 | - // Totaliser les temps et completer le Explain |
|
| 117 | - foreach ($temps as $key => $v) { |
|
| 118 | - list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v; |
|
| 119 | - if (is_array($contexte)) { |
|
| 120 | - $k = ($contexte[0] . " $boucle"); |
|
| 121 | - include_spip('public/compiler'); |
|
| 122 | - $env = reconstruire_contexte_compil($contexte); |
|
| 123 | - } else { |
|
| 124 | - $k = $env = $boucle; |
|
| 125 | - } |
|
| 126 | - |
|
| 127 | - $total += $dt; |
|
| 128 | - $t[$key] = $dt; |
|
| 129 | - $q[$key] = $nb; |
|
| 130 | - if (!isset($d[$k])) { |
|
| 131 | - $d[$k] = 0; |
|
| 132 | - $n[$k] = 0; |
|
| 133 | - } |
|
| 134 | - $d[$k] += $dt; |
|
| 135 | - ++$n[$k]; |
|
| 136 | - |
|
| 137 | - if (!is_array($explain)) { |
|
| 138 | - $explain = array(); |
|
| 139 | - } |
|
| 140 | - foreach ($explain as $j => $v) { |
|
| 141 | - $explain[$j] = "<tr><th>$j</th><td>" |
|
| 142 | - . str_replace(';', '<br />', $v) |
|
| 143 | - . "</td></tr>"; |
|
| 144 | - } |
|
| 145 | - $e = "<table class='explain'>" |
|
| 146 | - . "<caption>" |
|
| 147 | - . $query |
|
| 148 | - . "</caption>" |
|
| 149 | - . "<tr><th>Time</th><td>$dt</td></tr>" |
|
| 150 | - . "<tr><th>Order</th><td>$nb</td></tr>" |
|
| 151 | - . "<tr><th>Res</th><td>$res</td></tr>" |
|
| 152 | - . join('', $explain) |
|
| 153 | - . "</table>"; |
|
| 154 | - |
|
| 155 | - $temps[$key] = array($e, $env, $k); |
|
| 156 | - } |
|
| 157 | - // Trier par temps d'execution decroissant |
|
| 158 | - array_multisort($t, SORT_DESC, $q, $temps); |
|
| 159 | - arsort($d); |
|
| 160 | - $i = 1; |
|
| 161 | - $t = array(); |
|
| 162 | - // Fabriquer les liens de navigations dans le tableau des temps |
|
| 163 | - foreach ($temps as $k => $v) { |
|
| 164 | - $titre = strip_tags($v[2]); |
|
| 165 | - $href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i"; |
|
| 166 | - $href = str_replace("\\'", ''', $href); |
|
| 167 | - |
|
| 168 | - if (!isset($t[$v[2]])) { |
|
| 169 | - $t[$v[2]] = array(); |
|
| 170 | - } |
|
| 171 | - $t[$v[2]][] = "<span class='spip-debug-arg'> " |
|
| 172 | - . "<a title='$titre' href='$href'>$i</a>" |
|
| 173 | - . '</span>' |
|
| 174 | - . ((count($t[$v[2]]) % 10 == 9) ? "<br />" : ''); |
|
| 175 | - $i++; |
|
| 176 | - } |
|
| 177 | - |
|
| 178 | - if ($d['']) { |
|
| 179 | - $d[$hors] = $d['']; |
|
| 180 | - $n[$hors] = $n['']; |
|
| 181 | - $t[$hors] = $t['']; |
|
| 182 | - } |
|
| 183 | - unset($d['']); |
|
| 184 | - // Fabriquer le tableau des liens de navigation dans le grand tableau |
|
| 185 | - foreach ($d as $k => $v) { |
|
| 186 | - $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>" |
|
| 187 | - . join('', $t[$k]); |
|
| 188 | - } |
|
| 189 | - |
|
| 190 | - $navigation = array( |
|
| 191 | - _T('zbug_statistiques'), |
|
| 192 | - "<tr><td>" |
|
| 193 | - . join("</td></tr>\n<tr><td>", $d) |
|
| 194 | - . "</td></tr>\n" |
|
| 195 | - . (# _request('var_mode_objet') ? '' : |
|
| 196 | - ("<tr><td>" . count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>")) |
|
| 197 | - ); |
|
| 198 | - |
|
| 199 | - return array($temps, $navigation); |
|
| 113 | + $total = 0; |
|
| 114 | + $hors = "<i>" . _T('zbug_hors_compilation') . "</i>"; |
|
| 115 | + $t = $q = $n = $d = array(); |
|
| 116 | + // Totaliser les temps et completer le Explain |
|
| 117 | + foreach ($temps as $key => $v) { |
|
| 118 | + list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v; |
|
| 119 | + if (is_array($contexte)) { |
|
| 120 | + $k = ($contexte[0] . " $boucle"); |
|
| 121 | + include_spip('public/compiler'); |
|
| 122 | + $env = reconstruire_contexte_compil($contexte); |
|
| 123 | + } else { |
|
| 124 | + $k = $env = $boucle; |
|
| 125 | + } |
|
| 126 | + |
|
| 127 | + $total += $dt; |
|
| 128 | + $t[$key] = $dt; |
|
| 129 | + $q[$key] = $nb; |
|
| 130 | + if (!isset($d[$k])) { |
|
| 131 | + $d[$k] = 0; |
|
| 132 | + $n[$k] = 0; |
|
| 133 | + } |
|
| 134 | + $d[$k] += $dt; |
|
| 135 | + ++$n[$k]; |
|
| 136 | + |
|
| 137 | + if (!is_array($explain)) { |
|
| 138 | + $explain = array(); |
|
| 139 | + } |
|
| 140 | + foreach ($explain as $j => $v) { |
|
| 141 | + $explain[$j] = "<tr><th>$j</th><td>" |
|
| 142 | + . str_replace(';', '<br />', $v) |
|
| 143 | + . "</td></tr>"; |
|
| 144 | + } |
|
| 145 | + $e = "<table class='explain'>" |
|
| 146 | + . "<caption>" |
|
| 147 | + . $query |
|
| 148 | + . "</caption>" |
|
| 149 | + . "<tr><th>Time</th><td>$dt</td></tr>" |
|
| 150 | + . "<tr><th>Order</th><td>$nb</td></tr>" |
|
| 151 | + . "<tr><th>Res</th><td>$res</td></tr>" |
|
| 152 | + . join('', $explain) |
|
| 153 | + . "</table>"; |
|
| 154 | + |
|
| 155 | + $temps[$key] = array($e, $env, $k); |
|
| 156 | + } |
|
| 157 | + // Trier par temps d'execution decroissant |
|
| 158 | + array_multisort($t, SORT_DESC, $q, $temps); |
|
| 159 | + arsort($d); |
|
| 160 | + $i = 1; |
|
| 161 | + $t = array(); |
|
| 162 | + // Fabriquer les liens de navigations dans le tableau des temps |
|
| 163 | + foreach ($temps as $k => $v) { |
|
| 164 | + $titre = strip_tags($v[2]); |
|
| 165 | + $href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i"; |
|
| 166 | + $href = str_replace("\\'", ''', $href); |
|
| 167 | + |
|
| 168 | + if (!isset($t[$v[2]])) { |
|
| 169 | + $t[$v[2]] = array(); |
|
| 170 | + } |
|
| 171 | + $t[$v[2]][] = "<span class='spip-debug-arg'> " |
|
| 172 | + . "<a title='$titre' href='$href'>$i</a>" |
|
| 173 | + . '</span>' |
|
| 174 | + . ((count($t[$v[2]]) % 10 == 9) ? "<br />" : ''); |
|
| 175 | + $i++; |
|
| 176 | + } |
|
| 177 | + |
|
| 178 | + if ($d['']) { |
|
| 179 | + $d[$hors] = $d['']; |
|
| 180 | + $n[$hors] = $n['']; |
|
| 181 | + $t[$hors] = $t['']; |
|
| 182 | + } |
|
| 183 | + unset($d['']); |
|
| 184 | + // Fabriquer le tableau des liens de navigation dans le grand tableau |
|
| 185 | + foreach ($d as $k => $v) { |
|
| 186 | + $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>" |
|
| 187 | + . join('', $t[$k]); |
|
| 188 | + } |
|
| 189 | + |
|
| 190 | + $navigation = array( |
|
| 191 | + _T('zbug_statistiques'), |
|
| 192 | + "<tr><td>" |
|
| 193 | + . join("</td></tr>\n<tr><td>", $d) |
|
| 194 | + . "</td></tr>\n" |
|
| 195 | + . (# _request('var_mode_objet') ? '' : |
|
| 196 | + ("<tr><td>" . count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>")) |
|
| 197 | + ); |
|
| 198 | + |
|
| 199 | + return array($temps, $navigation); |
|
| 200 | 200 | } |
@@ -20,15 +20,13 @@ discard block |
||
| 20 | 20 | if ($trace === '?' or defined('_DEBUG_TRACE_QUERIES')) { |
| 21 | 21 | if (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES) { |
| 22 | 22 | $trace = true; |
| 23 | - } |
|
| 24 | - else { |
|
| 23 | + } else { |
|
| 25 | 24 | if (empty($GLOBALS['visiteur_session'])) { |
| 26 | 25 | // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir |
| 27 | 26 | // car ici on ne sait pas si c'est un hit anonyme |
| 28 | 27 | // ou une requete SQL faite avant chargement de la session |
| 29 | 28 | $trace = (!empty($_GET['var_profile']) ? '?' : false); |
| 30 | - } |
|
| 31 | - else { |
|
| 29 | + } else { |
|
| 32 | 30 | include_spip('inc/autoriser'); |
| 33 | 31 | // gare au bouclage sur calcul de droits au premier appel |
| 34 | 32 | // A fortiori quand on demande une trace |
@@ -50,8 +48,7 @@ discard block |
||
| 50 | 48 | // car ici on ne sait pas si c'est un hit anonyme |
| 51 | 49 | // ou une requete SQL faite avant chargement de la session |
| 52 | 50 | $trace = (!empty($_GET['var_profile']) ? '?' : false); |
| 53 | - } |
|
| 54 | - else { |
|
| 51 | + } else { |
|
| 55 | 52 | include_spip('inc/autoriser'); |
| 56 | 53 | // gare au bouclage sur calcul de droits au premier appel |
| 57 | 54 | // A fortiori quand on demande une trace |