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

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

$list = $ARGV[0];

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

$fichabon = $ARGV[1];

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

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

while($ligne=<FICHABON>) {
            $ligne =~ /^([^\s]*)\s*$/;
            if ($1){
		print ABON "email $1\n\n";
	    }
}

close ABON;
close FICHABON;