Subversion Repositories Sites.tela-botanica.org

Rev

Blame | Last modification | View Log | RSS feed

<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2005                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/


//
// Ce fichier ne sera execute qu'une fois
if (defined("_INC_DEBUG_SQL")) return;
define("_INC_DEBUG_SQL", "1");

function afficher_debug_contexte($env) {
        static $n;
        $n++;

        if (is_array($env_tab = @unserialize($env)))
                $env = $env_tab;

        $env_texte="";
        if (count($env)>0) {
                $env_texte="<div class='spip-env'>"
                        . "<fieldset><legend>#ENV</legend>\n"
                        . "<div><table>\n";
                foreach ($env as $nom => $valeur) {
                        $env_texte .= "\n<tr><td><strong>".nl2br(entites_html($nom))
                                . "</strong></td>";
                        $env_texte .= "<td>:&nbsp;".nl2br(entites_html($valeur))
                                . "</td></tr>\n";
                }
                $env_texte .= "\n</table></div>\n";
                $env_texte .= "</fieldset></div>\n";
        }
        return $env_texte;
}

// Si le code php produit des erreurs, on les affiche en surimpression
// sauf pour un visiteur non admin (lui ne voit rien de special)
// ajouter &var_mode=debug pour voir les erreurs et en parler sur spip@rezo.net
function affiche_erreurs_page($tableau_des_erreurs) {

        $GLOBALS['bouton_admin_debug'] = true;
        $res = '';
        foreach ($tableau_des_erreurs as $err) {
                $res .= "<li>" .$err[0] . ", <small>".$err[1]."</small><br /></li>\n";
        }
        return "\n<div id='spip-debug' style='"
        . "position: absolute; top: 20px; left: 20px; z-index: 1000;"
        . "filter:alpha(opacity=60); -moz-opacity:0.6; opacity: 0.6;"
        . "'><ul><li>"
        . _T('zbug_erreur_squelette')
## aide locale courte a ecrire, avec lien vers une grosse page de documentation
#               aide('erreur_compilation'),
        . "<br /></li>"
        . "<ul>"
        . $res
        . "</ul></ul></div>";
}

//
// Si une boucle cree des soucis, on peut afficher la requete fautive
// avec son code d'erreur
//
function erreur_requete_boucle($query, $id_boucle, $type, $errno, $erreur) {

        $GLOBALS['bouton_admin_debug'] = true;

        if (eregi('err(no|code):?[[:space:]]*([0-9]+)', $erreur, $regs))
                $errno = $regs[2];
        else if (($errno == 1030 OR $errno <= 1026)
                AND ereg('[^[:alnum:]]([0-9]+)[^[:alnum:]]', $erreur, $regs))
        $errno = $regs[1];

        // Erreur systeme
        if ($errno > 0 AND $errno < 200) {
                $retour .= "<tt><br /><br /><blink>"
                . _T('info_erreur_systeme', array('errsys'=>$errno))
                . "</blink><br />\n"
                . _T('info_erreur_systeme2');
                spip_log("Erreur systeme $errno");
        }
        // Requete erronee
        else {
                $retour .= "<tt><blink>&lt;BOUCLE".$id_boucle."&gt;("
                . $type . ")</blink><br />\n"
                . "<b>"._T('avis_erreur_mysql')."</b><br />\n"
                . htmlspecialchars($query)
                . "\n<br /><font color='red'><b>".htmlspecialchars($erreur)
                . "</b></font><br />"
                . "<blink>&lt;/BOUCLE".$id_boucle."&gt;</blink></tt>\n";

                include_ecrire('inc_presentation.php3');
                include_ecrire('inc_lang.php3');
                utiliser_langue_visiteur();
                $retour .= aide('erreur_mysql');
                spip_log("Erreur requete $id_boucle (".$GLOBALS['fond'].".html)");
        }

        erreur_squelette($retour);
}


//
// Erreur de syntaxe des squelettes : memoriser le code fautif
//
function erreur_squelette($message='', $lieu='') {
        global $tableau_des_erreurs;
        global $auteur_session;
        static $runs;

        if (is_array($message)) list($message, $lieu) = $message;

        spip_log("Erreur squelette: $message | $lieu ("
                . $GLOBALS['fond'].".html)");
        $GLOBALS['bouton_admin_debug'] = true;
        $tableau_des_erreurs[] = array($message, $lieu);
        // Eviter les boucles infernales
        if (++$runs > 4) {
                if ($_COOKIE['spip_admin'] OR
                $auteur_session['statut'] == '0minirezo' OR
                    ($GLOBALS['var_mode'] == 'debug')) {
                        echo debut_entete(_T('admin_debug')), '</head><body>',
                                affiche_erreurs_page($tableau_des_erreurs);
                        exit;
                }
        }
}

