home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / BIXMSGU.T < prev    next >
Text File  |  1989-11-21  |  1KB  |  51 lines

  1. ::
  2. :: "bixmsgu.t" goes in %lib  UPLOAD BIX Conference messages
  3. :: Header line format:
  4. :: telecomm.pgms/general #399, from gscharf, 302 chars, Sun Apr 17 16:16:45 1988
  5. :: s1 = conference/topic   s2 = number to reply to
  6. ::
  7.     echo "File = %item"
  8.         open -!tg %item
  9.  
  10.     set s0 ""
  11.     while "t&&!%s0" grab  s0
  12.     ss s0 "([^ ]+)( #)([0-9]*)"
  13.     if "jz1,/" goto reply
  14.     echo "'%s0': originating format not done yet"; closetx; return
  15.  
  16. reply:    
  17.     sets s1 "%z1";  sets s2 "%z3"
  18.     echo "Conf/topic: '%s1'  Reply to #: '%s2'"
  19.     :: if y review
  20.     :: closetx;  return    : for testing
  21.  
  22.         pattern
  23.     pat 1 "Read:"
  24.     put "join %s1\r";  wait
  25.     pat 1 "Enter text. End with '.<CR>'"
  26.     put "com %s2\r";  wait
  27.  
  28.         pg62; pp300; pq0; if !dP ena -p
  29.         if dP ena -r
  30.         t -gx; ena -t!p; pp250
  31.  
  32.     pat 1 "action:"
  33.     put ".\r"
  34.     wait -f20
  35.     pat 1 " added."
  36.     put "add\r"
  37.     wait -f20
  38.         if !1 goto foobar
  39.         obey "!mv %item Z%item.tmp"
  40.         echoc "File Uploaded: %item moved to Z%item.tmp"
  41.         ena -gt
  42.         return
  43. badmsg:    echoc "Bad message format"
  44. foobar: echoc "File Not Accpeted"
  45.     echo "Moving file to backup name"
  46.     :  abort;    **********
  47.     obey "!mv %item Y%item.tmp"
  48.         echoc "File Rejected: %item moved to Y%item.tmp"
  49.         ena -gt
  50.         return
  51.