cropswap-members@shandan.one 699 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. if (!$CONTINUE)
  2. {
  3. foreach /^(To|Cc):\s+(.*)\s+\<$MEMBERGROUPREGEX\>$/
  4. {
  5. TOALIAS=$MATCH2
  6. }
  7. CONTINUE=1
  8. TOMEMBER=1
  9. MAILGROUP=$MEMBERGROUP
  10. SUBJECT="Crop Swap Member"
  11. }
  12. elsif ($CONTINUE)
  13. {
  14. gdbmopen($MLIST, "R")
  15. ALIAS=gdbmfetch(tolower($FROM))
  16. gdbmclose
  17. if ($ALIAS eq "")
  18. {
  19. EXITCODE=$UNREGISTERED
  20. exit
  21. }
  22. #
  23. # Registered senders only
  24. include "$FILTERDIR/subscriptions"
  25. gdbmopen($SLIST, "R")
  26. if (gdbmfetch(tolower($FROM)) ne "SUBSCRIBE")
  27. {
  28. gdbmclose
  29. cc "|$DEBUGMAIL no-forward"
  30. EXITCODE=$UNSUBSCRIBED
  31. exit
  32. }
  33. gdbmclose
  34. #
  35. # Subscribesd senders only
  36. NOFORWARD=$FROM
  37. FROM=$ALIAS
  38. to "!"
  39. }