| " + . _T('numero') + . " | " + . _T('message') + . " | " + . _T('squelette') + . " | " + . _T('boucle') + . " | " + . _T('ligne') + . " |
|---|
';}
+
+ $s = preg_replace(',<(\w[^<>]*)>([^<]*)
([^<]*),',
+ '<\1>\2
' . "\n" . '<\1>\3',
+ $s);
+
+
+ $tableau = explode("
", $s);
+
+ $format = "%0" . strval(@strlen(count($tableau))). "d %s
\n";
+
+ $format10=str_replace('white','lightgrey',$format);
+ $formaterr="color: red;";
+ $i=1;
+ $flignes = array();
+ $loc = array(0,0);
+ foreach ($fautifs as $lc)
+ if (is_array($lc)) {
+ $l = array_shift($lc);
+ $flignes[$l] = $lc;
+ } else $flignes[$lc] = $loc;
+
+ $ancre = md5($texte);
+ foreach ($tableau as $ligne) {
+ if (isset($flignes[$i])) {
+ $ligne = str_replace(' ',' ', $ligne);
+ $indexmesg = $flignes[$i][1];
+ $err = textebrut($flignes[$i][2]);
+ // tentative de pointer sur la colonne fautive;
+ // marche pas car highlight_string rajoute des entites. A revoir.
+ // $m = $flignes[$i][0];
+ // $ligne = substr($ligne, 0, $m-1) .
+ // sprintf($formaterr, substr($ligne,$m));
+ $bg = $formaterr;
+ } else {$indexmesg = $ancre; $err= $bg='';}
+ $res .= sprintf((($i%10) ? $format :$format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+ $i++;
+ }
+
+ return ""
+ .''
+ . ($nocpt ? '' : _T('info_numero_abbreviation'))
+ . "
+ ".$res."\n";
+}
+
+// l'environnement graphique du debuggueur
+
+function debusquer_squelette ($fonc, $mode, $self) {
+ global $debug_objets;
+
+ if ($mode !== 'validation') {
+ if ($debug_objets['sourcefile']) {
+ $res = "\n"
+ . debusquer_navigation_squelettes($self)
+ . "";
+ } else $res = '';
+ if ($fonc) {
+ $id = " id='$fonc'";
+ if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
+ list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
+ $texte .= $res2;
+ } elseif (!empty($debug_objets[$mode][$fonc . 'tout'])) {
+ $legend = _T('zbug_' . $mode);
+ $texte = $debug_objets[$mode][$fonc . 'tout'];
+ $texte = ancre_texte($texte, array('',''));
+ }
+ } else return strlen(trim($res))
+ ? "$res"
+ // cas de l'appel sur erreur: montre la page
+ : $GLOBALS['debug_objets']['resultat']['tout'];
+ } else {
+ $valider = charger_fonction('valider', 'xml');
+ $val = $valider($debug_objets['validation'][$fonc . 'tout']);
+ // Si erreur, signaler leur nombre dans le formulaire admin
+ $debug_objets['validation'] = $val[1] ? count($val[1]):'';
+ list($texte, $err) = emboite_texte($val, $fonc, $self);
+ if ($err === false)
+ $err = _T('impossible');
+ elseif ($err === true)
+ $err = _T('correcte');
+ else $err = ": $err";
+ $legend = _T('validation') . ' ' . $err;
+ $res = $id = '';
+ }
+ return !trim($texte) ? '' : (
+ "$res"
+ . ""
+ . $texte
+ . " "
+ . "");
+}
+
+function debusquer_navigation_squelettes($self)
+{
+ global $debug_objets, $spip_lang_right;
+
+ $res = '';
+ $boucles = !empty($debug_objets['boucle']) ? $debug_objets['boucle']:'';
+ $contexte = $debug_objets['contexte'];
+ $t_skel = _T('squelette');
+ foreach ($debug_objets['sourcefile'] as $nom => $sourcefile) {
+ $self2 = parametre_url($self,'var_mode_objet', $nom);
+ $nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self);
+ $temps = !isset($debug_objets['profile'][$sourcefile]) ? '' : _T('zbug_profile', array('time'=>$debug_objets['profile'][$sourcefile]));
+
+ $res .= "\n";
+ }
+ return $res;
+}
+
+function debusquer_navigation_boucles($boucles, $nom_skel, $self)
+{
+ $i = 0;
+ $res = '';
+ $var_mode_objet = _request('var_mode_objet');
+ foreach ($boucles as $objet => $boucle) {
+ if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
+ $i++;
+ $nom = $boucle->id_boucle;
+ $req = $boucle->type_requete;
+ $crit = decompiler_criteres($boucle->param, $boucle->criteres);
+ $self2 = $self . "&var_mode_objet=" . $objet;
+
+ $res .= "\n$i \n" .
+ "" .
+ _T('zbug_boucle') .
+ " \n" .
+ _T('zbug_resultat') .
+ " \n" .
+ _T('zbug_code') .
+ " \n" .
+ _T('zbug_calcul') .
+ " \n" .
+ (($var_mode_objet == $objet) ? "$nom" : $nom) .
+ " \n" .
+ $req .
+ " \n" .
+ $crit .
+ " \n" . $req . "
\n\n";
+ // formatage et affichage des resultats bruts de la requete
+ $ress_req = spip_query($req);
+ $brut_sql = '';
+ $num = 1;
+ // eviter l'affichage de milliers de lignes
+ // personnalisation possible dans mes_options
+ $max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
+ while ($retours_sql = sql_fetch($ress_req)) {
+ if ($num <= $max_aff) {
+ $brut_sql .= "" .($num == 1 ? $num. " sur " .sql_count($ress_req):$num). "
";
+ $brut_sql .= "";
+ foreach ($retours_sql as $key => $val) {
+ $brut_sql .= "" .$key. " => " .htmlspecialchars(couper($val, 150)). "
\n";
+ }
+ $brut_sql .= "
";
+ }
+ $num++;
+ }
+ $res2 = interdire_scripts($brut_sql);
+ foreach ($quoi as $view) {
+ // ne pas afficher les $contexte_inclus
+ $view = preg_replace(",<\?php.+\?[>],Uims", "", $view);
+ if ($view) {
+ $res2 .= "\n
";
+ }
+ }
+
+ } else if ($affiche == 'code') {
+ $legend = $nom;
+ $res = ancre_texte("<"."?php\n".$quoi."\n?".">");
+ } else if ($affiche == 'boucle') {
+ $legend = _T('boucle') . ' ' . $nom;
+ $res = ancre_texte(decompiler_boucle($quoi));
+ } else if ($affiche == 'squelette') {
+ $legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
+ $res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
+ }
+
+ return array($legend, $res, $res2);
+}
+
+// http://doc.spip.org/@debusquer_entete
+function debusquer_entete($titre, $corps)
+{
+ global $debug_objets;
+ include_spip('balise/formulaire_admin');
+ include_spip('public/assembler'); // pour inclure_balise_dynamique
+ include_spip('inc/texte'); // pour corriger_typo
+
+ return _DOCTYPE_ECRIRE .
+ html_lang_attributes() .
+ "\n" .
+ ('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
+ _T('admin_debug') . ' ' . $titre . ' (' .
+ supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
+ ") \n" .
+ "\n" .
+ http_script('', 'jquery.js')
+ . "" .
+ "\n" .
+ "\n" .
+ "" .
+ $corps .
+ inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $debug_objets), false) .
+ '