🚀 go-pugleaf

In article <2728@inews.intel.com> kseshadr@quasar.intel.com (Kishore Seshadri) writes:
>In article <8886@ur-cc.UUCP>, sybn_ltd@uhura (Siu-Yan Baldwin Ng) writes:
>>Hi everybody,
>>
>>I am looking for a way to send email to a large group of people.
>>I know that I can use "group" in my .mailrc file.  However, if I send
>>one single email to like 10 groups of people, each group has 20 people,
>>then they might get a whole page of addresses at the beginning of their

Beware.  Some versions of UUCP have a character limit on the recipient addresses
they receive (I don't know the limit, sorry).  If you pass off a large mailing list
it may send just find, but blow up upon receipt at the next site.

I use this as a replacement for uux in my sendmail.cf file.  If anyone has a better
solution please let me know.


#!/usr/local/bin/perl

@uuxargs = @ARGV[0..2];
shift(@ARGV);
shift(@ARGV);
shift(@ARGV);
@users = ();
$cnt = 0;

@msg = <STDIN>;

for $u (@ARGV) {
    push(@users, "'$u'");
    if (++$cnt > 15) {
	&sendit;
    }
}
&sendit;
exit 0;

sub sendit {
    if ($cnt > 0) {
	open(PIPE, "|uux @uuxargs @users");
	print PIPE @msg;
	close(PIPE);
	if ($?) {
	    $err = "uusplit: @users $!\n";
	    open(FILE, ">/dev/console");
	    print FILE "$err";
	    close(FILE);
	}
	@users = ();
	$cnt = 0;
    }
}
-- 
Alphalpha Software, Inc.	|	motif-request@alphalpha.com
nazgul@alphalpha.com		|-----------------------------------
617/646-7703 (voice/fax)	|	Proline BBS: 617/641-3722

I'm not sure which upsets me more; that people are so unwilling to accept
responsibility for their own actions, or that they are so eager to regulate
everyone else's.