list-config_modif_host.pl

#!/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);
}