suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

When a file is missing the ftp client throws an error, catch it.

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-17 06:38:01 -04:00
parent cc69dfbd71
commit 9608c0f041
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/meta/web/download/mirror-link.rkt
View File

@ -154,10 +154,12 @@ Polling a URL can result in one of four options:
(error 'verify-ftp "bad ftp url: ~a" url)))))
(define port (or port? 21))
(define r
(let ([c (ftp-establish-connection host port "anonymous" "anonymous@")])
(begin0 (ftp-directory-list c path) (ftp-close-connection c))))
(with-handlers ([exn:fail? exn-message])
(let ([c (ftp-establish-connection host port "anonymous" "anonymous@")])
(begin0 (ftp-directory-list c path) (ftp-close-connection c)))))
(cond [(not (and (list? r) (= 1 (length r)) (list? (car r))))
(eprintf "WARNING: failure getting ftp info for ~a\n" url)
(eprintf "WARNING: failure getting ftp info for ~a~a\n"
url (if (string? r) (format " (~a)" r) ""))
#f]
[(not (= 4 (length (car r))))
(eprintf "WARNING: no size for: ~a\n" url)