//
// Le debusqueur version 3
//

// appelee a chaque sortie de boucle (inc-compilo) et a chaque requete
// dans ce derniers cas on n'a pas le nom du squelette

function boucle_debug_resultat ($id, $type, $resultat) {
        global $debug_objets;

        $nom = $debug_objets['courant'];

        if ($type == 'requete') {
          $debug_objets['requete']["$nom$id"] = $resultat;
        }
        else {
          // ne pas memoriser plus de 3 tours d'une meme boucle
          if (count($debug_objets['resultat']["$nom$id"]) < 3)
            $debug_objets['resultat']["$nom$id"][] = $resultat;
        }
}

// appelee a chaque sortie de sequence (inc-compilo)
function debug_sequence($id, $nom, $niv, $sequence) {
        global $debug_objets;

        if (!$niv)
          {
            $debug_objets['sequence'][$nom.$id] = $sequence;
          }
        $res = "";
        foreach($sequence as $v) $res .= $v[2];
        return $res;    
}

// appelee a chaque compilation de boucle (inc-compilo)
function boucle_debug_compile ($id, $nom, $code) {
        global $debug_objets;

        $debug_objets['code'][$nom.$id] = $code;
}

// appelee a chaque compilation de squelette (inc-compilo)
function squelette_debug_compile($nom, $sourcefile, $code, $squelette) {
        global $debug_objets;

        $debug_objets['squelette'][$nom] = $squelette;
        $debug_objets['sourcefile'][$nom] = $sourcefile;

        if (is_array($GLOBALS['contexte_inclus']))
                $debug_objets['contexte'][$nom] = $GLOBALS['contexte_inclus'];
        else {
                $debug_objets['contexte'][$nom] = $GLOBALS['contexte'];
                if (!isset($debug_objets['principal']))
                  $debug_objets['principal'] = $nom;
        }
}

// appelee a chaque analyse syntaxique de squelette
function boucle_debug ($nom, $id_parent, $id, $type, $crit, $avant, $milieu, $apres, $altern) {
        global $debug_objets;
        $debug_objets['courant'] = $nom;
        $debug_objets['parent'][$nom.$id] = $id_parent;
        $debug_objets['pretty'][$nom.$id] = 
                "BOUCLE$id($type)" . htmlspecialchars(
                        preg_replace(",[\r\n],", "\\n", $crit));
        // on synthetise avec la syntaxe standard, mais "<//" pose pb 
        $debug_objets['boucle'][$nom.$id] = 
          (!$avant ? "" : "<B$id>$avant") . 
          "<BOUCLE$id($type)$crit>" .
          $milieu .
          "</BOUCLE$id>" .
          (!$apres ? "" : "$apres</B$id>") . 
          (!$altern ? "" : "$altern<//B$id>");
}

function trouve_boucle_debug($n, $nom, $debut=0, $boucle = "")
{
        global $debug_objets;

        $id = $nom . $boucle;
        foreach($debug_objets['sequence'][$id] as $v) {
          if (!ereg('^(.*)(<\?.*\?>)(.*)$', $v[2],$r))
            $y = substr_count($v[2], "\n");
          else {
            if ($v[1][0] == '#')
              // balise dynamique
              $incl = $debug_objets['resultat'][$v[0]];
            else
              // inclusion
              $incl = $debug_objets['squelette'][trouve_squelette_inclus($v[1])];
            $y = substr_count($incl, "\n")
              + substr_count($r[1], "\n") 
              + substr_count($r[3], "\n");
          }

          if ($n <= ($y + $debut)) {
            if ($v[1][0] == '?')
              return trouve_boucle_debug($n, $nom, $debut, substr($v[1],1));
            elseif ($v[1][0] == '!') {
              if ($incl = trouve_squelette_inclus($v[1]))
                return trouve_boucle_debug($n, $incl, $debut);
            }
            return array($nom, $boucle, $v[0]);
          }
          $debut += $y;
        }
        return array($nom, $boucle, $n-$debut);
}         

