www/ecrire/public/sandbox.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13
  14 if (!defined('_ECRIRE_INC_VERSION')) return;
  15
  16 /**
  17  * Composer le code d'execution d'un texte
  18  * en principe juste un echappement de guillemets
  19  * sauf si on veut aussi echapper et interdire les scripts serveurs
  20  * dans les squelette
  21  *
  22  * @param string $texte
  23  * @param string $code
  24  * @param string $arglist
  25  * @param Object $p
  26  * @return string
  27  */
  28 function sandbox_composer_texte($texte, &$p){
  29         $code = "'".str_replace(array("\\","'"),array("\\\\","\\'"), $texte)."'";
  30         return $code;
  31 }
  32
  33
  34 /**
  35  * Composer le code d'execution d'un filtre
  36  *
  37  * @param string $fonc
  38  * @param string $code
  39  * @param string $arglist
  40  * @param Object $p
  41  * @return string
  42  */
  43 function sandbox_composer_filtre($fonc, $code, $arglist, &$p){
  44         if (isset($GLOBALS['spip_matrice'][$fonc])) {
  45                 $code = "filtrer('$fonc',$code$arglist)";
  46         }
  47
  48         // le filtre est defini sous forme de fonction ou de methode
  49         // par ex. dans inc_texte, inc_filtres ou mes_fonctions
  50         elseif ($f = chercher_filtre($fonc)) {
  51                 // cas particulier : le filtre |set doit acceder a la $Pile
  52                 // proto: filtre_set(&$Pile, $val, $args...)
  53                 $refl = new ReflectionFunction($f);
  54                 $refs = $refl->getParameters();
  55                 if (isset($refs[0]) AND $refs[0]->name == 'Pile') {
  56                         $code = "$f(\$Pile,$code$arglist)";
  57                 }
  58                 else {
  59                         $code = "$f($code$arglist)";
  60                 }
  61         }
  62         // le filtre n'existe pas,
  63         // on le notifie
  64         else erreur_squelette(array('zbug_erreur_filtre', array('filtre'=>  texte_script($fonc))), $p);
  65
  66         return $code;
  67 }
  68
  69 // Calculer un <INCLURE(xx.php)>
  70 // La constante ci-dessous donne le code general quand il s'agit d'un script.
  71 define('CODE_INCLURE_SCRIPT', 'if (!($path = %s) OR !is_readable($path))
  72         erreur_squelette(array("fichier_introuvable", array("fichier" => "%s")), array(%s));
  73 else {
  74         $contexte_inclus = %s;
  75         include $path;
  76 }
  77 '
  78 );
  79
  80 /**
  81  * Composer le code d'inclusion PHP
  82  *
  83  * @param string $fichier
  84  * @param Object $p
  85  * @param array $_contexte
  86  * @return string
  87  */
  88 function sandbox_composer_inclure_php($fichier, &$p, $_contexte){
  89         $compil = texte_script(memoriser_contexte_compil($p));
  90         // si inexistant, on essaiera a l'execution
  91         if ($path = find_in_path($fichier))
  92                 $path = "\"$path\"";
  93         else $path = "find_in_path(\"$fichier\")";
  94
  95         return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
  96 }
  97
  98 /**
  99  * Composer le code se securisation anti script
 100  *
 101  * @param string $code
 102  * @param Object $p
 103  * @return string
 104  */
 105 function sandbox_composer_interdire_scripts($code, &$p){
 106         // Securite
 107         if ($p->interdire_scripts
 108         AND $p->etoile != '**') {
 109                 if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r))
 110                         $code = "interdire_scripts($code)";
 111                 else {
 112                         $code = interdire_scripts($r[2]);
 113                         $code = "sinon(interdire_scripts($r[1]),'$code')";
 114                 }
 115         }
 116         return $code;
 117 }
 118
 119
 120 /**
 121  * Appliquer des filtres sur un squelette complet
 122  * la fonction peut plusieurs tableaux de filtres a partir du 3eme argument
 123  * qui seront appliques dans l'ordre
 124  *
 125  * @param array $skel
 126  * @param string $corps
 127  * @param array $filtres
 128  * @param array ...
 129  * @return mixed|string
 130  */
 131 function sandbox_filtrer_squelette($skel, $corps, $filtres){
 132         $series_filtres = func_get_args();
 133         array_shift($series_filtres);// skel
 134         array_shift($series_filtres);// corps
 135
 136         // proteger les <INCLUDE> et tous les morceaux de php licites
 137         if ($skel['process_ins'] == 'php')
 138                 $corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
 139
 140         // recuperer les couples de remplacement
 141         $replace = echapper_php_callback();
 142
 143         foreach($series_filtres as $filtres){
 144                 if (count($filtres))
 145                         foreach ($filtres as $filtre) {
 146                                 if ($filtre AND $f = chercher_filtre($filtre))
 147                                         $corps = $f($corps);
 148                         }
 149         }
 150
 151         // restaurer les echappements
 152         return str_replace($replace[0],$replace[1],$corps);
 153 }
 154
 155
 156 // http://doc.spip.org/@echapper_php_callback
 157 function echapper_php_callback($r=null) {
 158         static $src = array();
 159         static $dst = array();
 160
 161         // si on recoit un tableau, on est en mode echappement
 162         // on enregistre le code a echapper dans dst, et le code echappe dans src
 163         if (is_array($r)) {
 164                 $dst[] = $r[0];
 165                 return $src[] = '___'.md5($r[0]).'___';
 166         }
 167
 168         // si on recoit pas un tableau, on renvoit les couples de substitution
 169         // et on RAZ les remplacements
 170         $r = array($src,$dst);
 171         $src = $dst = array();
 172         return $r;
 173 }