home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / BIXMSGU.T < prev    next >
Text File  |  1990-10-05  |  1KB  |  57 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.     echoc "Bixmsgu.t: 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.     pat 2i "Can't add comment"
  27.     put "com %s2\r";  wait
  28.     if !1 goto foobar
  29.  
  30.         pg62; pp300; pq0; if !dP ena -p
  31.         if dP ena -r
  32.         t -gx; ena -t!p; pp250
  33.  
  34.     pat 1 "action:"
  35.     put ".\r"
  36.     wait -f20
  37.     pat 1 " added."
  38.     put "add\r"
  39.     wait -f20
  40.         if !1 goto foobar
  41.         if !dv "!%mv %item Z%item.tmp"
  42.         if dv "!%rename %item Z%item.tmp"
  43.         echoc "%item uploaded %t: Moved to Z%item.tmp"
  44.     closetx
  45.         ena -gt
  46.         return
  47. badmsg:    echoc "Bad message format"
  48. foobar: echoc "File Not Accpeted"
  49.     closetx
  50.     echo "Moving file to backup name"
  51.     :  abort;    **********
  52.     if !dv "!%mv %item Y%item.tmp"
  53.     if dv "!%rename %item Y%item.tmp"
  54.         echoc "File Rejected: %item moved to Y%item.tmp"
  55.         ena -gt
  56.         return
  57.