#!/usr/local/bin/perl
#
# en cours de mise au point par BF 
# 
# en cours de test
#
# CRI
# Frédéric BOIVENT
# decembre/1998
#
# APPEL : abonliste.pl <fichier_config_SYMPA> <email> 

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

$list = $ARGV[0];
$abon = $ARGV[1];
if (! $list) {
    die "Usage: $0 list-name  email "
    }
if (! $abon) {
    die "Usage: $0 list-name  email "
    }
open (FICH, "< $sympa_dir/$list/abonnes") || die "Impossible d'ouvrir le fichier abonnés de $list";
while($ligne=<FICH>) {
                       if ($ligne =~ /^email\s$abon/){
			print "$list\n";
                       }
}            

close FICH;