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

   1 <?php
   2 /*
   3  liens :
   4         http://fr.wikipedia.org/wiki/Wikip%C3%A9dia:AutoWikiBrowser/Typos/Aide
   5 */
   6
   7 // cette fonction appelee automatiquement a chaque affichage de la page privee du Couteau Suisse renvoie un tableau
   8 function insertions_installe_dist() {
   9         if(!function_exists('_insertions_LISTE')) return NULL;
  10 cs_log('insertions_installe_dist()');
  11         // on decode la liste entree dans la config
  12         $liste = preg_split("/[\r\n]+/", _insertions_LISTE());
  13         $str = $preg = array(array(), array());
  14         foreach ($liste as $l) {
  15                 list($a, $b) = explode("=", $l, 2);
  16                 $a = trim($a); $b = trim($b);
  17                 if (!strlen($a) || preg_match('/^(#|\/\/)/', $a)) {
  18                         // remarques ou vide
  19                 } elseif (preg_match('/^\((.+)\)$/', $a, $reg)) {
  20                         // les mots seuls
  21                         $preg[0][] = '/\b'.$reg[1].'\b/'; $preg[1][] = $b;
  22                 } elseif (preg_match('/^(\/.+\/[imsxuADSUX]*)$/', $a)) {
  23                         // expressions regulieres
  24                         $preg[0][] = $a; $preg[1][] = $b;
  25                 } elseif (strlen($a)) {
  26                         // simples remplacements
  27                         $str[0][] = $a; $str[1][] = $b;
  28                 }
  29         }
  30         return array(array($str, $preg));
  31 }
  32
  33 ?>