WebGate

Check-in [c1e1794f45]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed serialization context customization in the wrong place
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c1e1794f4518c1851fd366d8234af3ae8a98959e
User & Date: murphy 2013-06-02 15:52:06
Context
2013-11-24
22:17
Optional direct HTTP support using soup check-in: 11d7807ffd user: murphy tags: trunk
2013-06-02
15:52
Removed serialization context customization in the wrong place check-in: c1e1794f45 user: murphy tags: trunk
15:19
The parameters table should not be part of the serialization context check-in: 853b10e568 user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to webgate-core.scm.

470
471
472
473
474
475
476


477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
	  405 "The access method used to request the document is not supported."
	  #:headers
	  (list
	   (cons "Allow" (string-join (handled-request-methods) ", "))))))
       (cond
	((resource-handler path)
	 => (lambda (proc)


	      (current-resource-context
	       (%make-resource-context
		getenv method path))
	      (current-serialization-context
	       (make-serialization-context
		(current-input-port) input-port
		(current-output-port) output-port
		(current-error-port)
		(current-resource-context) getenv))
	      (with-limited-continuation
	       (cut proc parameters))))
	(else
	 (make-error-response
	  404 "The requested resource was not found by the server.")))
       (make-response 204 '()))))
   output-port))







>
>
|
|
<
<
<
<
<
<
<
<
|





470
471
472
473
474
475
476
477
478
479
480








481
482
483
484
485
486
	  405 "The access method used to request the document is not supported."
	  #:headers
	  (list
	   (cons "Allow" (string-join (handled-request-methods) ", "))))))
       (cond
	((resource-handler path)
	 => (lambda (proc)
	      (with-limited-continuation
	       (lambda ()
		 (current-resource-context
		  (%make-resource-context getenv method path))








		 (proc parameters)))))
	(else
	 (make-error-response
	  404 "The requested resource was not found by the server.")))
       (make-response 204 '()))))
   output-port))

Changes to webgate.scm.

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
   (define-resource resource-handler extend-procedure procedure-data)
   handle-query-parameters
   handle-request)
  (import
   scheme chicken
   srfi-1 srfi-4 srfi-13 srfi-18 srfi-69 srfi-99
   data-structures ports extras lolevel irregex
   protobuf-generic suspension webgate-utils)
  (include
   "webgate-core.scm"))

(module webgate-suspend
  (current-suspension-key
   suspended
   send/suspend)







|







72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
   (define-resource resource-handler extend-procedure procedure-data)
   handle-query-parameters
   handle-request)
  (import
   scheme chicken
   srfi-1 srfi-4 srfi-13 srfi-18 srfi-69 srfi-99
   data-structures ports extras lolevel irregex
   suspension webgate-utils)
  (include
   "webgate-core.scm"))

(module webgate-suspend
  (current-suspension-key
   suspended
   send/suspend)