#!/usr/local/bin/perl
#
# en cours de mise au point par BF 
# 
# en cours de test
#
# CRI
# Frédéric BOIVENT
# decembre/1998
#
# APPEL : genereliste.pl <nom_fichier> <fichier d'emails> 
#

$QUEUE = "/var/mailimailo/sympa/bin/queue";
$sympa_dir = "/var/mailimailo/sympa/expl"; 
$priorite=1;
$owner="postmaster\@univ-rennes1.fr";
$editor="postmaster\@univ-rennes1.fr";
$send="editor";
$review="private";
$replyto="sender";
$archive="month";
$subscription="owner";

$list = $ARGV[0];

if (! $list) {
  die "Usage: $0 nom_liste fichier_emails "
    }

$fichabon = $ARGV[1];

if (! $fichabon) {
    die "Usage: $0 nom_liste fichier_emails  "                                                                  
    }

mkdir ("$sympa_dir/$list", 0700) || die "Impossible de créer le répertoire $list dans  $sympa_dir.";
mkdir ("$sympa_dir/$list/archives", 0700) || die "Impossible de créer le répertoire archives dans $sympa_dir/$list.";

open (STATS, "> $sympa_dir/$list/stats")  || die "Impossible d'ouvrir le fichier $sympa_dir/$list/stats.";
close STATS;

open (CONFIG, "> $sympa_dir/$list/config")|| die "Impossible d'ouvrir le fichier $sympa_dir/$list/config";
	print CONFIG "subject Liste administrative\n\n";
	print CONFIG "visibility conceal\n\n";
	print CONFIG "owner\n";
	print CONFIG "email $owner\n\n";
	print CONFIG "editor\n";
	print CONFIG "email $editor\n\n";
	print CONFIG "review $review\n\n"; 
	print CONFIG "subscription $subscription\n\n";
	print CONFIG "send $send\n\n";
	print CONFIG "archive $archive\n\n";
	print CONFIG "reply-to $replyto\n\n";
	print CONFIG "priorite $priorite\n\n";
close CONFIG;

open (OBJET, "> $sympa_dir/$list/objet")|| die "Impossible d'ouvrir le fichier $sympa_dir/$list/objet";
	print OBJET "Liste creé par les administrateurs pour informer un groupe d'utilisateur.\n";
close OBJET;

open (CRIPRIVE, "> $sympa_dir/$list/$list.catalogue.CRI.prive")|| die "Impossible d'ouvrir le fichier $sympa_dir/$list/$list.catalogue.CRI.prive" ;
close CRIPRIVE;

open (FICHABON, "<$fichabon") || die "Impossible d'ouvrir le fichier $fichabon.";
open (ABON, "> $sympa_dir/$list/abonnes");

while($ligne=<FICHABON>) {
            $ligne =~ /^(.*)$/;
            print ABON "email $1\n";
	    print ABON "gecos\n\n";
}

close ABON;
close FICHABON;

open (ALIAS, "> $sympa_dir/$list/alias")|| die "Impossible d'ouvrir le fichier $sympa_dir/$list/alias ";
print ALIAS "# -------------------------------------- $list\n";
print ALIAS "$list: \"|$QUEUE $priorite $list $editor\"\n";
print ALIAS "$list-request: $owner\n";
print ALIAS "$list-owner: $list-request\n";
close (ALIAS);

system "/etc/chown -R sympa:sympa $sympa_dir/$list";