#!/usr/local/bin/perl
#
#
# APPEL : changmoder.pl <Nom-liste> <adresse du modérateur> 

$sympa_dir = "/var/mailimailo/sympa/expl";                

$list = $ARGV[0];
$moder = $ARGV[1];
open (CONFIG, "< $sympa_dir/$list/config") || die "Impossible d'ouvrir la config de $list";
open (CONFDIFF, "> /tmp/conf.$$") || die "Impossible d'ouvrir la config diff de $list";
while($ligne=<CONFIG>) {
                       if ($ligne =~ /^editor$/){
 				$ligne=<CONFIG>;
				$ligne = /^email\s\$moder$/;
				print CONFDIFF "editor\n";
				print CONFDIFF "email $moder\n";
				$ligne=<CONFIG>;
                       }
		       print CONFDIFF "$ligne";
}            
close CONFDIFF;
close CONFIG;
open (CONFIG, "> $sympa_dir/$list/config") || die "Impossible d'ouvrir la config de $list";
open (CONFDIFF, "< /tmp/conf.$$") || die "Impossible d'ouvrir la config diff  de $list";
while($ligne=<CONFDIFF>) {
	print CONFIG $ligne;
}
close CONFIG;
close CONFDIFF;