#!/usr/local/bin/perl
# mettre le bon chemin vers l'interpréteur

# chemin à partir duquel on va chercher les fichiers à corriger
@SEARCHDIRS=("/usr/local/htdocs/tests/essai");

# suffixes de fichiers à rechercher : shtm shtml phtm phtml htm html txt
$SUFFIXES='\.([sp]?html?|txt)$';

# nom de page à chercher
$cherche = "pagedac.htm";
# à remplacer par ...
$remplace = "index.htm";

require "find.pl"; # bibliotheque standard de recherche récursive de perl
&find (@SEARCHDIRS);

sub wanted { # sub de tri : ne garde que les bons fichiers
  if($name=~/$SUFFIXES/i){ # bon fichier ?
    push(@allfiles,$name);
  }
}

# modifies les liens
undef $/; #pas de séparateurs
foreach $file (@allfiles) {
 open (FILE, "$file") || die ("fichier $file introuvable $!");
 $text = <FILE>; #tt le fichier dans une variable !
 close FILE;

 $text=~ s/([\/\"])$cherche/$1$remplace/mgi;

 open (FILE, ">$file") || die ("fichier $file introuvable en écriture $!");
 print FILE $text;
 close FILE; 

}
$total = scalar(@allfiles);
print "$total fichiers traités - Terminé\n";