aboutsummaryrefslogblamecommitdiffstats
path: root/CVSROOT/commitmail.pl
blob: 923dfbf25b348c07fa7444afcbaf8b72b2b3ec51 (plain) (tree)
1
2
3
                   
 
           











                                                                                              



                                       











                                                                                                                                                                                
#! /usr/bin/perl -w
#
# $FreeBSD$

$access = "/home/ncvs/CVSROOT/access";
@names = ();
$mailcmd = "/home/majordomo/wrapper resend.nobm -l $ARGV[0] -f owner-$ARGV[0] -h FreeBSD.org";
#$mailcmd = "/usr/sbin/sendmail -oem -f owner-$ARGV[0]";

open(ACCESS, "< $access") || exit 75;
while (<ACCESS>) {
    chop;
    @words = split;
    if ($words[0] =~ /^[#\/;]/) {
        next;
    }
    if ($words[1]) {
        push @names, $words[1];
    } else {
        push @names, $words[0];
    }
}
$list = join(" ", @names);
if ($list ne '') {
    exec "$mailcmd $list";
    die "cant exec `$mailcmd': $!";
} else {
    die "cannot generate names from $access!";
}


# Jan 15 09:47:55 hub sendmail[14995]: JAB14995: to=/home/mail/archive/cvs-committers, delay=00:00:00, xdelay=00:00:00, mailer=*file*, stat=Sent
# Jan 15 09:48:00 hub sendmail[14995]: JAB14995: to="|/home/mail/mailtogroup.pl ncvs cvs-committers", delay=00:00:05, xdelay=00:00:05, mailer=prog, stat=unknown mailer error 13