function trouve_squelette_inclus($script)
{
  global $debug_objets;
  // on suppose que X.php appelle le squelette X.html (a revoir)
  ereg('^.(.*).php?3', $script, $reg);
  $incl = $reg[1] . '.html$';
  foreach($debug_objets['sourcefile'] as $k => $v) {
    if (ereg($incl,$v)) return $k;
  }
  return "";
}

function reference_boucle_debug($n, $nom, $self)
{
  list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);

  if (!$boucle)
    return !$ligne ? "" :  
      (" (" .
       (($nom != $skel) ? _L("squelette inclus, ligne: ") :
        _L("squelette, ligne: ")) .
       "<a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
  else {
  $self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";

    return !$ligne ? " (boucle <a href='$self#$skel$boucle'>$boucle</a>)" :
      " (boucle $boucle ligne <a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
  }
}

// affiche un texte avec numero de ligne et ancre.

function ancre_texte($texte, $fautifs=array())
{
        global $var_mode_ligne;
        if ($var_mode_ligne) $fautifs[]=$var_mode_ligne;
        ob_start();
        highlight_string($texte);
        $s = ob_get_contents();
        ob_end_clean();
        if (substr($s,0,6) == '<code>') { $s=substr($s,6); echo '<code>';}
        $tableau = explode("<br />", $s);
        $format = "<span style='color: black'>%0".
          strlen(count($tableau)).
          "d </span>";
        $format10=str_replace('black','pink',$format);
        $formaterr="<span style='background-color: pink'>%s</span>";
        $i=1;

        foreach ($tableau as $ligne) {
                echo "<br />\n<a id='L$i' href='#debug_boucle'>",
                  sprintf((($i%10) ? $format :$format10), $i),
                  "</a>",
                  sprintf(in_array($i, $fautifs) ? $formaterr : '%s',
                          $ligne) ;
                $i++;
        }
}

