home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / uscan10 / upload.dor < prev    next >
Text File  |  1992-03-30  |  2KB  |  37 lines
  1. IF *P >= 500 THEN GOTO OK   ; Co-sysops or sysops with a security level of 500
  2.                             ; or more may skip U-Scan.
  3.  
  4. WRITE DORINFO1.DEF          ; U-Scan requires this to get some user info.
  5. CLS
  6. SEND Faliure to upload the filename given to Uscan will result in no more
  7. SEND downloading this call! ; Let them know what they're in for.
  8. CD D:\QBBS\
  9. EXEC USCAN.TTP &1           ; U-Scan needs to know the path QBBS will place
  10.                             ; the uploaded file (&1 para from menu).
  11. IF *C = 0 THEN GOTO OK      ; If errorlevel 0, Proceed with upload.
  12. IF *C = 1 THEN EXIT         ; If errorlevel 1, User quitted, or matches
  13.                             ; were found.
  14. :OK
  15. SEND
  16. MENU 33 &1                  ; &1 is the path parameter passed from calling menu.
  17. IF *P >= 500 THEN EXIT      ; Don't check filename for users not using U-Scan.
  18.  
  19. ; EXEC RATIO.TTP ╱T ╱R 10   ; Run ratio.ttp with correct params. USE IF RUNNING
  20. ; DLIMIT *C                 ; Reset users download limit.        RATIO SYSTEM.
  21.  
  22. EXEC USCAN.TTP check        ; Run U-Scan a second time to check if they uploaded
  23.                             ; what they said they would. Parameter 'check'.
  24. IF *C = 0 THEN EXIT         ; If errorlevel 0, All's okay.. they were honest!
  25. IF *C = 1 THEN GOTO NORTY   ; If errorlevel 1, They uploaded something different.
  26.  
  27. :NORTY                      ; Make the lying $!*(£ ^% suffer!!
  28. DLIMIT 000                  ; No more downloading for this call.
  29. SEND
  30. SEND **********************************************
  31. SEND
  32. SEND You didnt upload the filename given to U-Scan!
  33. SEND No further downloading may be made this call.
  34. SEND
  35. SEND **********************************************
  36. EXIT
  37.