Date: Fri, 11 Aug 1995 09:42:27 -0400 (EDT) From: "Jonathan M. Bresler" <jmb@kryten.Atinc.COM> To: "Julian Stacey <jhs@freebsd.org>" <jhs@vector.eikon.e-technik.tu-muenchen.de> Cc: Mark Hittinger <bugs@ns1.win.net>, ports@freebsd.org Subject: Re: majordomo absence Message-ID: <Pine.3.89.9508110919.C6515-0100000@kryten.atinc.com> In-Reply-To: <199508110857.KAA03923@vector.eikon.e-technik.tu-muenchen.de>
next in thread | previous in thread | raw e-mail | index | archive | help
On Fri, 11 Aug 1995, Julian Stacey <jhs@freebsd.org> wrote:
> > > We have majordomo as a freefall facility,
> > > but it's not in ports ?
> > > Is it merely waiting for somebody like me to open his mouth
> > > & volunteer / be volunteered ;-)
here are the diffs of majordomo-1.92 original versus the version
installed on freefall.
Jonathan M. Bresler jmb@kryten.atinc.com | Analysis & Technology, Inc.
FreeBSD Postmaster jmb@FreeBSD.Org | 2341 Jeff Davis Hwy
play go. | Arlington, VA 22202
ride bike. hack FreeBSD.--ah the good life | 703-418-2800 x346
*** Changes Sat Apr 2 14:46:16 1994
--- /home/majordomo-1.92/Changes Thu May 11 18:00:38 1995
***************
*** 293,299 ****
with the text of the message (such as sendmail). To set your own mailer,
set the "$mailer" variable in the .cf file to the string to use to invoke
the mailer. The default, if none is specified, is:
! "/usr/lib/sendmail -f\$sender \$to"
You can use "\$sender", "\$to", "\$from", and/or "\$subject" in your command.
Make sure you use the "\", so that these variables will be expanded later,
rather than when the .cf file is read.
--- 293,299 ----
with the text of the message (such as sendmail). To set your own mailer,
set the "$mailer" variable in the .cf file to the string to use to invoke
the mailer. The default, if none is specified, is:
! "/usr/sbin/sendmail -f\$sender \$to"
You can use "\$sender", "\$to", "\$from", and/or "\$subject" in your command.
Make sure you use the "\", so that these variables will be expanded later,
rather than when the .cf file is read.
Common subdirectories: Doc/man and /home/majordomo-1.92/Doc/man
*** Makefile Thu Jun 9 12:48:07 1994
--- /home/majordomo-1.92/Makefile Fri May 12 07:00:15 1995
***************
*** 19,31 ****
#
# This is where "wrapper" looks for the programs it's supposed to run.
! W_BIN=/tools/majordomo-1.92
# This is the environment that (along with LOGNAME and USER inherited from the
# parent process, and without the leading "W_" in the variable names) gets
# passed to processes run by "wrapper"
! W_PATH=/bin:/usr/bin:/usr/ucb
W_HOME=${W_BIN}
W_SHELL=/bin/csh
W_MAJORDOMO_CF=$(W_BIN)/majordomo.cf
--- 19,31 ----
#
# This is where "wrapper" looks for the programs it's supposed to run.
! W_BIN=/home/majordomo-1.92
# This is the environment that (along with LOGNAME and USER inherited from the
# parent process, and without the leading "W_" in the variable names) gets
# passed to processes run by "wrapper"
! W_PATH=/bin:/usr/bin
W_HOME=${W_BIN}
W_SHELL=/bin/csh
W_MAJORDOMO_CF=$(W_BIN)/majordomo.cf
***************
*** 33,40 ****
# Use these settings for BSD-based systems, including SunOS 4.x. If you're
# using a POSIX-compliant system (including SysV and BSDI), comment these
# settings out, and uncomment the POSIX settings below.
! W_USER=daemon
! W_GROUP=bblisa
W_CHOWN=${W_USER}.${W_GROUP}
W_CHMOD=6755
WRAPPER_FLAGS = -DBIN=\"${W_BIN}\" -DPATH=\"PATH=${W_PATH}\" \
--- 33,40 ----
# Use these settings for BSD-based systems, including SunOS 4.x. If you're
# using a POSIX-compliant system (including SysV and BSDI), comment these
# settings out, and uncomment the POSIX settings below.
! W_USER=root
! W_GROUP=majordom
W_CHOWN=${W_USER}.${W_GROUP}
W_CHMOD=6755
WRAPPER_FLAGS = -DBIN=\"${W_BIN}\" -DPATH=\"PATH=${W_PATH}\" \
***************
*** 65,71 ****
cp wrapper $(W_BIN)/wrapper
chown ${W_CHOWN} $(W_BIN)/wrapper
chmod ${W_CHMOD} $(W_BIN)/wrapper
!
install-scripts: install-cf
@-test -d $(W_BIN)/Tools || mkdir $(W_BIN)/Tools
cp contrib/archive2.pl $(W_BIN)/Tools
--- 65,71 ----
cp wrapper $(W_BIN)/wrapper
chown ${W_CHOWN} $(W_BIN)/wrapper
chmod ${W_CHMOD} $(W_BIN)/wrapper
!
install-scripts: install-cf
@-test -d $(W_BIN)/Tools || mkdir $(W_BIN)/Tools
cp contrib/archive2.pl $(W_BIN)/Tools
***************
*** 76,82 ****
new-list request-answer resend resend.README shlock.pl \
digest/digest \
$(W_BIN)
!
# the install.cf target will install the sample config file in the
# proper place unless a majordomo.cf file exists in whcih case the
# majordomo.cf file will be used.
--- 76,82 ----
new-list request-answer resend resend.README shlock.pl \
digest/digest \
$(W_BIN)
!
# the install.cf target will install the sample config file in the
# proper place unless a majordomo.cf file exists in whcih case the
# majordomo.cf file will be used.
*** README Thu Jun 9 12:45:04 1994
--- /home/majordomo-1.92/README Thu May 11 18:05:37 1995
***************
*** 389,395 ****
Make sure that majordomo, resend, and digest are executable and in the
directory specified as W_BIN in the makefile.
! Make sure that perl is installed in /usr/local/bin/perl, or change the
path to perl in the programs.
If you get complaints about being unable to find "ctime.pl", then either
--- 389,395 ----
Make sure that majordomo, resend, and digest are executable and in the
directory specified as W_BIN in the makefile.
! Make sure that perl is installed in /usr/bin/perl, or change the
path to perl in the programs.
If you get complaints about being unable to find "ctime.pl", then either
*** approve Mon Mar 14 10:13:57 1994
--- /home/majordomo-1.92/approve Thu May 11 18:05:50 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# Approve Majordomo requests or "resend" bounces.
#
--- 1,4 ----
! #!/usr/bin/perl
# Approve Majordomo requests or "resend" bounces.
#
*** bounce Tue Aug 31 09:05:00 1993
--- /home/majordomo-1.92/bounce Thu May 11 18:01:32 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# move problem addresses from <list> to "bounces"
#
--- 1,4 ----
! #!/usr/bin/perl
# move problem addresses from <list> to "bounces"
#
***************
*** 71,78 ****
if (defined($opt_d)) {
open(MSG, ">&STDOUT");
} else {
! open(MSG, "|/usr/lib/sendmail $majordomo{$list}") ||
! die("open(MSG, \"|/usr/lib/sendmail $majordomo{$list}\"): $!\nStopped");
}
print MSG <<EOF;
--- 71,78 ----
if (defined($opt_d)) {
open(MSG, ">&STDOUT");
} else {
! open(MSG, "|/usr/sbin/sendmail $majordomo{$list}") ||
! die("open(MSG, \"|/usr/sbin/sendmail $majordomo{$list}\"): $!\nStopped");
}
print MSG <<EOF;
*** bounce-remind Tue Nov 23 14:03:09 1993
--- /home/majordomo-1.92/bounce-remind Thu May 11 18:06:04 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# send a reminder to folks on a bounce list
--- 1,4 ----
! #!/usr/bin/perl
# send a reminder to folks on a bounce list
***************
*** 33,40 ****
# All these should be in the standard PERL library
unshift(@INC, $homedir);
! open(MSG, "|/usr/lib/sendmail bounces@$whereami") ||
! die("open(MSG, \"|/usr/lib/sendmail bounces@$whereami\"): $!\nStopped");
print MSG <<EOF;
To: Bounces@$whereami
--- 33,40 ----
# All these should be in the standard PERL library
unshift(@INC, $homedir);
! open(MSG, "|/usr/sbin/sendmail bounces@$whereami") ||
! die("open(MSG, \"|/usr/sbin/sendmail bounces@$whereami\"): $!\nStopped");
print MSG <<EOF;
To: Bounces@$whereami
*** digest/digest Sun May 8 17:00:05 1994
--- /home/majordomo-1.92/digest Fri May 12 08:43:07 1995
***************
*** 1,20 ****
! #!/usr/local/bin/perl
# Original from J Greely <jgreely@cis.ohio-state.edu>, 9/30/92
#
# Heavily modified by Brent Chapman <Brent@GreatCircle.COM>
! # $Source: /sources/cvsrepos/majordomo/digest/digest,v $
! # $Revision: 1.7 $
! # $Date: 1994/05/09 00:00:05 $
! # $Author: rouilj $
# $State: Exp $
#
! # $Header: /sources/cvsrepos/majordomo/digest/digest,v 1.7 1994/05/09 00:00:05 rouilj Exp $
#
! # $Locker: $
#
# $Log: digest,v $
# Revision 1.7 1994/05/09 00:00:05 rouilj
# Added code to smash list name tolowercase.
#
--- 1,23 ----
! #!/usr/bin/perl
# Original from J Greely <jgreely@cis.ohio-state.edu>, 9/30/92
#
# Heavily modified by Brent Chapman <Brent@GreatCircle.COM>
! # $Source: /b/majordomo-1.92/RCS/digest,v $
! # $Revision: 1.1 $
! # $Date: 1995/05/12 15:42:37 $
! # $Author: jmb $
# $State: Exp $
#
! # $Header: /b/majordomo-1.92/RCS/digest,v 1.1 1995/05/12 15:42:37 jmb Exp jmb $
#
! # $Locker: jmb $
#
# $Log: digest,v $
+ # Revision 1.1 1995/05/12 15:42:37 jmb
+ # Initial revision
+ #
# Revision 1.7 1994/05/09 00:00:05 rouilj
# Added code to smash list name tolowercase.
#
***************
*** 199,205 ****
close(DIGEST);
! system("/usr/lib/sendmail -f$V{'ERRORS-TO'} $V{'REALLY-TO'} < $DIGEST");
if ( ! defined($opt_C) ) {
open(NUM_FILE, ">$V{'NUM_FILE'}") ||
--- 202,208 ----
close(DIGEST);
! system("/usr/sbin/sendmail -f$V{'ERRORS-TO'} $V{'REALLY-TO'} < $DIGEST");
if ( ! defined($opt_C) ) {
open(NUM_FILE, ">$V{'NUM_FILE'}") ||
*** majordomo Sun May 8 14:07:37 1994
--- /home/majordomo-1.92/majordomo Wed Jul 5 07:32:49 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# majordomo: a person who speaks, makes arrangements, or takes charge
# for another.
--- 1,4 ----
! #!/usr/bin/perl
# majordomo: a person who speaks, makes arrangements, or takes charge
# for another.
***************
*** 97,102 ****
--- 97,109 ----
# Parse the mail header of the message, so we can figure out who to reply to
&ParseMailHeader(STDIN, *hdrs);
+ # reject mail form this address
+ # replace this with a generic facility XXX jmb 950615
+ # if ($[ <= index($hdrs{'from'}, 'redes-l@mixit.ansp.br') ) {
+ # printf STDERR "major polluter stopped\n";
+ # exit 0;
+ # }
+
# Now we try to figure out who to send the replies to.
# $reply_to also becomes the default target for subscribe/unsubscribe
$reply_to = &RetMailAddr(*hdrs);
***************
*** 563,568 ****
--- 570,576 ----
}
&log("info $clean_list");
}
+
sub do_newinfo {
# Check to make sure we've got the right arguments
*** majordomo.pl Thu Jun 9 12:45:08 1994
--- /home/majordomo-1.92/majordomo.pl Thu May 11 18:02:02 1995
***************
*** 241,247 ****
}
# Globals referenced by &set_mail* and &sendmail
! $mail_prog = "/usr/lib/sendmail -f\$sender -t";
$mail_from = "Majordomo";
$mail_sender = "Majordomo-Owner";
--- 241,247 ----
}
# Globals referenced by &set_mail* and &sendmail
! $mail_prog = "/usr/sbin/sendmail -f\$sender -t";
$mail_from = "Majordomo";
$mail_sender = "Majordomo-Owner";
*** medit Sun May 8 13:14:27 1994
--- /home/majordomo-1.92/medit Thu May 11 18:06:32 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# medit: lock and edit a Majordomo-managed file, then unlock when done.
#
--- 1,4 ----
! #!/usr/bin/perl
# medit: lock and edit a Majordomo-managed file, then unlock when done.
#
*** new-list Thu Jun 9 12:45:12 1994
--- /home/majordomo-1.92/new-list Fri May 12 08:18:28 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# $Source: /sources/cvsrepos/majordomo/new-list,v $
--- 1,4 ----
! #!/usr/bin/perl
# $Source: /sources/cvsrepos/majordomo/new-list,v $
***************
*** 10,16 ****
# $Locker: $
# set our path explicitly
! $ENV{'PATH'} = "/bin:/usr/bin:/usr/ucb";
# What shall we use for temporary files?
$tmp = "/tmp/majordomo.$$";
--- 10,16 ----
# $Locker: $
# set our path explicitly
! $ENV{'PATH'} = "/bin:/usr/bin";
# What shall we use for temporary files?
$tmp = "/tmp/majordomo.$$";
***************
*** 39,45 ****
open(MAIL, "|-") ||
&do_exec_sendmail(split(' ',
! "/usr/lib/sendmail -f$list-approval -t"));
print MAIL <<"EOM";
To: $reply_to
--- 39,45 ----
open(MAIL, "|-") ||
&do_exec_sendmail(split(' ',
! "/usr/sbin/sendmail -f$list-approval -t"));
print MAIL <<"EOM";
To: $reply_to
*** request-answer Thu Jun 9 12:45:14 1994
--- /home/majordomo-1.92/request-answer Thu May 11 18:09:02 1995
***************
*** 1,4 ****
! #!/usr/local/bin/perl
# $Source: /sources/cvsrepos/majordomo/request-answer,v $
--- 1,4 ----
! #!/usr/bin/perl
# $Source: /sources/cvsrepos/majordomo/request-answer,v $
***************
*** 38,44 ****
$list = $ARGV[0];
sub do_exec_sendmail {
! exec("/usr/lib/sendmail", "-f$list-request", "-t") ||
die("Failed to exec sendmail");
}
--- 38,44 ----
$list = $ARGV[0];
sub do_exec_sendmail {
! exec("/usr/sbin/sendmail", "-f$list-request", "-t") ||
die("Failed to exec sendmail");
}
*** resend Thu Jun 9 12:45:16 1994
--- /home/majordomo-1.92/resend Thu May 11 18:09:37 1995
***************
*** 3,12 ****
# Copyright 1992, D. Brent Chapman. All Rights Reserved. For use by
# permission only.
#
! # $Source: /sources/cvsrepos/majordomo/resend,v $
! # $Revision: 1.28.2.2 $
! # $Date: 1994/06/09 19:45:16 $
! # $Author: rouilj $
# $State: Exp $
#
# $Locker: $
--- 3,12 ----
# Copyright 1992, D. Brent Chapman. All Rights Reserved. For use by
# permission only.
#
! # $Source: /b/majordomo-1.92/RCS/resend,v $
! # $Revision: 1.2 $
! # $Date: 1995/05/12 00:49:27 $
! # $Author: jmb $
# $State: Exp $
#
# $Locker: $
***************
*** 18,24 ****
#
# set our path explicitly
! $ENV{'PATH'} = "/bin:/usr/bin:/usr/ucb";
# What shall we use for temporary files?
$tmp = "/tmp/majordomo.$$";
--- 18,24 ----
#
# set our path explicitly
! $ENV{'PATH'} = "/bin:/usr/bin";
# What shall we use for temporary files?
$tmp = "/tmp/majordomo.$$";
***************
*** 257,263 ****
# So, we start over
$restart = 1;
close(OUT);
! unlink("/tmp/resend.$$.out");
open(OUT, ">/tmp/resend.$$.out") ||
die("resend: Can't open /tmp/resend.$$.out: $!");
last;
--- 257,263 ----
# So, we start over
$restart = 1;
close(OUT);
! unlink(</tmp/resend.$$.out>);
open(OUT, ">/tmp/resend.$$.out") ||
die("resend: Can't open /tmp/resend.$$.out: $!");
last;
***************
*** 325,331 ****
&bounce("Approval required");
}
! $sendmail_cmd = "/usr/lib/sendmail $opt_m -f$sendmail_sender " .
join(" ", @ARGV);
if (defined($opt_d)) {
--- 325,331 ----
&bounce("Approval required");
}
! $sendmail_cmd = "/usr/sbin/sendmail $opt_m -f$sendmail_sender " .
join(" ", @ARGV);
if (defined($opt_d)) {
***************
*** 344,350 ****
}
close(MAILOUT);
close(MAILIN);
! unlink("/tmp/resend.$$.*");
exit(0);
}
--- 344,350 ----
}
close(MAILOUT);
close(MAILIN);
! unlink(</tmp/resend.$$.*>);
exit(0);
}
***************
*** 441,449 ****
if (defined($opt_d)) {
# debugging, so just say it, don't do it
open(MAIL, ">-");
! print MAIL ">>> /usr/lib/sendmail -f$sendmail_sender -t\n";
} else {
! local(@mailer) = split(' ',"/usr/lib/sendmail -f$sendmail_sender -t");
open(MAIL, "|-") || &do_exec_sendmail(@mailer);
}
--- 441,449 ----
if (defined($opt_d)) {
# debugging, so just say it, don't do it
open(MAIL, ">-");
! print MAIL ">>> /usr/sbin/sendmail -f$sendmail_sender -t\n";
} else {
! local(@mailer) = split(' ',"/usr/sbin/sendmail -f$sendmail_sender -t");
open(MAIL, "|-") || &do_exec_sendmail(@mailer);
}
*** sample.cf Thu Jun 9 12:45:18 1994
--- /home/majordomo-1.92/sample.cf Thu May 11 18:03:17 1995
***************
*** 33,39 ****
# however the $to variable is provided by the person sending mail,
# and much mischief can be had by playing with this variable.
# Use $to with care.
! $mailer = "/usr/lib/sendmail -f\$sender -t";
# Majordomo will look for "get" and "index" files related to $list in
# directory "$filedir/$list$filedir_suffix", so set $filedir and
--- 33,39 ----
# however the $to variable is provided by the person sending mail,
# and much mischief can be had by playing with this variable.
# Use $to with care.
! $mailer = "/usr/sbin/sendmail -f\$sender -t";
# Majordomo will look for "get" and "index" files related to $list in
# directory "$filedir/$list$filedir_suffix", so set $filedir and
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?Pine.3.89.9508110919.C6515-0100000>