CVSROOT/mkavail


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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

$MAILING_LIST = '/home/mail/cvs-commiters';
$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;