|
@@ -16,6 +16,7 @@ if ($DISPATCH)
|
|
|
SUBJECT="Crop Swap Query"
|
|
|
|
|
|
gdbmopen($MLIST, "R")
|
|
|
+ TO=gdbmfetch(tolower($TOALIAS))
|
|
|
ALIAS=gdbmfetch(tolower($FROM))
|
|
|
gdbmclose
|
|
|
|
|
@@ -24,6 +25,7 @@ if ($DISPATCH)
|
|
|
#
|
|
|
# TODO: test this works at all
|
|
|
# should at least drop list headers
|
|
|
+ TO=""
|
|
|
SLIST="$LISTDIR/alist"
|
|
|
REPLYTO=$FROM
|
|
|
if (/^From:\s*("(.*)"|(.*))\s*\<.*\>$/)
|
|
@@ -49,6 +51,7 @@ if ($DISPATCH)
|
|
|
#
|
|
|
# TODO: test this works at all
|
|
|
# should at least drop list headers
|
|
|
+ TO=""
|
|
|
SLIST="$LISTDIR/alist"
|
|
|
REPLYTO=$FROM
|
|
|
FROM=$ALIAS
|
|
@@ -59,10 +62,15 @@ if ($DISPATCH)
|
|
|
MLIST="$LISTDIR/alist"
|
|
|
gdbmopen($MLIST, "R")
|
|
|
ORGANIZER=gdbmfetch(tolower($FROM))
|
|
|
+ if (gdbmfetch(tolower($TO)) ne "")
|
|
|
+ {
|
|
|
+ TO=""
|
|
|
+ }
|
|
|
gdbmclose
|
|
|
|
|
|
if ($ORGANIZER eq "NONE" || $ORGANIZER eq "")
|
|
|
{
|
|
|
+ TO=""
|
|
|
MLIST="$LISTDIR/mlist"
|
|
|
SLIST="$LISTDIR/alist"
|
|
|
FROM=$ALIAS
|