list-config_modif_host.pl

<code> #!/usr/bin/perl -w # # modif_domaine.pl # # Catherine.Balleydier@inpg.fr # # maj : 06/09/16 # # # changement de robot pour des listes # # use strict; use warnings; use File::Copy;

my $entree; #my $robot = $ARGV [0];; #my $robot = “listes.grenoble-inp.fr”; #my $robot = “listes-ense3.grenoble-inp.fr”; #my $robot = “listes-gi.grenoble-inp.fr” ; #my $robot = “listes-pagora.grenoble-inp.fr”; my $robot = “listes-minatec.grenoble-inp.fr”; #my $robot = “listes-gscop.grenoble-inp.fr”; #my $robot = “listes-valence.grenoble-inp.fr”;

my $REP=“/home/sympa/list_data/”.“$robot”.“/” ; my $fichier ; my @CONFIG ; #my $host = “host grenoble-inp.fr”; my $host = “host minatec.grenoble-inp.fr”; my $nvhost; my $texte;

# # lister le contenu du repertoire du robot /home/sympa/list_data/robot # opendir(DIR, $REP) || die “Impossible de lire $REP : $!\n”; my @liste = grep { /^[^\.]/ && -r “$REP/$_” } readdir(DIR); closedir(DIR);

# # traiter pour chaque liste le fichier config # $nvhost = “host ”.“$robot” ; foreach $entree (@liste) {

$fichier = "$REP"."$entree"."/config" ; 

#

copy ("$fichier", "$fichier".".svg20160906") ;

#copy (“$fichier”.“.svg20160906”, “$fichier”) ;

open (FICH,"$fichier") ||die "probleme fichier";
@CONFIG = <FICH> ;
close (FICH); 
open (FICH,">$fichier") ||die "probleme nv fichier";
# recherche  si le domaine est deja defini
$texte =  "@CONFIG" ;
if ( "@CONFIG" =~ /$host/)
{
    print "$entree\n";
    $nvhost = "host "."$robot";
    $texte =~ s/$host/$nvhost/ ;  
}

print FICH "$texte" ;

close (FICH);

}

/<code>