cl-ipp

commit 0c030cec93e25d399979bc2cf8a8398f23d2f221
parent 127b2e86a6e7325c899760e996f3d81391e6ee73
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  7 Aug 2013 08:50:00 +0200

works with curl

Diffstat:
M
ipp.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ipp.lisp b/ipp.lisp
@@ -351,7 +351,7 @@
    "curl"
    `("-s"
      ,@ (when request-file
-          `("-d" ,(format nil "@~a" request-file)))
+          `("--data-binary" ,(format nil "@~a" request-file)))
      ,@ (when response-file
           `("-o" ,response-file))
      ,@ (when content-type
@@ -368,7 +368,7 @@
           :response-file response-file
           :content-type "application/ipp")))
 
-#+nil ;; TODO fix Bad Request response
+#+nil
 (let* ((url "http://localhost:631/printers/Virtual_PDF_Printer")
        (ipp::*ipp-client* (make-ipp-client url)))
   (ipp::print-job "request2.dat" "response2.dat" "test.txt" 314 "utf-8" "en" url