home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SOURC35D.ZIP / 1FILEUP.RS next >
Encoding:
Text File  |  1992-05-18  |  1.5 KB  |  72 lines
  1. TITLE "Upload ONE (1) file to WC! v3.5"
  2. ;
  3. ;  Author  : Richard Campbell
  4. ;  Written : 5-16-92
  5. ;  Version : 1.1
  6. ;  Revised : 5-18-92
  7. ;
  8. PARAMETER 1 "Enter file name (less .ZIP extension)"
  9. PARAMETER 2 "Enter file description"
  10. ENDPARAMS
  11.    
  12.    WHEN "-PAUSE-" SEND "|"
  13.    WHEN "CONTINUE" SEND "|"
  14.  
  15.    ; Make sure we are at the file menu.
  16.    VENUE FILE
  17.  
  18.    ; Open capture file.  optional: [OVERWRITE/APPEND]
  19.    CAPTURE "1FILEUP.CAP" APPEND
  20.    MESSAGE "Capturing file upload script"
  21.  
  22.    SEND "U|"
  23.    ; Parameter used for file name.
  24.    SEND "%P1%.ZIP|"
  25.  
  26.    TIMEOUT 10
  27.    WHEN "already exists" GOTO ERROR
  28.    WHEN "password protect" SEND "|"
  29.  
  30.    ; Parameter used for file description
  31.    WHEN "Description?" SEND "%P2%|"
  32.  
  33.    WHEN "detailed description" SEND "|"
  34.    WHEN "file #2" SEND "|"
  35.    WHEN "[A]bort upload," SEND "C|"
  36.  
  37.    WAITFOR "upload now." FAILURE GOTO GOODBYE
  38.    UPLOAD "C:\ROBO\GET\%P1%.ZIP" USING ZMODEM
  39.  
  40. :GOODBYE
  41.    WHEN "-PAUSE-" SEND "|"
  42.    WHEN "CONTINUE" SEND "|"
  43.    WHEN "[ENTER]" SEND "|"
  44.     
  45.    ; Find our way back to the file menu.
  46.    VENUE FILE
  47.     
  48.    ; Close the capture file.
  49.     CLOSE
  50.  
  51. EXIT 0
  52.  
  53. :ERROR
  54.    ; Send error message to log
  55.    MESSAGE "Sorry, this file is a duplicate"
  56.       
  57.    ; Clear all the watches
  58.    CLEAR
  59.  
  60.    WHEN "file #1" SEND "|"
  61.    WAITFOR "[A]bort upload," FAILURE GOTO GOODBYE
  62.    SEND "A|"
  63.  
  64.    ; Go back to File Menu prompt
  65.    VENUE FILE
  66.    
  67.    ; Close the capture file.
  68.    CLOSE
  69. EXIT 1
  70.  
  71.    ;end of file
  72.