FIX: using the new modified instead of date in the HTTP scheme

Oldes · Oldes · commit ea7b6de657d8 · 2024-07-14T00:51:45.000+02:00
diff --git a/src/mezz/prot-http.reb b/src/mezz/prot-http.reb
@@ -318,7 +318,7 @@ do-request: func [
 	]
 	port/state/state: 'doing-request
 	info/headers: info/response-line: info/status-code: port/data:
-	info/size: info/date: info/name: none
+	info/size: info/modified: info/name: none
 
 	write port/state/connection make-http-request :spec
 ]
@@ -429,7 +429,7 @@ check-response: func [port /local conn res headers d1 d2 line info state awake s
 			select headers 'date
 		][
 			; allow invalid date, but ignore it on error
-			try [info/date: to-date/utc date]
+			try [info/modified: to-date/utc date]
 		]
 		remove/part conn/data d2
 		state/state: 'reading-data

Original file line number	Diff line number	Diff line change
`@@ -318,7 +318,7 @@ do-request: func [`
`318`	`318`	`]`
`319`	`319`	`port/state/state: 'doing-request`
`320`	`320`	`info/headers: info/response-line: info/status-code: port/data:`
`321`		`- info/size: info/date: info/name: none`
	`321`	`+ info/size: info/modified: info/name: none`
`322`	`322`
`323`	`323`	`write port/state/connection make-http-request :spec`
`324`	`324`	`]`
`@@ -429,7 +429,7 @@ check-response: func [port /local conn res headers d1 d2 line info state awake s`
`429`	`429`	`select headers 'date`
`430`	`430`	`][`
`431`	`431`	`; allow invalid date, but ignore it on error`
`432`		`- try [info/date: to-date/utc date]`
	`432`	`+ try [info/modified: to-date/utc date]`
`433`	`433`	`]`
`434`	`434`	`remove/part conn/data d2`
`435`	`435`	`state/state: 'reading-data`