[clisp-list] Re[2]: HTTP get test

[Arseny S. <am...@ic...>]

Hello Karsten,

Tuesday, March 12, 2002, 9:59:53 AM, you wrote:

Karsten> could you share the http-getter with us so that I can test the IPV6 mod on
Karsten> Cygwin?

That's it. I don't khow how "testful" is it in this case. IP address
and HTTP address have to be splitted before use. I mean if you usually
go http://www.zzz.com/index.html, you should use
"www.zzz.com" as server and "/index.html" as address. "http://"
goes to trash can.

=======
(defun bk(n)
 (loop for i from 1 to n do (princ #\Backspace)))

(defun http-get(server address &optional datasink)
 (let ((got 0)(getstream (socket-connect 80 server)))
  (if getstream
   (progn
    (format t "Connected to ~A. Lokin around" server)
    (format getstream "GET ~A~%" address)
    (loop with line = nil
          do (setf line (read-line getstream nil nil))
          while line
          do (format (if datasink datasink t) "~A~%" line)
             (incf got (+ (length line) 1))
             (when datasink
               (bk 12)
               (format t "~6,'0D bytes" got)))
    (format t "~%Got ~A : ~D bytes from ~A~%" address got getstream)
    (close getstream))
  (format t  "Cannot connect to ~A~%" server))))

(http-get "192.168.1.1" "/vp/index.html")
=======


-- 
Best regards,
 Arseny                            mailto:am...@ic...