home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / ZCM_SCRP.ZIP / GEUPL.T < prev    next >
Encoding:
Text File  |  1989-11-21  |  4.4 KB  |  148 lines
  1. :: Rev 4-24-89
  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:library_number displayed_page          %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.     echo "Control File = %item"
  18.     on !c goto foox
  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 echo "NO FILE"; return
  33.     split s1 "     "
  34.     echoc "To: %z0"
  35.         put "%ldel\336m%z0\r"
  36.     split s1 ":" "     "
  37.     :: wait
  38.     :: echoc "Choice: %z1"
  39.     :: put "%ldel\336%z1\r"
  40.         wait
  41.         pat 1 "%z2"
  42.         pat 2 "%z0"
  43.         put "%ldel\336\&5\r"
  44.     pat 4 "-----"
  45.         wait -f30
  46.         if !4 goto foobar
  47.         put "%ldel\336%s0\r"             : name
  48.         pat 3c "choose another."
  49.         wait -f20
  50.         if 3 put "%ldel\336%s0.%d\r";  wait -f20
  51.         if !4 goto foobar
  52.         put "%ldel\336%s2\r"             : short desc
  53.         pg62; pp300; if !dP ena -p
  54.         if dP ena -r
  55.     pat 4 "to save."
  56.         wait
  57.         t -gx; ena -t!p; pp250; put "*S\r"
  58.     pat 2 "Keywords"
  59.         wait -f15
  60.         if !2 goto foobar
  61.         put "%ldel\336%s3\r";            : keywords
  62.         pat 3 "Which item"
  63.         wait -f20
  64.         put "3\r"
  65.         pat
  66.         pat 4 "READY FOR INPUT\r\n"
  67.         wait -f50
  68.     if n put "3\r"; wait -f50
  69.     if n goto
  70.     pat 4 "C";  wait -f3    : Force a timeout to flush the network
  71.     p?0
  72.         sx %s4
  73.     if !? echo "Upload FAILED!";  goto foox
  74.     pat
  75.     pat 1 "%pr"
  76.         pat 2 "<Return>"
  77.         wait -f50
  78.         pat 2i "put the file in the Library"
  79.         pat 3i "Put in Library"
  80.         put \r
  81.         wait -f50
  82.         if 1||n goto foox
  83. agn:    put "Y\r"
  84.         pat 4i "Upload failed!"
  85.         pat 5l "Upload Complete"
  86.         wait -f40
  87.     if 2 goback agn
  88.         if !5 goto foobar 
  89.         obey "!mv %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.         obey "!mv %item failed/%item"
  105.         ena -gt
  106.         nolog closetx
  107.         return
  108. foobar: echoc "File Not Accpeted"
  109.         break
  110.         pat 1 "Option:"
  111.         wait -f4
  112.         put "%ldel\336\&2\r"
  113.         wait -f4
  114.         echoc "Moving %item to failed/%item"
  115.         obey "!mv %item failed/%item"
  116.         ena -gt
  117.         nolog closetx
  118.         return
  119. foox:   echoc "Upload failure not related to Control file"
  120.         ena -gt
  121.         nolog closetx
  122.     if !c fail
  123.         return
  124.  
  125.  
  126. ---- Directory Listing ----
  127. total 338
  128. drwxr-xr-x   2 caf      omen          96 May 31 03:45 done
  129. drwxr-xr-x   2 caf      omen          64 May 31 02:44 failed
  130. -rw-r--r--   1 caf      omen         464 May 31 14:50 gezmodem.key
  131. ---- Control File ----
  132. /t/yam/zmodem.zoo
  133. ZMODEM.ZOO
  134. 617:6    616
  135. ZMODEM Specs and Progs
  136. FAST,CRC-32,ZMODEM,NETWORK,PACKET,PROTOCOL,VT102,UNIX,X.25,XMODEM,YMODEM,SCRIPT
  137. ZMODEM protocol description and a nearly complete version of Pro-YAM with
  138. ZMODEM, YMODEM and XMODEM (with Enhanced Data Recovery), Super-Kermit,
  139. Compuserve B protocol, tree structured help processor, TurboLearn Script
  140. Writer, Turbodial, and Review.  Unmodified YAMDEMO may be used without
  141. freeware/shareware restrictions.
  142. ----  end of file at cr-lf pair, previous line -----
  143.  
  144. Note:  Make sure your control files have a CR/LF to end the last line,
  145. and do not have any trailing blank lines.  Also, please note that the
  146. "Longer Description" must be 9 lines or less.
  147.  
  148.