%
% create the database folders from raw mail
%
"Donn" *allseter
"" textwild
"mail" ofconn folder
"mailoutl" log)(
empty
{
%
% for each file in raw outlook mail
%
 nextfile ?
"nextmail" log)(
 filing ".xtx" reextend exists
 {
 }
 {
  execing
  _Mail.Body
  "to be shipped to" found)?
  {
%
% parse needed info from raw email vars
%
   _Mail.Body
   dup "Order Details" right$
"cart" log)(
   cr left$ trim !Mail.Cart
   dup "Based on Order" right$
   "via phone" slice exch trim !Mail.Order
   cr slice exch trim !Mail.Phone
   "Total" right$ cr left$ trim !Mail.Total
   dup "Contact Information" right$ cr left$ trim !Mail.Email
   dup "To be shipped to" right$ cr slice exch trim !Mail.Name
   "Powered by Square" slice exch !Mail.Address
   "<" right$ ">" slice exch !Mail.CL0
   "<" right$ ">" left$ !Mail.CI0

   pop

   empty
   "Mail.Received" sval
   "Mail.Cart" sval
   "Mail.Phone" sval
   "Mail.Order" sval
   "Mail.Total" sval
   "Mail.Email" sval
   "Mail.Address" sval
   "Mail.CL0" sval
   "Mail.CI0" sval
   "Mail.Name" sval

   !Mail.All

   _Mail.All "mail\Name" ofconn folder
   _Mail.Name asc2hex &"_" &_Mail.Received text
   &
   write

   _Mail.All "mail\Email" ofconn folder
   _Mail.Email asc2hex &"_" &_Mail.Received text
   &
   write

   _Mail.All "mail\Order" ofconn folder
   _Mail.Order asc2hex &"_" &_Mail.Received text
   &
   write

   _Mail.All "mail\Cart" ofconn folder
   _Mail.Cart asc2hex &"_" _Mail.Order asc2hex & &"_" &_Mail.Received text
   &
   write

   _Mail.All "mail\Phone" ofconn folder
   _Mail.Phone asc2hex &"_" &_Mail.Received text
   &
   write

   _Mail.All "mail\Time" ofconn folder
   _Mail.Received &"_" _Mail.Phone asc2hex & text
   &
   write

  }
  {
  } ifelse
"fin" log)(
  finaled
 } ifelse
} loop
filing)
"Conn" *allseter