www/plugins/auto/couteau_suisse/couteau_suisse/outils/insertions_fonctions.php

   1 <?php
   2
   3 // cette fonction n'est pas appelee dans les balises html : html|code|cadre|frame|script
   4 function insertions_rempl($texte) {
   5         $ins = cs_lire_data_outil('insertions');
   6         if(!$ins) return $texte;
   7         $texte = str_replace($ins[0][0], $ins[0][1], $texte);
   8         return preg_replace($ins[1][0], $ins[1][1], $texte);
   9 }
  10
  11 function insertions_callback($m) {
  12         return $m[1].cs_code_echappement($m[2], 'CS');
  13 }
  14
  15 // Fonctions de traitement sur #TEXTE
  16 function insertions_pre_propre($texte) {
  17         // prudence : on protege les liens de raccourcis de liens SPIP
  18         if (strpos($texte, '[')!==false)
  19                 $texte = preg_replace_callback(',(\[[^][]*->>?)([^]]*)(?=\]),msS', 'insertions_callback', $texte);
  20         return cs_echappe_balises('', 'insertions_rempl', $texte);
  21 }
  22
  23 ?>