home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / GEUPL.T < prev    next >
Text File  |  1991-09-04  |  5KB  |  156 lines
  1. :: Rev 9-04-91
  2. :: This one is a file named "geupl.t" and it goes in %lib
  3. ::
  4. :: file for uploads looks like...
  5. :: @immediate command(s) (optional, as many as needed)
  6. :: local filename                              %s4
  7. :: filename                                    %s0
  8. :: page;menu:menu:library_number               %s1
  9. :: short descripuion                           %s2
  10. :: keywords                                    %s3
  11. :: long description
  12. ::
  13. :: please note
  14. :: 1) the system-wide prompt character for this script is in "pr".
  15. :: 2) the line delete character used in this file is in "ldel".
  16. ::
  17.     echoc "Control File = %item"
  18.     on !c goto fooxc
  19.         pattern
  20.     pat 1 "%pr"
  21.         put "\r"
  22.         wait
  23.         if !1 goto foox
  24.         open -!tg %item
  25. cloop:    grab s4
  26.     ss s4 "^(@)(.*)"
  27.     if "t&&%z1" echof "Command Line: %z2"; obey "%z2"; goback cloop
  28.     grab s0; grab s1; grab s2; grab s3
  29.         if !t echoc "%item Short file! ";  goto fubar
  30.     if %s0>24 goto fubar
  31.     if %s2>35 goto fubar
  32.     set s5 ""; obey "if f%s4 set s5 OK"; if !%s5 echoc "NO FILE"; return
  33.     split s1 ":" ":"
  34.     echoc "To: %z0"
  35.         put "%ldel\336m%z0\r"        : move to initial page 615:3
  36.     wait
  37.     echoc "Choice: %z1"
  38.     put "%ldel\336%z1\r"
  39.         wait
  40.     put "%ldel\336%z2\r"
  41.         wait
  42.         put "%ldel\336\&5\r"        : menu choice 5 - upload file
  43.     pat 4 "-----"
  44.         wait -f30
  45.         if !4 goto foobar
  46.         put "%ldel\336%s0\r"             : name
  47.         pat 3c "choose another."
  48.         wait -f20
  49.         if 3 put "%ldel\336%s0.%d\r";  wait -f20
  50.         if !4 goto foobar
  51.         put "%ldel\336%s2\r"             : short desc
  52.         pg62; pp300; if !dP ena -p
  53.         if dP ena -r
  54.     pat 4 "to save."
  55.         wait
  56.         t -gx; ena -t!p; pp250; put "*S\r"
  57.     pat 2 "Keywords"
  58.         wait -f15
  59.         if !2 goto foobar
  60.         put "%ldel\336%s3\r";            : keywords
  61.         pat 3 "Which item"
  62.         wait -f20
  63.         put "3\r"
  64.         pat
  65.         pat 4 "READY FOR INPUT\r\n"
  66.         wait -f50
  67.     if n put "3\r"; wait -f50
  68.     if n goto
  69.     pat 4 "C";  wait -f3    : Force a timeout to flush the network
  70.     p?0
  71.         sx %s4
  72.     if !? echo "Upload FAILED!";  goto foox
  73.     pat
  74.     pat 1 "%pr"
  75.         pat 2 "<Return>"
  76.         wait -f50
  77.         pat 2i "put the file in the Library"
  78.         pat 3i "Put in Library"
  79.         put \r
  80.         wait -f50
  81.         if n echo "TIMEOUT waiting for <put> question"; goto foox
  82. agn:    put "Y\r"
  83.         pat 4i "Upload failed!"
  84.         pat 5l "Upload Complete"
  85.         wait -f90
  86.     if 2 goback agn
  87.         if !5 goto foobar 
  88.         if !dv "!%mv %item done/%item"
  89.         if dv "!%rename %item [.done]%item"
  90.         echoc "File Uploaded: %item moved to done/%item"
  91.         wait -f40        : wait for menu to reappear
  92.         ena -gt
  93.         return
  94. dupli:  echoc "Duplicate File"
  95.         pattern
  96.         pat 4 "\r\n%pr"
  97.         pat 1 "1%pr"
  98.         pat 2 "P 615%pr"
  99.         pat 3 "P 616%pr"
  100.         put "\r" wait -f20
  101.         while !2 put "*x\r" wait -f20
  102.         put "m%s1\r"  wait -f30
  103.         echoc "Moving %item to failed/%item"
  104.         if !dv  "!%mv %item failed/%item"
  105.         if !dv  "!%rename %item [.failed]%item"
  106.         ena -gt
  107.         nolog closetx
  108.         return
  109. foobar: echoc "File Not Accpeted"
  110.         break
  111.         pat 1 "Option:"
  112.         wait -f4
  113.         put "%ldel\336\&2\r"
  114.         wait -f4
  115.         echoc "Moving %item to failed/%item"
  116.         if !dv "!%mv %item failed/%item"
  117.         if dv "!%rename %item [.failed]%item"
  118.         ena -gt
  119.         nolog closetx
  120.         return
  121. fooxc:    echoc "Carrier Lost"
  122. foox:   echoc "Upload failure not related to Control file"
  123.         ena -gt
  124.         nolog closetx
  125.     if !c fail
  126.         return
  127.  
  128.  
  129. ---- Directory Listing ----
  130. total 338
  131. drwxr-xr-x   2 caf      omen          96 May 31 03:45 done
  132. drwxr-xr-x   2 caf      omen          64 May 31 02:44 failed
  133. -rw-r--r--   1 caf      omen         464 May 31 14:50 gezmodem.key
  134. ---- Control File ----
  135. /u/t/yam/dsz.zip
  136. dsz0416.zip
  137. 615:3:8:6
  138. X/Y/ZMODEM Transfer PRGM
  139. zmodem,ymodem,compression,background,DESQview,xmodem,crc-32,BBS,dsz,pcAnywhere
  140. Classic stand-alone shareware sends or receives files using ZMODEM-90(Tm),
  141. True YMODEM(Tm), or XMODEM.  "Talk" command (term emulation) for automatic
  142. ZMODEM downloads.  Provides fast background transfers in small windows.
  143. MobyTurbo(Tm) gives fastest GEnie downloads.  Table driven CRC-32, ZMODEM
  144. compression, Crash Recovery(Tm), advanced file management.  See DSZNEW.ARC
  145. for details: Apr 16 91 Improves "Handshake Slow".  Apr 4 91 vsn supports
  146. 115200 bps, enhancements for VMS users.
  147. ----  end of file at cr-lf pair, previous line -----
  148.  
  149. The cryptic 615:3:8:6 relates to page 615:3, menu choice 8 (set section)
  150. and 6 (section number).
  151.  
  152. Note:  Make sure your control files have a CR/LF to end the last line,
  153. and do not have any trailing blank lines.  Also, please note that the
  154. "Longer Description" must be 9 lines or less.
  155.  
  156.