blob: 85d8e6475b8c10220b2b2b7c4bd01067162a2077 (
plain) (
blame)
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
#
# $Id$
$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
|
