|
@@ -47,49 +47,46 @@ if ($DISPATCH)
|
|
|
KEY="$ALIAS $SUFFIX"
|
|
|
EXISTS=gdbmfetch($KEY)
|
|
|
}
|
|
|
- if (gdbmstore(tolower($FROM), $KEY) == 0 && gdbmstore($KEY, tolower($FROM)) == 0)
|
|
|
+ if (gdbmstore(tolower($FROM), $KEY) || gdbmstore($KEY, tolower($FROM)))
|
|
|
{
|
|
|
gdbmclose
|
|
|
- SLIST="$LISTDIR/alist"
|
|
|
- gdbmopen($SLIST, "C")
|
|
|
- if (/^X-AUTH:\s(.+)\s*$/)
|
|
|
- {
|
|
|
- AUTH=$MATCH1
|
|
|
- }
|
|
|
- else
|
|
|
- {
|
|
|
- AUTH="NONE"
|
|
|
- }
|
|
|
- if (gdbmstore(tolower($FROM), "$AUTH"))
|
|
|
- {
|
|
|
- gdbmclose
|
|
|
- EXITCODE=$FATAL
|
|
|
- cc "|$DEBUGMAIL 'auth-store-fail'"
|
|
|
- exit
|
|
|
- }
|
|
|
- if ($AUTH eq "admin")
|
|
|
- {
|
|
|
- SUBSCRIBE="SUBSCRIBE"
|
|
|
- }
|
|
|
- else
|
|
|
- {
|
|
|
- SUBSCRIBE="UNSUBSCRIBE"
|
|
|
- }
|
|
|
- system "$SUBUNSUB '$SUBSCRIBE' '$KEY' '$FROM'"
|
|
|
- if ($EXITCODE)
|
|
|
- {
|
|
|
- cc "|$DEBUGMAIL 'auth-sub-fail'"
|
|
|
- exit
|
|
|
- }
|
|
|
- gdbmclose
|
|
|
- RESP=$SIGNUPRESP
|
|
|
- to "|$MAILBOT"
|
|
|
+ EXITCODE=$FATAL
|
|
|
+ cc "|$DEBUGMAIL '$MLSIT-store-fail'"
|
|
|
+ exit
|
|
|
+ }
|
|
|
+ gdbmclose
|
|
|
+ SLIST="$LISTDIR/alist"
|
|
|
+ gdbmopen($SLIST, "C")
|
|
|
+ if (/^X-AUTH:\s(.+)\s*$/)
|
|
|
+ {
|
|
|
+ AUTH=$MATCH1
|
|
|
}
|
|
|
else
|
|
|
+ {
|
|
|
+ AUTH="NONE"
|
|
|
+ }
|
|
|
+ if (gdbmstore(tolower($FROM), "$AUTH"))
|
|
|
{
|
|
|
gdbmclose
|
|
|
EXITCODE=$FATAL
|
|
|
- cc "|$DEBUGMAIL '$MLSIT-store-fail'"
|
|
|
+ cc "|$DEBUGMAIL 'auth-store-fail'"
|
|
|
+ exit
|
|
|
+ }
|
|
|
+ gdbmclose
|
|
|
+ if ($AUTH eq "admin")
|
|
|
+ {
|
|
|
+ SUBSCRIBE="SUBSCRIBE"
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ SUBSCRIBE="UNSUBSCRIBE"
|
|
|
+ }
|
|
|
+ system "$SUBUNSUB '$SUBSCRIBE' '$KEY' '$FROM'"
|
|
|
+ if ($EXITCODE)
|
|
|
+ {
|
|
|
+ cc "|$DEBUGMAIL 'auth-sub-fail'"
|
|
|
exit
|
|
|
}
|
|
|
+ RESP=$SIGNUPRESP
|
|
|
+ to "|$MAILBOT"
|
|
|
}
|