home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / ZCM_SCRP.ZIP / BIXMAILU.T < prev    next >
Encoding:
Text File  |  1989-11-21  |  1.6 KB  |  62 lines
  1. ::
  2. :: "bixmailu.t" goes in %lib        It uploads BIX Mail messages
  3. ::  Takes reply format beginning with "Memo #", or originating format
  4. ::  To user
  5. ::  Subject: subject
  6. ::   (Unix mail msg).
  7. ::  Register usage:  s1 is receipient,  s2 is subject
  8. ::
  9.     echo "File = %item"
  10.         open -!tg %item
  11.  
  12. l1:    set s0 ""
  13.     while "t&&!%s0" grab  s0
  14.     if "ps0,Memo #" goto rply
  15.     ss s0 "(^[Tt][Oo]:* *)(.*)"; sets s1 %z2
  16.     if !%s1 goto badmsg
  17.     echo "Originating format: To %s1"
  18.     goto orig2
  19.  
  20. rply:    grab s0
  21.     if !t goto badmsg
  22.     ss s0 "(From: *)(.*)"; sets s1 %z2
  23.  
  24. orig2:    while t&&!ps0,Subject: grab s0
  25.     if !t echo "No Subject: line seen";  goto badmsg
  26.     ss s0 "(Subject: *)(.*)"; sets s2 %z2
  27.  
  28.     echo "Now to: '%s1'  Subject: '%s2'"
  29.     :: if y review
  30.     :: closetx;  return    : for testing
  31.  
  32.         pattern;  pat 1 "Mail:"
  33.     if !is9,Mail put "mail\r"; set s9 "Mail"; wait; if !1 goto foobar
  34.  
  35.     pat 2c "Enter subject:" "%s2\r"
  36.     pat 3l "Enter text."
  37.     put "clear\r";  wait
  38.     put "to %s1\r";  wait
  39.  
  40.         pg62; pp300; pq0; if !dP ena -p
  41.         if dP ena -r
  42.         t -gx; ena -t!p; pp250
  43.  
  44.     mput ".\r"
  45.     pat 2l "sent"
  46.     pat 3c "send/action:" "send\r"
  47.     wait
  48.         if !2 goto foobar
  49.         obey "!mv %item Z%item.tmp"
  50.         echoc "File Uploaded: %item moved to Z%item.tmp"
  51.         ena -gt
  52.         return
  53. badmsg:    echoc "Bad message format"
  54. foobar: echoc "File Not Accpeted"
  55.     echo "Moving file to backup name"
  56.     abort;    **********
  57.     obey "!mv %item Y%item.tmp"
  58.         echoc "File Rejected: %item moved to Y%item.tmp"
  59.         ena -gt
  60.         nolog closetx
  61.         return
  62.