// l'environnement graphique du debuggueur 
function debug_dumpfile ($texte, $fonc, $type) {

        global $debug_objets, $var_mode_objet, $var_mode_affiche;

        $debug_objets[$type][$fonc . 'tout'] = $texte;
        if (!$debug_objets['sourcefile']) return;
        if ($texte && ($var_mode_objet != $fonc || $var_mode_affiche != $type))
                return;
        if (!$fonc) $fonc = $debug_objets['principal'];
        $link = new Link;
        $link->delvar('var_mode_affiche');
        $link->delvar('var_mode_objet');
        $link->addvar('var_mode','debug');
        $self = quote_amp($link->getUrl());

// en cas de squelette inclus,  virer le code de l'incluant:
// - il contient souvent une Div restreignant la largeur a 3 fois rien
// - ca fait 2 headers !
        ob_end_clean();

        @header('Content-Type: text/html; charset='.lire_meta('charset'));
        echo debut_entete('Spip ' . $GLOBALS['spip_version_affichee'] . ' ' .
                          _T('admin_debug') . ' ' .
                          supprimer_tags(extraire_multi(lire_meta('nom_site')))), 
          "<link rel='stylesheet' href='spip_admin.css' type='text/css'>",
          "</head>\n<body style='margin:0 10px;'>",
          "\n<div id='spip-debug' style='position: absolute; top: 22px; z-index: 1000;height:97%;left:10px;right:10px;'><div id='spip-boucles'>\n"; 

        if ($var_mode_affiche !== 'validation') {
          foreach ($debug_objets['sourcefile'] as $nom_skel => $sourcefile) {
                echo "<fieldset><legend>",$sourcefile,"&nbsp;: ";
                echo "\n<a href='",$self, "&amp;var_mode_objet=$nom_skel&amp;var_mode_affiche=squelette#$nom_skel'>"._T('squelette')."</a>";
                echo "\n<a href='",$self, "&amp;var_mode_objet=$nom_skel&amp;var_mode_affiche=resultat#$nom_skel'>"._T('zbug_resultat')."</a>";
                echo "\n<a href='", $self, "&amp;var_mode_objet=$nom_skel&amp;var_mode_affiche=code#$nom_skel'>"._T('zbug_code')."</a></legend>";

                if (is_array($contexte = $debug_objets['contexte'][$nom_skel]))
                        echo afficher_debug_contexte($contexte);

                $i = 0;
                $colors = array('#e0e0f0', '#f8f8ff');
                $res = "";
                foreach ($debug_objets['pretty'] as $nom => $pretty)
                        if (substr($nom, 0, strlen($nom_skel)) == $nom_skel) {
                                $i++;
                                $aff = "&lt;".$pretty."&gt;";
                                if ($var_mode_objet == $nom)
                                        $aff = "<b>$aff</b>";
                                $res .= "\n<tr bgcolor='" .
                                  $colors[$i%2] .
                                  "'><td  align='right'>$i</td><td>" .
                                  "<a  class='debug_link_boucle' href='" .
                                  $self .
                                  "&amp;var_mode_objet=" .
                                  $nom .
                                  "&amp;var_mode_affiche=boucle#$nom_skel'>" .
                                  _T('zbug_boucle') .
                                  "</a></td><td><a class='debug_link_boucle' href='" .
                                  $self .
                                  "&amp;var_mode_objet=" .
                                  $nom .
                                  "&amp;var_mode_affiche=resultat#$nom_skel'>" .
                                  _T('zbug_resultat') .
                                  "</a></td><td><a class='debug_link_resultat' href='" .
                                  $self .
                                  "&amp;var_mode_objet=" .
                                  $nom .
                                  "&amp;var_mode_affiche=code#$nom_skel'>" .
                                  _T('zbug_code') .
                                  "</a></td><td>" .
                                  $aff .
                                  "</td></tr>";
                        }
                if ($res) echo "<table width='100%'>\n$res</table>\n";
                echo "</fieldset>\n";
          }
          echo "</div>\n<a id='$fonc'></a>\n"; 
          if ($var_mode_objet && ($res = $debug_objets[$var_mode_affiche][$var_mode_objet])) {
            echo "<div id=\"debug_boucle\"><fieldset>";
            if ($var_mode_affiche == 'resultat') {
                echo "<legend>",$debug_objets['pretty'][$var_mode_objet],"</legend>";
                ancre_texte($debug_objets['requete'][$var_mode_objet]);
                foreach ($res as $view) 
                        if ($view) echo "\n<br /><fieldset>",interdire_scripts($view),"</fieldset>";

            } else if ($var_mode_affiche == 'code') {
                echo  "<legend>",$debug_objets['pretty'][$var_mode_objet],"</legend>";
                ancre_texte("<"."?php\n".$res."\n?".">");
            } else if ($var_mode_affiche == 'boucle') {
                echo  "<legend>",$debug_objets['pretty'][$var_mode_objet],"</legend>";
                ancre_texte($res);
            } else if ($var_mode_affiche == 'squelette') {
                echo  "<legend>",$debug_objets['sourcefile'][$var_mode_objet],"</legend>";
                ancre_texte($debug_objets['squelette'][$var_mode_objet]);
            }
            echo "</fieldset></div>";
          }
        }
        if ($texte) {

          $ouvrant = $fermant = $err = "";
          $titre = $GLOBALS['var_mode_affiche'];
          if ($titre != 'validation') {
            $titre = 'zbug_' . $titre;
          }
          else {
              include_ecrire("inc_spip_sax.php");
              $res = spip_sax($texte);
              if (!$res)
                $err = _L("impossible");
              elseif (ereg("^[[:space:]]*([^<][^0-9]*)([0-9]*)(.*[^0-9])([0-9]*)$", $GLOBALS['xhtml_error'], $r)) {
                $fermant = $r[2];
                $ouvrant = $r[4];
                $rf = reference_boucle_debug($fermant, $fonc, $self);
                $ro = reference_boucle_debug($ouvrant, $fonc, $self);
                $err = ": " . $r[1] .
                  "<a href='#L" . $r[2] . "'>$r[2]</a>$rf" .
                  $r[3] ."<a href='#L" . $r[4] . "'>$r[4]</a>$ro";
              } else {
                  $err = _L("correcte");
                  $texte = $res;
              }
          }
          echo "<div id=\"debug_boucle\"><fieldset><legend>",
            _T($titre),        
            ' ',
            $err,
            "</legend>";
          ancre_texte($texte, array($ouvrant, $fermant));
          echo "</fieldset></div>";
        }
        echo "\n</div>";
        echo inclure_balise_dynamique(
                balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $debug_objets)
        );
        echo '</body></html>';
        exit;
}
?>