@verb #26:"MAIL" any none none rdo #55
@program #26:"MAIL" any none none
"MAIL FROM: <sender> [ <parameters> ]"
"    Specifies the sender."
"    Parameters are ESMTP extensions.  Currently not supported."
if (this.state < 1)
  return player:tell("503 You must HELO first.")
elseif (this.state > 1)
  return player:tell("503 Duplicate MAIL.")
endif
"dobjstr should be of the form 'FROM: <foo@bar.edu>'"
"m = match(dobjstr, \"^[Ff][Rr][Oo][Mm]:[ ]*<%([^>]+%)>$\");"
"The <> should be optional, and match is case insensitive by default -- Dax."
m = match(dobjstr, "^FROM:[ ]*<?%([^>]+%)>?$")
if (!m)
  return player:tell("501 Unable to parse ", dobjstr)
endif
from = dobjstr[m[3][1][1]..m[3][1][2]]
rdb = $registration_db:find_exact(from)
this.from = rdb == #-3 ? from | rdb[1][1]
this.state = 2
if (this.from)
  player:tell("250 Mail accepted from unknown site, but will probably be refused by the recipient.")
else
  player:tell("250 Mail accepted, use RCPT to specify recipients.")
endif
"Last modified by Dax (#789) on Sun May 14 08:23:48 2000 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.