SUBSCRIBERESP="/opt/cropswap/subunsub.eml"
gdbmopen($SLIST, "C")
if (/^Subject:\s*\[(SUBSCRIBE|UNSUBSCRIBE)\]\s*$/)
{
   SUBSCRIBE=$MATCH1
}

if ($SUBSCRIBE ne "")
{
   if (gdbmstore(tolower($FROM), $SUBSCRIBE) == 0)
   {
      gdbmclose
      system "$SUBUNSUB '$SUBSCRIBE' '$ALIAS' '$FROM'"
      RESP=$SUBSCRIBERESP
      to "|$MAILBOT"
   }
   else
   {
      gdbmclose
      EXITCODE=$FATAL
      cc "|$DEBUGMAIL subunsub-fail"
      exit
   }
}
gdbmcloce