FIX: HTTP redirection does not handle correctly locations with url-encoded content

resolves: #26

Author: Oldes

src/mezz/prot-http.reb

@@ -275,9 +275,10 @@ do-request: func [
 	info/headers: info/response-line: info/response-parsed: port/data:
 	info/size: info/date: info/name: none
 
-	;sys/log/info 'HTTP ["Request:^[[22m" spec/method spec/host spec/path]
+	;sys/log/info 'HTTP ["Request:^[[22m" spec/method spec/host mold spec/path]
 
-	write port/state/connection make-http-request spec/method enhex as file! any [spec/path %/] spec/headers spec/content
+	;write port/state/connection make-http-request spec/method enhex as file! any [spec/path %/] spec/headers spec/content
+	write port/state/connection make-http-request spec/method any [spec/path %/] spec/headers spec/content
 ]
 parse-write-dialect: func [port block /local spec][
 	spec: port/spec
@@ -477,7 +478,7 @@ do-redirect: func [port [port!] new-uri [url! string! file!] /local spec state h
 	state: port/state
 	port/data: none
 
-	new-uri: as url! new-uri
+	;new-uri: as url! new-uri
 
 	sys/log/info 'HTTP ["Redirect to:^[[m" mold new-uri]
 
@@ -501,7 +502,7 @@ do-redirect: func [port [port!] new-uri [url! string! file!] /local spec state h
 	unless select new-uri 'port-id [
 		switch new-uri/scheme [
 			'https [append new-uri [port-id: 443]]
-			'http [append new-uri [port-id: 80]]
+			'http  [append new-uri [port-id: 80 ]]
 		]
 	]
 	new-uri: construct/with new-uri port/scheme/spec

src/mezz/prot-tls.reb

@@ -1794,7 +1794,7 @@ TLS-awake: function [event [event!]][
 				]
 				TLS-port/data: TLS-port/state/port-data
 				binary/init TLS-port/state/in none ; resets input buffer
-				?? TLS-port/state/protocol
+				;?? TLS-port/state/protocol
 				either 'APPLICATION = TLS-port/state/protocol [
 					;print "------------------"
 					;- report that we have data to higher layer