mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Implement basic HTTP status checking in fetch method.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-04-17 21:37:21 +02:00
parent cb94993064
commit 2a6ad888d0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utils/archive.lisp
View File

@ -29,8 +29,12 @@
should-close
status)
(drakma:http-request url :force-binary t :want-stream t)
;; TODO: check the status-code
(declare (ignore status-code uri stream status))
(declare (ignore uri stream))
(when (not (= 200 status-code))
(log-message :fatal "HTTP Error ~a: ~a" status-code status)
(error status))
(let* ((source-stream (flexi-streams:flexi-stream-stream http-stream))
(content-length
(parse-integer (cdr (assoc :content-length headers)))))