This fixes a bug where you couldn't send a message to approve on stdin
(e.g. show | approve). Also, it adds a check/warning for unfound
password when processing a bounce. It also closes the MAIL descriptor
for bounce.
===================================================================
RCS file: /sources/cvsrepos/majordomo/approve,v
retrieving revision 1.1.1.2
diff -r1.1.1.2 approve
80a81
> push(ARGV, "-") if !(@ARGV);
144c145
< open(MAIL, "|mail -s \"\" $reply_to") ||
---
> open(MAIL, "|mail -vs \"\" $reply_to") ||
176a178,181
>
> warn "Can't find password for list $list, Stopped" , return
> if !defined($passwd{$list});
>
194a200
> close(MAIL);
-- John
John Rouillard
Special Projects Volunteer University of Massachusetts at Boston
rouilj@cs.umb.edu (preferred) Boston, MA, (617) 287-6480
Consulting Systems Programmer Bose
rouilj@bose.com Framingham, MA (508) 879-1916 x6483
===============================================================================
My employers don't acknowledge my existence much less my opinions.
|
|
