CLISP - an ANSI Common Lisp

Email Archive: clisp-devel (read-only)

2000:	_Jan (81)	_Feb (55)	_Mar (459)	_Apr (159)	_May (126)	_Jun (69)	_Jul (48)	_Aug (29)	_Sep (106)	_Oct (76)	_Nov (155)	_Dec (161)
2001:	_Jan (122)	_Feb (150)	_Mar (294)	_Apr (124)	_May (197)	_Jun (266)	_Jul (111)	_Aug (259)	_Sep (163)	_Oct (142)	_Nov (101)	_Dec (86)
2002:	_Jan (187)	_Feb (108)	_Mar (274)	_Apr (157)	_May (346)	_Jun (242)	_Jul (345)	_Aug (187)	_Sep (263)	_Oct (69)	_Nov (30)	_Dec (76)
2003:	_Jan (125)	_Feb (191)	_Mar (87)	_Apr (69)	_May (107)	_Jun (66)	_Jul (112)	_Aug (161)	_Sep (184)	_Oct (137)	_Nov (28)	_Dec (61)
2004:	_Jan (148)	_Feb (99)	_Mar (365)	_Apr (225)	_May (311)	_Jun (204)	_Jul (95)	_Aug (214)	_Sep (256)	_Oct (290)	_Nov (239)	_Dec (152)
2005:	_Jan (253)	_Feb (183)	_Mar (178)	_Apr (88)	_May (175)	_Jun (195)	_Jul (122)	_Aug (81)	_Sep (119)	_Oct (200)	_Nov (110)	_Dec (179)
2006:	_Jan (154)	_Feb (64)	_Mar (55)	_Apr (69)	_May (66)	_Jun (64)	_Jul (80)	_Aug (59)	_Sep (62)	_Oct (90)	_Nov (132)	_Dec (106)
2007:	_Jan (58)	_Feb (51)	_Mar (59)	_Apr (19)	_May (33)	_Jun (52)	_Jul (15)	_Aug (50)	_Sep (41)	_Oct (259)	_Nov (323)	_Dec (136)
2008:	_Jan (205)	_Feb (128)	_Mar (203)	_Apr (126)	_May (307)	_Jun (166)	_Jul (259)	_Aug (181)	_Sep (217)	_Oct (265)	_Nov (256)	_Dec (132)
2009:	_Jan (104)	_Feb (81)	_Mar (27)	_Apr (21)	_May (85)	_Jun (237)	_Jul (243)	_Aug (199)	_Sep (178)	_Oct (151)	_Nov (64)	_Dec (39)
2010:	_Jan (33)	_Feb (146)	_Mar (125)	_Apr (109)	_May (52)	_Jun (135)	_Jul (103)	_Aug (68)	_Sep (99)	_Oct (88)	_Nov (45)	_Dec (56)
2011:	_Jan (19)	_Feb (32)	_Mar (50)	_Apr (105)	_May (46)	_Jun (22)	_Jul (101)	_Aug (80)	_Sep (52)	_Oct (16)	_Nov (10)	_Dec (29)
2012:	_Jan (8)	_Feb (22)	_Mar (17)	_Apr (68)	_May (19)	_Jun (19)	_Jul (12)	_Aug (6)	_Sep (13)	_Oct (5)	_Nov (5)	_Dec (5)
2013:	_Jan (6)	_Feb (4)	_Mar (3)	_Apr (5)	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

open-http

From: Yaroslav Kavenchuk <kavenchuk@je...> - 2005-11-23 09:19

Some offers:

- in proxy function not split user and password, but leave proxy-auth
"user:password" (sorry);
- add base64.lisp from clocc or its derivative;
- change clhs.lisp (need add errors processing):

