diff options
| author | peter <peter@FreeBSD.org> | 1999-08-08 18:59:12 +0800 |
|---|---|---|
| committer | peter <peter@FreeBSD.org> | 1999-08-08 18:59:12 +0800 |
| commit | 1f7d10fe11bc9958d8b408f409c2931994b5460a (patch) | |
| tree | 9b7cba285848b2f776c6750450c9765e96ddd532 /CVSROOT | |
| parent | 8071e703523a683ed729151005a024a87f1acc40 (diff) | |
| download | freebsd-ports-gnome-1f7d10fe11bc9958d8b408f409c2931994b5460a.tar.gz freebsd-ports-gnome-1f7d10fe11bc9958d8b408f409c2931994b5460a.tar.zst freebsd-ports-gnome-1f7d10fe11bc9958d8b408f409c2931994b5460a.zip | |
Take a snapshot of a tweaked version of the script that sends mail to
committers.
Diffstat (limited to 'CVSROOT')
| -rwxr-xr-x | CVSROOT/commitmail.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/CVSROOT/commitmail.pl b/CVSROOT/commitmail.pl new file mode 100755 index 000000000000..85d8e6475b8c --- /dev/null +++ b/CVSROOT/commitmail.pl @@ -0,0 +1,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 + |