home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / BIXFUPL.T < prev    next >
Text File  |  1991-10-02  |  2KB  |  83 lines
  1. :: bixupl.t Rev 9-12-91
  2. ::  <<< a HACK to allow the use of CompuServe .key files for BIX >>>
  3. :: Control file fields, explanation, variable name:
  4. :: yamix.Q     /u/t/yam/yam386ix.Q /u/t/yam/yam386ix.key bin IBM.DOS APPLICATION
  5. :: BIX name    local pathname     key file pathname     typ area    subarea
  6. :: %fname    %pathname       %keypath        %typ %area   %subarea
  7. ::
  8. :: All fields must be set except for optional subarea
  9. :: "typ" field not used yet
  10. :: Not much error correction - just close files.
  11.  
  12.     :: Get pathnames etc. from control file.
  13.     set s0 ""
  14.     open -!tg %item; grab s0
  15.     echoc "bixfupl.t: processing %item"
  16.     while "t&&!%s0" grab s0
  17.     set ifs "     "            : split on space or tab
  18.     split s0
  19.     nolog closetx
  20.     sets fname %z0
  21.     sets pathname %z1
  22.     sets keypath %z2
  23.     sets typ %z3
  24.     sets area %z4
  25.     sets subarea %z5
  26.     if !%area goto badspec
  27.     echo "%fname %pathname %keypath %typ %area %subarea"
  28.  
  29.     on !c o  fail
  30.  
  31.     :: join listings if not already, set area, [subarea]
  32.     pat
  33.     pat 1 "]:"
  34.     put "join listings\r"
  35.     wait
  36.     put "area %area\r"
  37.     wait
  38.     if %subarea put "subarea %subarea\r" wait
  39.     pat 1c "only ASCII text?" "n\r"
  40.     pat 2 "send using ZMODEM"
  41.     pat 3 "File already exists:"
  42.     put "send %fname\r"
  43.     wait
  44.     if 3 goto failed
  45.  
  46.     :: Send file with ZMODEM.  Window size set in bixXX directory entry
  47.     pe0
  48.     sz %pathname
  49.     if e goto failed
  50.       pat 1 "Transfer complete"
  51.     wait
  52.     if !1 goto failed
  53.  
  54.     :: Upload description, paced with > character
  55.     pg62; ena -p
  56.     open %keypath
  57. next:    grab s0
  58.     if "t&&!ps0,/exit" put "%s0\r" goback next
  59.     grab s0;  sets s1 "%s0"        :: keywords
  60.     nolog closetx
  61.     dis -p
  62.     put ".\r"
  63.     pat 1 "enter keywords"
  64.     wait
  65.     trs s1 " " "\r"        :: Change comma sep to separate lines
  66.     putv s1
  67.     put "\r.\r"
  68.     pat 1 "]:"
  69.     wait
  70.  
  71.     if !dv  "!%mv %item bixupl/done"
  72.     if dv "!%rename %item [.bixupl.done]%item"
  73.     echoc "bixfupl.t finished with %item"
  74.     return
  75.  
  76. badspec: closetx
  77.     echoc "bixfupl.t: illegal syntax in %item"
  78.     return
  79.  
  80. failed:    closetx
  81.     echoc "bixfupl.t: Upload of %item not accomplished"
  82.     return
  83.