#!/usr/bin/perl -w
# AjouteListe
# Freeware 20/02/99 Gérard Blanchet d'après 08/03/98 Ghislain Picard
# Script d'ajout de tous les comptes pour l'acces a l'e-mail
########################################################################
########## configuration
$path="/etc";
$list="tous:";
$passwd="toto";			# juste pour initialiser
$uid="700";			# idem
###########################################################################
print "ajouteListe\n";
print "1999 - Gerard Blanchet\n";
print "Ajout d'une liste à aliases\nainsi que sa compilation\n";
##########################################################################
###### ajoute $list à aliases
open (ALIA,">>$path/aliases");
print ALIA "\n$list\n";
close ALIA;
###### recherche dans le fichier /etc/passwda
open (PASSWD,"$path/passwda");
@ligne=<PASSWD>;
$|=1;
foreach (@ligne) {
	($login,$passwd,$uid)=split (/:/,$_,4);
	$user=$login;
open (ALIA, ">>$path/aliases");
print ALIA "\t$user,\n"; 
close ALIA;
print "Ajout de l'utilisateur $user a la liste $list\n";
}
open (ALIA, ">>$path/aliases");
print ALIA "\troot\n"; 
close ALIA;
close PASSWD;
print "\n";
###########################################################################
print "ajouteListe\n";
print "1999 - Gerard Blanchet\n";
print "creation de aliases.db\n";
##########################################################################
exec "newaliases";