12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- if (!$CONTINUE)
- {
- foreach /^(To|Cc):\s+(.*)\s+\<$MEMBERGROUPREGEX\>$/
- {
- TOALIAS=$MATCH2
- }
- CONTINUE=1
- TOMEMBER=1
- MAILGROUP=$MEMBERGROUP
- SUBJECT="Crop Swap Member"
- }
- elsif ($CONTINUE)
- {
- gdbmopen($MLIST, "R")
- ALIAS=gdbmfetch(tolower($FROM))
- gdbmclose
- if ($ALIAS eq "")
- {
- EXITCODE=$UNREGISTERED
- exit
- }
-
-
- include "$FILTERDIR/subscriptions"
- gdbmopen($SLIST, "R")
- if (gdbmfetch(tolower($FROM)) ne "SUBSCRIBE")
- {
- gdbmclose
- cc "|$DEBUGMAIL no-forward"
- EXITCODE=$UNSUBSCRIBED
- exit
- }
- gdbmclose
-
-
- NOFORWARD=$FROM
- FROM=$ALIAS
- to "!"
- }
|