home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / OPUSUPL.T < prev    next >
Text File  |  1989-11-21  |  2KB  |  92 lines
  1.     :: Upload message to Opus  Rev 7-28-89
  2.     :: First line is "From: name" (reply) or "To name" (originating)
  3.     :: Nest 2 lines searched for "Subject: "
  4.     :: Message body starts on next line
  5.     ::
  6.     :on !c goto foonc
  7.     pat
  8.     pat 5 "aborted"
  9.     pat 6 "\nSelect: "
  10.     pat 7 "I don't understand `"
  11.     pat 8 "Message aborted."
  12.     open -!tg %item; set s0 ""
  13.     while "t&&!%s0" grab s0        :: read past initial blank lines
  14.     if !t goto foobar
  15.     if "ps0,To " goto orig        :: Sanity check first non blank line
  16.     if "!ps0,From:" goto foobar    :: Sanity check first non blank line
  17. orig:    split s0 " :" "" 
  18.     sets s1 "%z1"
  19.     ss s1 "(.*)(           *)"
  20.     while %z2 sets s1 "%z1" ss s1 "(.*)( $)"
  21.     ss s1 "(^ *)(.*)";  if %z1 sets s1 "%z2"
  22.     grab s2            :: If to line - ignore
  23.     ss s2 "(R[eE]: *|Subject: *)(.*)"
  24.     if !%z2 grab s2;  ss s2 "(R[eE]: *|Subject: *)(.*)"
  25.     if !%z2 grab s2;  ss s2 "(R[eE]: *|Subject: *)(.*)"
  26.     sets s2 "%z2"
  27.     ss s2 "(R[eE]: *|Subject: *)(.*)"
  28.     if %z2 ss s2 "(R[eE]: *|Subject: *)(.*)";  sets s2 "%z2"
  29.     ss s2 "(.*)(           *)"
  30.     while %z2 sets s2 "%z1" ss s2 "(.*)( $)"
  31.     ss s2 "(^ *)(.*)";  if %z1 sets s2 "%z2"
  32.     echoc "TO: <%s1> SUBJECT: <%s2>"
  33.     : return        :: for local testing of argument parsing
  34.     pat 0c "left. Start msg anyway [y,N]?" "y\r"
  35.     pat 9c "Create msg from file [y,N]?" "n\r"
  36.     pat 10i "To: "
  37.     pat 11i "Private  [y,N"
  38.     put "e\r"
  39.     wait -f4
  40.     if 7 goto foobar
  41.     if 11 putw "n\r"
  42.     put "%s1\r"
  43.     pat 12i "Subject:"
  44.     wait -f4
  45.     if 8 goto foobar
  46.     pat 20i "1:"        :: check for line by line msg upload
  47.     pat 21 "sert"        :: full screen ?
  48.     put "%s2\r"        :: send massaged subject line
  49.     wait
  50.     if 20 goto oldent
  51.     if !2 goto foobar
  52.     set blankfill ""
  53.     pat 20 ""; pat 21 ""; pat 5 ""
  54.     put " \b"; sleep 20
  55.     ena -tp; pq1; pp120; pg10
  56.     t -gx; ena -t!p
  57.     putw "\032"
  58.     goto done
  59. oldent:    set blankfill " - "
  60.     pat 20 ""; pat 21 ""; pat 5 ""
  61.     ena -pt; pq1; pp120; pg:
  62.     t -gx; ena -t!p
  63.     put "\r"
  64.     pat 7i "Editor Options:"
  65.     wait
  66.     if !7 goto foobar
  67.     put "s\r"
  68.     wait
  69.     if !6 goto foobar
  70.  
  71. done:    "!%mv %item Z%item.tmp"
  72.     echoc "File Uploaded: %item moved to Z%item.tmp"
  73.     ena -gt
  74.     pat
  75.     return
  76. foonc:    echoc "Carrier Lost"
  77. foobar:    echoc "File Not Accpeted"
  78.     nolog closetx
  79.     pat
  80.     return
  81. foox:    echoc "Moving %item to Y%item.tmp"
  82.     "!%mv %item Y%item.tmp"
  83.     ena -gt
  84.     nolog closetx
  85.     echoc "OPUSUPL ABEND"
  86.     pat
  87.     return
  88. unedited:    echoc "opusupl.t: %item has not been edited!"
  89.     closetx
  90.     pat
  91.     return
  92.