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

Survive network errors checking for a readme

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-25 16:08:34 -04:00
parent b30a402c5c
commit 23c2c93164
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/site.rkt
View File

@ -12,6 +12,7 @@
(require racket/string) (require racket/string)
(require racket/port) (require racket/port)
(require (only-in racket/list filter-map)) (require (only-in racket/list filter-map))
(require (only-in racket/exn exn->string))
(require net/url) (require net/url)
(require net/uri-codec) (require net/uri-codec)
(require web-server/servlet) (require web-server/servlet)
@ -1269,9 +1270,16 @@
(hash) (hash)
;; It's probably a github-like repo. Check for a readme. ;; It's probably a github-like repo. Check for a readme.
(let ((contents (let ((contents
(with-handlers ([exn:fail:network?
(lambda (e)
(log-warning
"Network error retrieving possible readme for ~a:\n~a"
package-name
(exn->string e))
"")])
(port->string (port->string
(get-pure-port (string->url (@ default-version source_url)) (get-pure-port (string->url (@ default-version source_url))
#:redirections 10)))) #:redirections 10)))))
;;(log-info "CONTENTS: ~a === ~a" (@ default-version source_url) contents) ;;(log-info "CONTENTS: ~a === ~a" (@ default-version source_url) contents)
(if (regexp-match? #px"(?i:id=.readme.)" contents) (if (regexp-match? #px"(?i:id=.readme.)" contents)
(let ((readme-url (string-append (@ default-version source_url) "#readme"))) (let ((readme-url (string-append (@ default-version source_url) "#readme")))