> The majordomo message is *still* processed it looks like (I got a message
> back from Majordomo@wwti.iway.net about my 'help' request), but (1) while
> it is processing the mail message it takes about 10 seconds (maybe a
> little shorter) and (2) causes the above memory fault and writes me a
> message. I also checked all permissions on files.... Has anyone else out
> there had this problem?
(WILL SOMEONE VERIFY THIS THEORY AND ADD IT TO THE FAQ?)
memory fault? Sounds like a problem I had and just fixed.
--- START OF PROPOSED FAQ ENTRY ---
Problem:
I get memory fault reports, especially from /bin/sh
Majordomo takes forever to process requests.
The answer is:
Your directory permissions aren't permitting shlock.pl to lock
things correctly. In particular, the log file can't be locked.
Long story:
When installing majordomo, chances are things aren't going to be
set up right on the first try. So, majordomo runs, finds an error,
and tries to log it.
The logging process locks the log, which it can't do since
the permissions are set wrong. So, it logs this error.
The logging process locks the log, which it can't do since
the permissions are set wrong. So, it logs this error.
The logging process locks the log...
etc. etc.
After about 10 zillion iterations of this, perl dies because it runs out
of stack space. The shell (for some reason the error is usually reported
as coming from /bin/sh) reports a memory fault.
The documentation isn't clear about permissions and ownership of the
files. It would be great if it listed everything in one place.
--- END OF PROPOSED FAQ ENTRY ---
You can add the following to the Majordomo distribution if you want:
After a day of hacking, I got frustrated enough to write the following
script called "mklist". The command "mklist listname" creates all
the files/directories needed for the mailing list, checks the permissions
on all files and directories (I don't think I missed anything), then
outputs the correct entries for /etc/aliases.
If you run it and the files/directories already exist, it checks
them for proper ownership/group/mode attributes. It doesn't fix
things, but it outputs the right commands for you to execute.
I haven't written a README for it yet but the source is pretty readable.
--tal
--
Tom Limoncelli -- tal@plts.org -- http://mars.superlink.net/user/tal
<*> "PGP-Signed email serves no purpose other than to stroke the
sender's ego. Do you flash your license and passport to identify
yourself when you approach friends for casual conversation?"
#!/bin/sh
# This is a shell archive (shar 3.21)
# made 01/11/1996 20:46 UTC by tal@plts.org
# Source directory /home/tal/bin
#
# existing files WILL be overwritten
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 4684 -rwxrwxr-x mklist
#
if touch 2>&1 | fgrep '[-amc]' > /dev/null
then TOUCH=touch
else TOUCH=true
fi
# ============= mklist ==============
echo "x - extracting mklist (Text)"
sed 's/^X//' << 'SHAR_EOF' > mklist &&
X#!/usr/local/bin/perl
X
X$LISTNAME = shift @ARGV;
X$LISTOWNER = "tal"; # who owns the lists
X#$WRAPPERBASE = "/var/spool/majordomo/wrapper "; # standard majordomo wrapper
X$WRAPPERBASE = "/var/spool/majordomo/run"; # my modified wrapper
X
X$majordomo_uid = getpwnam( 'majordom' ); # uid of files/dirs
X$majordomo_gid = getgrnam( 'majordom' ); # gid of files/dirs
X$perm_diro = "0775"; # mode for directories (open)
X$perm_dirf = "0770"; # mode for directories (facist)
X$perm_fileo = "0664"; # mode for files (open)
X$perm_filef = "0660"; # mode for files (facist)
X
X#
X# NOTE: Below I use /etc/majordomo.cf.new, most likely
X#
X$cf = "/etc/majordomo.cf.new"; # if this isn't my site
X#$cf = "/etc/majordomo.cf"; # if this is my site
Xeval(`cat $cf`) || die "eval of $cf failed $@";
X
X#
X# Check our input
X#
Xdie "Usage: mklist LISTNAME\n" unless length( $LISTNAME );
X
X#
X# Now do all the work
X#
X
X# Check the base directories
X&mkdir( $perm_diro, "$homedir" );
X&mkdir( $perm_diro, "$filedir" );
X&mkdir( $perm_diro, "$listdir" );
X&mkdir( $perm_dirf, "$digest_work_dir" );
X&touch( $perm_fileo, "$log" );
X
X# Check the directories needed for this list
X&mkdir( $perm_diro, "$filedir/$LISTNAME$filedir_suffix" );
X
X# Check the files needs for this list
X&touch( $perm_fileo, "$listdir/${LISTNAME}" );
X&touch( $perm_fileo, "$listdir/${LISTNAME}-digest" );
X&store( $perm_filef, "$listdir/${LISTNAME}.passwd", "PASSWORD" );
X&store( $perm_filef, "$listdir/${LISTNAME}-digest.passwd", "PASSWORD" );
X&store( $perm_fileo, "$listdir/${LISTNAME}.info", "Paragraph or so of info\n" );
X&store( $perm_fileo, "$listdir/${LISTNAME}-digest.info", "Lots of paras\n" );
X&mkdir( $perm_dirf, "$digest_work_dir/${LISTNAME}-digest" );
X
X# Output the aliases required for this list
Xprint <<HERE
X
X#
X# \u$LISTNAME mailing list
X# This is a majordomo mailing list plus a -digest version.
X# The list is archived.
X#
X$LISTNAME: "|${WRAPPERBASE}resend -l $LISTNAME -h plts.org $LISTNAME-outgoing"
Xowner-$LISTNAME: $LISTOWNER
X$LISTNAME-outgoing: :include:$listdir/$LISTNAME,
X "|${WRAPPERBASE}digest -r -C -l $LISTNAME-digest $LISTNAME-digest-outgoing",
X "|${WRAPPERBASE}archive2.pl -a -m -f $filedir/$LISTNAME$filedir_suffix"
Xowner-$LISTNAME-outgoing: owner-$LISTNAME
X$LISTNAME-approval: $LISTOWNER
X#$LISTNAME-request: "|${WRAPPERBASE}request-answer $LISTNAME"
X$LISTNAME-request: "|${WRAPPERBASE}majordomo -l $LISTNAME"
X$LISTNAME-digest: $LISTNAME
Xowner-$LISTNAME-digest: owner-$LISTNAME
X$LISTNAME-digest-outgoing: :include:$listdir/${LISTNAME}-digest
Xowner-$LISTNAME-digest-outgoing: owner-$LISTNAME
X$LISTNAME-digest-approval: $LISTNAME-approval
X#$LISTNAME-digest-request: "|${WRAPPERBASE}request-answer $LISTNAME-digest"
X$LISTNAME-digest-request: "|${WRAPPERBASE}majordomo -l $LISTNAME-digest"
X
XHERE
X;
X
X
Xsub mkdir {
X ($perm, $fname) = @_;
X#print "DEBUG: checkdir $fname\n";
X if (-d $fname ) {
X local($dev,$ino,$mode,$nlink,$uid,
X $gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
X = stat($fname);
X $mode = $mode & 0777;
X print "chown $majordomo_uid $fname\n" if $uid != $majordomo_uid;
X print "chgrp $majordomo_gid $fname\n" if $gid != $majordomo_gid;
X#print "DEBUG: modeof $fname is $mode (want ", oct($perm), ")\n";
X print "chmod $perm $fname\n" if $mode != oct($perm);
X } else {
X mkdir( $fname, $perm );
X chown $majordomo_uid, $majordomo_gid, $fname;
X chmod oct($perm), $fname;
X }
X}
X
Xsub touch {
X ($perm, $fname) = @_;
X#print "DEBUG: touch $fname\n";
X if (-f $fname ) {
X local($dev,$ino,$mode,$nlink,$uid,
X $gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
X = stat($fname);
X $mode = $mode & 0777;
X print "chown $majordomo_uid $fname\n" if $uid != $majordomo_uid;
X print "chgrp $majordomo_gid $fname\n" if $gid != $majordomo_gid;
X#print "DEBUG: modeof $fname is $mode (want ", oct($perm), ")\n";
X print "chmod $perm $fname\n" if $mode != oct($perm);
X } else {
X open(FI, ">>$fname") || die "Can't create $fname: $!"; close FI;
X chown $majordomo_uid, $majordomo_gid, $fname;
X chmod oct($perm), $fname;
X }
X}
X
Xsub store {
X ($perm, $fname, $text) = @_;
X#print "DEBUG: create $fname\n";
X if (-f $fname ) {
X local($dev,$ino,$mode,$nlink,$uid,
X $gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
X = stat($fname);
X $mode = $mode & 0777;
X print "chown $majordomo_uid $fname\n" if $uid != $majordomo_uid;
X print "chgrp $majordomo_gid $fname\n" if $gid != $majordomo_gid;
X#print "DEBUG: modeof $fname is $mode (want ", oct($perm), ")\n";
X print "chmod $perm $fname\n" if $mode != oct($perm);
X } else {
X open(FI, ">>$fname") || print die "Can't create $fname: $!";
X print FI $text; close FI;
X chown $majordomo_uid, $majordomo_gid, $fname;
X chmod oct($perm), $fname;
X }
X}
X
SHAR_EOF
$TOUCH -am 0108224196 mklist &&
chmod 0775 mklist ||
echo "restore of mklist failed"
set `wc -c mklist`;Wc_c=$1
if test "$Wc_c" != "4684"; then
echo original size 4684, current size $Wc_c
fi
exit 0
Follow-Ups:
References:
|
|
