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