#!/usr/bin/perl -w # remd: migr_pub.pl est un script pour faire migrer mes fichiers de publication # vers une nouvelle présentation et surtout avec de nouvelle régles de pub. # En gros ce script effectue des controle puis des actions au niveau de chaque # ligne de chaque fichier d'un répertoire entrer en premier argument. # le log des modif est a entrer en 2eme argument. # usage: migr_pub.pl /home/commun/net/miroir log2pub.log # il créera un repertoire ./newpub avec les fichiers modifiés # # Il devrai y avoir un autre fichier cible prenant en compte # le détronquage qui fonctionne parfaitement. # usage: migr_la_pub.pl [repertoire] [log2pub] # V:1.0 vendredi 10 sept 2009 Pessac 33600 # - Alain Adelmar alias asynchrone - # $ID: use strict; use warnings; # initialisation tableau rapport constant my @retourne = qw (Glop Pasglop Fixed); my @tab_cheban = qw(Cheban Ok Incorrect Fixed); my @tab_html = qw(Html Ok Incorrect In-Out-ok); my @tab_head = qw(Head Ok Incorrect In-Out-ok); my @tab_encodage = qw(Encodage Latin1 a-encoder A_convertir); my @tab_titre = qw(Titre Ok Incorrect Absent); my @tab_css = qw(Css Ok Incorrect Absent); my @tab_menu_mu = qw(Menu_mu Ok Incorrect Absent); my @tab_ancre = qw(Ancre_top Ok Incorrect Absent); my $IsCheban = 0; my $IsHtml = 0; my $IsHead = 0; my $IsCodage= 0; my $IsTitre= ""; my $IsCss = 0; my $IsMenu_mu = 0; my $IsAncre = 0; my $adresse = 'aadelmar@numericable.fr'; my $etat_cheban = my $etat_Encodage = my $etat_Titre = my $etat_Html = ""; my $etat_Head = my $etat_Css = my $etat_Menu_mu = my $etat_Ancre = ""; sub controlf; # utilisation de la date/heure pour maitenant et pour file X use DateFrench; our $format_affichage = 2; our $opt_date_file = 2; our $fr_date_now = maintenant("$format_affichage"); print "$fr_date_now\n"; #------------------------------cartouche -------------- my $lx = ("*" x 25) x 2; my $file = $0; our $fr_date_file = datefichier($format_affichage, $opt_date_file, $file); my $moi = " Adelmar alain (aadelmar\@numericable.fr)"; my $head_lbl= "script $0\nécris par $moi\nle $fr_date_file\nexecuter le $fr_date_now\n"; my $head_lbl_console = "$lx\nscript: $0\nécris par: $moi\nle: $fr_date_file\nexecuter le: $fr_date_now\n$lx\n"; my $head_lbl_comment = '