#!/usr/bin/perl
#
# Perl module to convert a CVS avail file into a majordomo alias file.
#

$MAILING_LIST = '/home/mail/cvs-committers';
$AVAIL_FILE = '/home/ncvs/CVSROOT/avail';

open (MAIL, ">$MAILING_LIST");
open (AVAIL, "<$AVAIL_FILE");

  while (<AVAIL>) {
    if (/^avail\|(.*)/) { 
     $master = $1;
	foreach $who (split(/,/, $master)) {
		print (MAIL "$who\n");
	}
    }
  }

close MAIL;
close AVAIL;