# http://www.natur.cuni.cz/~mmokrejs/procmail/majordomo.rc written by Martin Mokrejs, version 1.0
#
# This script is used to automatically respond to BOUNCEd submissions to majordomo
#  mailing lists. Use this if you have set up, that only members of a certain list
#  are allowed to post a message. If they aren't, you might as a list-owner receive
#  copy of a BOUNCEd message.
#
# This script looks for such BOUNCEs in your incoming mail a replies them. It sends a message
#  to the original sender (not listname or listname-owener) explaining, that his
#  message has been rejected because he is not subscribed to the list at all
#  or he is subscribed from another email address.
#
# This recipe also takes care of messages BOUNCEd because they exceed maximum allowed
#  size limit per message, and also of subscribe/unsubscribe requests sent to the list address,
#  instead of majorodomo@ address or listname-request@ address.
#
#
#

LISTNAME = "(montana|horo|foto|kolejni-site)"
# put the mail server address which appears on Return-Path: line in mails sent from list
MAILSERVER = "@mail\.natur\.cuni\.cz"

#
#
#
#
#
#
# Extract sender's email address from the From: line (omit comments and name of the sender,
#  extract just pure email address)
#  FROM=`$FORMAIL -zrx To:`

# we expect BOUNCEs like:
# Subject: BOUNCE montana@mail.natur.cuni.cz: Non-member submission from [someone@anywhere.net]
# We extract the email address from the Subject line instead of From: line in returned copy of a message
:0
* ^Subject:[ 	]*BOUNCE.*[a-zA-Z]@$MAILSERVER:[ 	]*Non-member.*submission.*from.*\[\/[^]]+
{
  SENDER = "$MATCH"
  LOG = "This is a BOUNCE of message submitted by $SENDER to some majordomo-based email list
"

  :0 H
  * ^Return-Path: \<owner\-\/[^@]+
  { CONFERENCE1 = "$MATCH"
   LOG="Accordingly to Return-Path: line in header of the mail it appears to be bounced from $CONFERENCE1 list
" }
  :0 B
  * ^X-Loop: \/[^@]+
  * ^TO_$LISTNAME@natur\.cuni\.cz
  { CONFERENCE2 = "$MATCH"
    LOG="According to X-Loop and To:, Cc: and other rules it seems to be bounced from $CONFERENCE2 list
" }

  # if the mail was bounced from exactly same list (based on comapring two criteria:
  #   1. Return-Path: line containing list-owner string
  #   2. X-Loop: list@mail.natur.cuni.cz
  #   3. To: or Cc: line containing one of the listed listnames
  # then lets send a reply stored in $HOME/procmail/bounced.txt file
  #
  :0
  * $CONFERENCE1 ?? $CONFERENCE2
  | formail -rkbt -I "Subject: You have submitted an email to list $CONFERENCE2 from address not on the subscribers list" \
        -I "X-Loop: $LOGNAME" -I "To: $SENDER" \
        -I "Precedence: junk" | \
        sed -e '1,/^$/ !b' -e "/^$/r $HOME/procmail/bounced.txt" | \
        $SENDMAIL -oi -t
}

#
# Handle automatically BOUNCEs when members submitted too large messages above the size limit
#
:0
* ^Subject:[ 	]*BOUNCE.*[a-zA-Z]@$MAILSERVER:[ 	]*Message too long.*
{
  :0 H
  * ^(>)From (listserv|owner-)
  * ^Return-Path: \<owner\-\/[^@]+
  { CONFERENCE1 = "$MATCH"
    LOG="Accordingly to Return-Path: in header the mail appears to be bounced from $CONFERENCE1 list
" }
  :0 B
  * ^X-Loop: \/[^@]+
  * ^TO_$LISTNAME@natur\.cuni\.cz
  { CONFERENCE2 = "$MATCH"
  LOG="According to X-Loop and To:, Cc: and other rules it seems to be bounced from $CONFERENCE2 list
" }
  :0
  * $CONFERENCE1 ?? $CONFERENCE2
  SENDER = `$FORMAIL -zx From:`
  LOG = "This overly long BOUNCED message came from $SENDER
"
  | formail -rkbt -I "Subject: You have sent to the list $CONFERENCE1 too large email" \
         -I "X-Loop: $LOGNAME" -I "To: $SENDER" \
         -I "Precedence: junk" | \
         sed -e '1,/^$/ !b' -e "/^$/r $HOME/procmail/bounced-too-long.txt" | \
         $SENDMAIL -oi -t
}

# This is a quick hack how people could send to you, as list-owner some message from non-subscribed
#  email address and this recipe would redirect it to the list under your subscription name
#
# :0
# * ^Subject:.*montana2fwd.*\/[^	 ].*
# {
#   NADPIS = "$MATCH"
# 
#   :0 H
#   * ^From:.*\/[^ 	].*
#   { SENDER = "$MATCH" }
# 
#   :0 H
#   * ^Date:.*[^ 	].*
#   { DATUM = "$MATCH" }
# 
#   :0 fbw
#   | ( echo "Odesilatel: $SENDER" ; echo "Datum: $DATUM" ; echo ; cat - )
# 
#   :0 b
#   | ( formail -I "Subject: $NADPIS (fwd)" -I "To: montana@natur.cuni.cz" -I "From: Martin Mokrejs <mmokrejs@natur.cuni.cz>" | $SENDMAIL -oi -t )
# }

# unsubscribe those people who posted their request to the list and the request was fortunately BOUNCEd
#
:0
* ^Subject:[ 	]*BOUNCE $LISTNAME@$MAILSERVER:[ 	]*Admin request of type
{ :0B
  * ^From:.*\/[^        ].*
  { SENDER = "$MATCH" }

  :0f
  * ^Subject:[ 	]*BOUNCE[ 	]*\/[^ 	]
  { EXTRACTEDLISTNAME = "$MATCH" }

  :0B
  * ^unsubscribe montana[ 	]*\/[^ 	].*
  { SENDER = "$MATCH" }

  :0 fbw
  | ( echo "unsubscribe $EXTRACTEDLISTNAME $SENDER"; echo "end"; cat - )

  :0 b
  | ( formail -I "Subject:" -I "To: majodomo@natur.cuni.cz" -I "From: $SENDER" | $SENDMAIL -oi -t )
}

# subscribe those people who posted their request to the list and the request was fortunately BOUNCEd
#
:0
* ^Subject:[ 	]*BOUNCE $LISTNAME@$MAILSERVER:[ 	]*Admin request of type
{ :0B
  * ^From:.*\/[^ 	].*
  { SENDER = "$MATCH" }

  :0f
  * ^Subject:[ 	]*BOUNCE[ 	]*\/[^ 	]
  { EXTRACTEDLISTNAME = "$MATCH" }
 
  :0B
  * ^subscribe montana[ 	]*\/[^ 	].*
  { SENDER = "$MATCH" }

  :0 fbw
  | ( echo "subscribe $EXTRACTEDLISTNAME $SENDER"; echo "end"; cat - )

  :0 b
  | ( formail -I "Subject:" -I "To: majodomo@natur.cuni.cz" -I "From: $SENDER" | $SENDMAIL -oi -t )
}