$ diff -u clhs.lisp.orig clhs.lisp
--- clhs.lisp.orig      Tue Nov 22 19:11:07 2005
+++ clhs.lisp   Wed Nov 23 09:11:25 2005
@@ -131,12 +131,12 @@
   (let* ((host-port-end (position #\/ url :start #2#))
          (port-start (position #\: url :start #2# :end host-port-end))
          (url-host (subseq url #2# (or port-start host-port-end)))
-         (host (if *proxy* (third *proxy*) url-host))
+         (host (if *proxy* (second *proxy*) url-host))
          (url-port (if port-start
                        (parse-integer url :start (1+ port-start)
                                       :end host-port-end)
                        *http-port*))
-         (port (if *proxy* (fourth *proxy*) url-port))
+         (port (if *proxy* (third *proxy*) url-port))
          (path (if *proxy* url
                    (if host-port-end (subseq url host-port-end) "/")))
          (sock (handler-bind ((error (lambda (c)
@@ -148,6 +148,9 @@
                  (socket:socket-connect port host :external-format :dos)))
          status code content-length)
     (format t "connected...") (force-output)
+    (when (and *proxy* (first *proxy*)) ;; proxy-auth
+      (format sock "Proxy-Authorization: Basic ~A~%" ;; may be not
authentic
+              (base64-encode (first *proxy*)))) ;; need vector? Is it work?
     (format sock "GET ~A HTTP/1.0~%User-agent: ~A~%Host: ~A~%Accept:
*/*~%Connection: close~2%" path (lisp-implementation-type) host) ; request
     (write-string (setq status (read-line sock))) (force-output)
     (let* ((pos1 (position #\Space status))


Thanks!

-- 
WBR, Yaroslav Kavenchuk.

Re: open-http

From: Sam Steingold <sds@gn...> - 2005-11-23 17:49

> * Yaroslav Kavenchuk <xnirapuhx@...> [2005-11-23 11:20:38 +0200]:
>
> - in proxy function not split user and password, but leave proxy-auth
> "user:password" (sorry);
> - add base64.lisp from clocc or its derivative;
> - change clhs.lisp (need add errors processing):

done

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
http://www.mideasttruth.com/ http://pmw.org.il/ http://www.palestinefacts.org/
http://www.iris.org.il http://www.memri.org/ http://ffii.org/
Computers are like air conditioners: they don't work with open windows!

Re: open-http

From: Yaroslav Kavenchuk <kavenchuk@tu...> - 2005-11-23 20:11

Sam Steingold wrote:

>>* Yaroslav Kavenchuk <xnirapuhx@...> [2005-11-23 11:20:38 +0200]:
>>
>>- in proxy function not split user and password, but leave proxy-auth
>>"user:password" (sorry);
>>- add base64.lisp from clocc or its derivative;
>>- change clhs.lisp (need add errors processing):
>>    
>>
>
>done
>
>  
>
Many thanks!!!

-- 
WBR, Yaroslav Kavenchuk.

Re: open-http

From: Yaroslav Kavenchuk <kavenchuk@je...> - 2005-11-24 12:04

Sam Steingold wrote:

> done
> 

-       (loop :for line = (read-line sock nil nil) :while sock
+       (loop :for line = (read-line sock nil nil) :while line

Thanks!

-- 
WBR, Yaroslav Kavenchuk.

Re: open-http

From: Yaroslav Kavenchuk <kavenchuk@je...> - 2005-11-24 12:17

> Sam Steingold wrote:
> 
> 
>>done
>>
> 
> 
> -       (loop :for line = (read-line sock nil nil) :while sock
> +       (loop :for line = (read-line sock nil nil) :while line
> 
> Thanks!
> 

And

-       (format sock "Authorization: Basic ~A~%"
+       (format sock "Proxy-Authorization: Basic ~A~%"

Thanks!

-- 
WBR, Yaroslav Kavenchuk.

Re: open-http

From: Yaroslav Kavenchuk <kavenchuk@je...> - 2005-11-24 12:41

build result:

...
connected...HTTP/1.1 200 OK...64,722 bytes
;; SYSTEM::GET-STRING-MAP(#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER
oregon:80>)...1,773 IDs
;;
SYSTEM::ENSURE-IMPNOTES-MAP(#P"C:\\gnu\\home\\src\\clisp\\clisp\\build-full\\data\\Symbol-Table.text")...
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid symbol
"CUSTOM:*DEFAULT-TIME-ZONE*" with id
          "default-tz"
         :
         READ from #<INPUT STRING-INPUT-STREAM>: #<PACKAGE CUSTOM> has
no external symbol with
         name "*DEFAULT-TIME-ZONE*"

WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "http-proxy" for symbol
"EXT:HTTP-PROXY"
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "http-proxy" for symbol
"CUSTOM:*HTTP-PROXY*"
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "base64" for symbol
"EXT:BASE64-ENCODE"
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "base64" for symbol
"EXT:BASE64-DECODE"
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid symbol
"SYS::DYNLOAD-MODULES" with id "mod-dynload":
         INTERN("DYNLOAD-MODULES"): #<PACKAGE SYSTEM> is locked
WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid symbol
"CLOS:MAKE-METHOD-LAMBDA" with id
          "make-method-lambda"
         :
         READ from #<INPUT STRING-INPUT-STREAM>: #<PACKAGE CLOS> has no
external symbol with name
         "MAKE-METHOD-LAMBDA"

538 IDs
"http://www.podval.org/~sds/clisp/impnotes/"


Many thanks!!!

-- 
WBR, Yaroslav Kavenchuk.

Re: open-http

From: Yaroslav Kavenchuk <kavenchuk@je...> - 2005-11-25 09:08

Why

(base64-encode (convert-string-to-bytes (first *http-proxy*)
                                        *http-encoding*))

change to

(convert-string-from-bytes
  (convert-string-to-bytes (first *http-proxy*)
                           *http-encoding*)
  charset:base64)

?

Thanks.

-- 
WBR, Yaroslav Kavenchuk.