[Sommaire] [Imprimer]

   1  <?php
   2  
   3  /***************************************************************************\
   4   *  SPIP, Systeme de publication pour l'internet                           *
   5   *                                                                         *
   6   *  Copyright (c) 2001-2005                                                *
   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  include  ("inc_version.php3");
  15  include_ecrire  ("inc_auth.php3");
  16  include_ecrire  ("inc_admin.php3");
  17  
  18  
  19  debut_admin("accents");
  20  
  21  function changer_accents($dir) {
  22  
  23      $handle = opendir($dir);
  24      while ($nomfich = readdir($handle)) {
  25          if (ereg('\.', $nomfich) && !ereg('(\.php3|\.html)$', $nomfich)) continue;
  26          if ($nomfich == 'accents.php3') continue;
  27          if ($nomfich == 'inc_texte.php3') continue;
  28          if ($nomfich == 'inc_filtres.php3') continue;
  29          if ($nomfich == 'inc_index.php3') continue;
  30          if ($nomfich == 'inc_mail.php3') continue;
  31          $nomfich = "$dir/$nomfich";
  32          $fichier = @file("$nomfich");
  33  
  34          if ($fichier) {
  35              echo "$nomfich<br>";
  36              $fichier = join('', $fichier);
  37  
  38              $fichier = ereg_replace(chr(233), '&eacute;', $fichier);
  39              $fichier = ereg_replace(chr(201), '&Eacute;', $fichier);
  40  
  41              $fichier = ereg_replace(chr(224), '&agrave;', $fichier);
  42              $fichier = ereg_replace(chr(232), '&egrave;', $fichier);
  43              $fichier = ereg_replace(chr(249), '&ugrave;', $fichier);
  44              $fichier = ereg_replace(chr(192), '&Agrave;', $fichier);
  45              $fichier = ereg_replace(chr(200), '&Egrave;', $fichier);
  46              $fichier = ereg_replace(chr(217), '&Ugrave;', $fichier);
  47  
  48              $fichier = ereg_replace(chr(226), '&acirc;', $fichier);
  49              $fichier = ereg_replace(chr(234), '&ecirc;', $fichier);
  50              $fichier = ereg_replace(chr(238), '&icirc;', $fichier);
  51              $fichier = ereg_replace(chr(244), '&ocirc;', $fichier);
  52              $fichier = ereg_replace(chr(251), '&ucirc;', $fichier);
  53              $fichier = ereg_replace(chr(194), '&Acirc;', $fichier);
  54              $fichier = ereg_replace(chr(202), '&Ecirc;', $fichier);
  55              $fichier = ereg_replace(chr(206), '&Icirc;', $fichier);
  56              $fichier = ereg_replace(chr(212), '&Ocirc;', $fichier);
  57              $fichier = ereg_replace(chr(219), '&Ucirc;', $fichier);
  58  
  59              $fichier = ereg_replace(chr(231), '&ccedil;', $fichier);
  60              $fichier = ereg_replace(chr(199), '&Ccedil;', $fichier);
  61  
  62              $fichier = ereg_replace(chr(171), '&laquo;', $fichier);
  63              $fichier = ereg_replace(chr(187), '&raquo;', $fichier);
  64  
  65              $fichier = eregi_replace("(face *= *['\"\\]+)[^'\"\\]*georgia[^'\"\\]*(['\"\\]+)", "\\1Georgia,Garamond,Times,serif\\2", $fichier);
  66              $fichier = eregi_replace("(face *= *['\"\\]+)[^'\"\\]*verdana[^'\"\\]*(['\"\\]+)", "\\1Verdana,Arial,Helvetica,sans-serif\\2", $fichier);
  67  
  68              $f = fopen($nomfich, 'wb');
  69              fputs($f, $fichier);
  70              fclose($f);
  71          }
  72      }
  73  
  74      closedir($handle); 
  75  }
  76  
  77  
  78  changer_accents(".");
  79  changer_accents("AIDE");
  80  
  81  
  82  fin_admin("accents");
  83  
  84  ?>