Subversion Repositories Sites.tela-botanica.org

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
7 david 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
?>