Solution: Proxy-Authentication Bug in REBOL/View-Panel

I earlier posted a quick-hack to allow to use the REB-Access through Proxies/Firewalls. But there was another Bug in the patched read-net function that prevents read-net to work through Proxies that want a username and a password for authentication. This is another quick hack to solve this: read-net: func [ {Read a file from the net (web). Update progress bar. Allow abort.} host-name path /progress callfunc port-hand /local port buffer hdr-brk get-data body time data errc size wholepath ][ if error? try [ port: open/direct/binary/no-wait [scheme: 'tcp host: system/schemes/default/proxy/host port-id: system/schemes/default/proxy/port-id] wholepath: rejoin ["http://" host-name path] ] [return none] insert port rejoin [ "GET " wholepath " HTTP/1.0" crlf "User-Agent: REBOL/View " system/version crlf "Accept: */*" crlf "Host: " host-name crlf "Proxy-Authorization: " join "Basic " enbase join system/schemes/default/proxy/user [#":" system/schemes/default/proxy/pass] crlf "Connection: close" crlf crlf ] buffer: make binary! 4000 hdr-brk: rejoin [crlf crlf] size: none errc: 900 get-data: func [port] [ if none? data: copy port [close port return 'break] append buffer data if all [not size body: find/tail buffer hdr-brk] [ parse buffer [ "HTTP" thru " " copy errc [to " " | to newline] (errc: load/all errc) thru "Content-length:" copy size to newline] if errc > 299 [close port return 'break] size: either size [to-integer trim size] [10000] remove/part buffer body buffer: make binary! size + 32 append buffer head body ] if all [size progress] [callfunc size length? buffer] ] dispatch append copy any [port-hand []] [ port :get-data 30 [print "TIMEOUT***********" close port 'break] ] if errc < 300 [return buffer] ] IMPORTANT: If you want to use this function you have to set your default-proxy "host" , port-id , "user" and "pass" parameters. If you do not need proxy-authentication you have to use the function of my earlier post. Experienced readers will easily find the lines I've changed in comparison to the old function. But let's face it - this is an ugly hack, that makes that read-net doesn't work without a proxy (and now authentication) anymore. What someone (at RT?) should do now is to ad the proper tests if a Proxy should be used and then does the connection and request either the old direct way or the new "proxied" way. Heres an outline: 1) Test if a default-proxy is set 2) Test if requested hostname is in he "bypass" default-proxy settings 3) if 1) is false or 2) is true use the old code otherwise use the default-proxy for connection, the whole url in the request and obviously the username and password for proxy-authorization I've think I'll send a feedback to RT and hope they will finally fix this in a nice way. Jochen

Jochen wrote:

> insert port rejoin [ > "GET " wholepath " HTTP/1.0" crlf > "User-Agent: REBOL/View " system/version crlf > "Accept: */*" crlf

UNSCRIBE

On Wed, 27 Sep 2000, you wrote:

> UNSCRIBE