Great Circle Associates Majordomo-Workers
(March 1997)
 

Indexed By Date: [Previous] [Next] Indexed By Thread: [Previous] [Next]

Subject: Re: New Forgery Method -- Needs Addressing in Future Releases
From: Jason L Tibbitts III <tibbs @ hpc . uh . edu>
Date: 22 Mar 1997 13:45:27 -0600
To: majordomo-workers @ greatcircle . com
Cc: rogerk @ QueerNet . ORG
In-reply-to: Jason L Tibbitts III's message of 22 Mar 1997 12:18:33 -0600
References: <3.0.1.32.19970322025057.01f794fc@pop.queernet.org> <ufazpvvyeme.fsf@sina.hpc.uh.edu>

>>>>> "JLT" == Jason L Tibbitts <tibbs@hpc.uh.edu> writes:

JLT> You are correct about that; the approval address should be in the
JLT> config file.  We have 'moderator' but that only handles BOUNCEs.  A
JLT> patch should be pretty simple.

I decided it wouldn't take that long, so here's a stab at it.  I have not
tested this, but it compiles without problems.  This adds an
approval_address config option.  I did not change any reference to
listname-approval in any message sent to users, since that would defeat the
purpose.  You'll still need a listname-approval address for user questions
in addition to wherever you choose to sent these messages.

--- majordomo.orig	Mon Jan 20 15:23:09 1997
+++ majordomo	Sat Mar 22 13:35:35 1997
@@ -463,7 +463,11 @@
 		  print REPLY "Succeeded.\n";
 		}
 		&log("unsubscribe $clean_list $subscriber");
-		&sendmail(BYE, "$clean_list-approval\@$whereami",
+		$approval_address =
+		  $config_opts{$clean_list,"approval_address"} ||
+		  "$clean_list-approval";
+		$approval_address .= "\@$whereami" unless $approval_address =~ /\@/;
+		&sendmail(BYE, "$approval_address",
 			  "UNSUBSCRIBE $clean_list");
 		print BYE "$subscriber has unsubscribed from $clean_list.\n";
 		print BYE "No action is required on your part.\n";
@@ -1569,10 +1573,15 @@
     local($cmd) = shift;
     local($list) = &valid_list($listdir, shift);
     local($subscriber) = @_;
+    local($approval_address);
     local(*APPROVE);
 
+    $approval_address =
+      $config_opts{$clean_list,"approval_address"} ||
+      "$clean_list-approval";
+    $approval_address .= "\@$whereami" unless $approval_address =~ /\@/;
     # open a sendmail process for the approval request
-    &sendmail(APPROVE, "$list-approval\@$whereami", "APPROVE $list");
+    &sendmail(APPROVE, "$approval_address", "APPROVE $list");
 
     # Generate the approval request
     print APPROVE <<"EOM";
@@ -1720,8 +1729,13 @@
     # close (and thereby send) the welcome message to the subscriber
     close(MSG);
 
+    $approval_address =
+      $config_opts{$clean_list,"approval_address"} ||
+      "$clean_list-approval";
+    $approval_address .= "\@$whereami" unless $approval_address =~ /\@/;
+
     # tell the list owner of the new subscriber
-    &sendmail(NOTICE, "$list-approval\@$whereami", "SUBSCRIBE $list");
+    &sendmail(NOTICE, "$approval_address\@$whereami", "SUBSCRIBE $list");
     print NOTICE "$subscriber has been added to $list.\n";
     print NOTICE "No action is required on your part.\n";
     close(NOTICE);
--- config_parse.pl.orig	Mon Dec 23 09:03:24 1996
+++ config_parse.pl	Sat Mar 22 13:39:15 1997
@@ -102,6 +102,7 @@
         'moderator',		'',	# moderator instead of owner-list
         'approve_passwd', 	'#!"$list.pass"',
 				      # password for approving postings
+	'approval_address',     '',   # address to mail approval notices to
         'sender', 		'#!"owner-" . $list',   # Set sender name
         'maxlength', 		'40000',   # Set max article length
         'precedence', 		'bulk',   # Set/install precendence header
@@ -264,6 +265,9 @@
 to allow posting to moderated list, or
 to bypass resend checks.",
 
+'approval_address',
+"Send approval notices to this address instead of <listname>-approval.",
+
 'sender',
 "The envelope and sender address for the
 resent mail. This string has \"\@\" and the value
@@ -409,6 +413,7 @@
         'moderate',		'resend',
         'moderator',		'resend',
         'approve_passwd',	'resend',
+	'approval_address',     'majordomo',
         'sender', 		'majordomo,resend,digest',
         'maxlength', 		'resend,digest',
         'precedence', 		'resend,digest',
@@ -463,6 +468,7 @@
         'moderate',		'grab_bool',
         'moderator',		'grab_word',
         'approve_passwd', 	'grab_word',
+	'approval_address',     'grab_word',
         'sender', 		'grab_word',
         'maxlength', 		'grab_integer',
         'precedence', 		'grab_word',


 - J<


References:
Indexed By Date Previous: Re: New Forgery Method -- Needs Addressing in Future Releases
From: Jason L Tibbitts III <tibbs@hpc.uh.edu>
Next: Re: [Fwd: Re: Syntax for a 'set' command?]
From: Chael Hall <nowhere@chaos.taylored.com>
Indexed By Thread Previous: Re: New Forgery Method -- Needs Addressing in Future Releases
From: Jason L Tibbitts III <tibbs@hpc.uh.edu>
Next: Re: partial digests, future Mj ideas (was Re: Syntax for a 'set' , command?)
From: Chael Hall <nowhere@chaos.taylored.com>

Google
 
Search Internet Search www.greatcircle.com