list-config_modif_avatar.pl

#!/usr/bin/perl -w
#
# list-config_modif_avatar.pl
#
# Catherine.Balleydier@inpg.fr
#
# maj : 05/10/10
#
########################################################################
# 
#  supprimer l'avatar
#
########################################################################
#
use strict;
use warnings;
use File::Copy;

my $REP="/home/sympa/list_data/listes.grenoble-inp.fr/" ;
my $fichier ;
my @CONFIG ;
my $entree ;
#my $avatar = "pictures_feature off";
my $texte;
#
#  date
#
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $marque = (1900+$year)."_".($mon+1)."_"."$mday"."_"."$hour"."_"."$min" ;

#
#  lister le contenu du repertoire /home/sympa/list_data/listes.grenoble-inp.fr/" ;
#
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
#
foreach $entree (@liste)
#$entree = "wiki.sos" ;
{
  $fichier = "$REP"."$entree"."/config" ; 
  copy ("$fichier", "$fichier"."."."$marque") ;
  open (FICH,"$fichier") ||die "probleme fichier";
  @CONFIG = <FICH> ;
  close (FICH); 
  open (FICH,">>$fichier") ||die "probleme fichier";
# recherche  si l'avatar est deja annule
  if ( "@CONFIG" !~ /$avatar/)
  {
  $texte = "\n"."$avatar"."\n\n";
  print FICH "$texte";
  print "$entree"." : avatar\n";
  }
  close (FICH);
}