Great Circle Associates Majordomo-Users
(April 1996)
 

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

Subject: Re: administrivia recognition
From: Bonnie Scott <bonnie @ staff . prodigy . com>
Date: Fri, 5 Apr 1996 13:17:11 -0500 (EST)
To: mcook @ ecunet . org (Merrill Cook)
Cc: majordomo-users @ greatcircle . com
In-reply-to: <9604042144.aa12608@pcusa01.ecunet.org> from "Merrill Cook" at Apr 4, 96 09:44:32 pm

> I had to go and add several words and phrases to the stock "resend" 
> script, in order to get it to intercept all the mail failure messages
> that were trying to go to our lists.  (This of course requires that 
> you be using resend.)
> 
> Maybe something to add to the wishlist: an easy way for non-perl folks
> to add to the list of words that trigger an administrivia intervention.
> -- 

Merrill -- The PERL is really not that hard -- give it a try!

In resend, look for 

<CODE>
             # check for administrivia requests
               if (defined($opt_s) && ! defined($approved)
                   && (/^subject:\s*subscribe\b/i ||
                         /^subject:\s*suscribe\b/i ||
                         /^subject:\s*unsubscribe\b/i ||
                     /^subject:\s*unsuscribe\b/i ||
                      /^subject:\s*help\b/i ||
                      /^subject:\s*RCPT:\b/ ||
                         /^subject:\s*Delivery Confirmation\b/ ||
                         /^subject:\s*NON-DELIVERY of:/ ||
                         /^subject:\s*Undeliverable Message\b/ ||
                         /^subject:\s*Receipt Confirmation\b/ ||
                         /^subject:\s*Failed mail\b/ ||
                         /^subject:\s.*\bchange\b.*\baddress\b/ ||
                         /^subject:\s*request\b.*\baddition\b/i)) {
                     &bounce("Admin request");
                     }
</CODE>

(around line 200)
and around line 279:

<CODE>
             # check for administrivia requests
               if (defined($opt_s) && ! defined($approved)
                   && (/^subject:\s*subscribe\b/i ||
                         /^subject:\s*suscribe\b/i ||
                         /^subject:\s*unsubscribe\b/i ||
                     /^subject:\s*unsuscribe\b/i ||
                      /^subject:\s*help\b/i ||
                      /^subject:\s*RCPT:\b/ ||
                         /^subject:\s*Delivery Confirmation\b/ ||
                         /^subject:\s*NON-DELIVERY of:/ ||
                         /^subject:\s*Undeliverable Message\b/ ||
                         /^subject:\s*Receipt Confirmation\b/ ||
                         /^subject:\s*Failed mail\b/ ||
                         /^subject:\s.*\bchange\b.*\baddress\b/ ||
                         /^subject:\s*request\b.*\baddition\b/i)) {
                     &bounce("Admin request");
                     }
</CODE>

You can just copy one of the existing lines, like the "subscribe" line, paste it back in, and replace the phrase with your phrase.  Notice how we added a common misspelling of subscribe and unsubscribe : suscribe and unsuscribe.  Make sure to find both cases. 

You can also change the number of lines it will search through in this line:
<CODE>
       if (defined($opt_s) && ! defined($approved) && ($body_line++ < 5) &&
</CODE>
(It's currently set at 5.)



Bonnie Scott
Prodigy Services Company


Follow-Ups:
References:
Indexed By Date Previous: tricks on restricting who
From: Cindy Zheng <zhengc@SDSC.EDU>
Next: globbing the @archive_dirs array in 1.93
From: Patrick Goebel <patrick@casbs.Stanford.EDU>
Indexed By Thread Previous: Re: your mail
From: Merrill Cook <mcook@ecunet.org>
Next: Re: administrivia recognition
From: Merrill Cook <mcook@ecunet.org>

Google
 
Search Internet Search www.greatcircle.com