#!/usr/bin/perl -w
# AjouteTous
# Freeware 10/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";
$post_home="/home/post"; 		# home du post account
$serveur="0630019D.ac-clermont.fr";	# nom du serveur de mail
$boite="arcoit\@ac-clermont.fr";	#boite chez le provider
$passwd="toto";			# juste pour initialiser
$uid="700";			# idem
#test
###########################################################################
print "ajouteTous\n";
print "1999 - Gerard Blanchet\n";
print "Ajout d'utilisateurs à .procmailrc\nainsi qu'a genericstable";
##########################################################################
###### recherche dans le fichier /etc/passwda
open (PASSWD,"$path/passwda");
@ligne=<PASSWD>;
$|=1;
foreach (@ligne) {
	($login,$passwd,$uid)=split (/:/,$_,4);
	$user=$login;
open (PROCMAIL, ">>$post_home/.procmailrc");
print PROCMAIL "# $user $uid\n:0\n"; 
print PROCMAIL "*^Subject:.*$user:\n!$user\@$serveur\n\n"; close PROCMAIL;
print "Ajout de l'utilisateur $user a .procmailrc\n";
open (GENE,">>$path/genericstable");
print GENE "$user:\t$boite\n";
close GENE;
print "Ajout de l'utilisateur $user a genericstable\n";
}
close PASSWD;
print "\n";
###########################################################################
print "ajouteTous\n";
print "1999 - Gerard Blanchet\n";
print "creation de genericstable.db\n";
##########################################################################
exec "/usr/sbin/sendmail -bi -oA/etc/genericstable";