blob: 8a8c5c8c96802abe5c9d5552b575cae2a9bddf19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#! /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;
}
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
|
