Changeset 61188 in spip-zone

Timestamp:

May 11, 2012, 8:40:25 AM (7 years ago)

Author:

fil@…

Message:

en evitant la grosse regexp on accelere et on limite l'empreinte memoire de echapper_html() : du coup d'enormes echappements, qui cassaient, deviennent gerables

File:

• _plugins_/textwheel/inc/texte.php (modified) (2 diffs)

_plugins_/textwheel/inc/texte.php

@@ -172 +172 @@
 }
 
-define('_PROTEGE_BLOCS', ',<(html|code|cadre|frame|script)(\s[^>]*)?>(.*)</\1>,UimsS');
+define('_PROTEGE_BLOCS', ',<(html|code|cadre|frame|script)\b[^>]*>,UimsS');
 
 // - pour $source voir commentaire infra (echappe_retour)
@@ -183 +183 @@
 
         if (($preg OR strpos($letexte,"<")!==false) 
-          AND preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER))
+        AND preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER))
                 foreach ($matches as $regs) {
+                        $init = $regs[0];
+                        $tag = $regs[1];
+                        $a = stripos($letexte, $tag);
+                        $b = stripos($letexte, "</$tag>", $a);
+                        if (!$b) next;
+
+                        $regs[0] = substr($letexte, $a-1, $b - $a + strlen("</$tag>") + 1);
+
+                        $regs[3] = substr($letexte, $a-1 + strlen($init),
+                                $b - $a - strlen($init) + 1);
+
                         // echappements tels quels ?
                         if ($no_transform) {