openid_example.pl and authentication, and added JSON mime types

openid_example.pl

@@ -34,6 +34,7 @@
 :- use_module(library(http/thread_httpd)).
 :- use_module(library(http/html_write)).
 :- use_module(library(http/http_error)).
+:- use_module(library(pprint)).
 
 http:location(openid, root(openid), []).
 
@@ -161,8 +162,8 @@
 		 *		DEBUG		*
 		 *******************************/
 
-:- http_handler(root(.), print_request, [prefix]).
+% :- http_handler(root(.), print_request, [prefix]).
 
 print_request(Request) :-
 	format('Content-type: text/plain~n~n'),
-	pp(Request).
+	print_term(Request).

web.txt

@@ -1768,6 +1768,21 @@ handle_api(Request) :-
 	reply_json_dict(Solution).
 ----
 
+There's one complication here. By default, the +http_read_json_dict/2+ is pretty strict about mime type, only accepting +application/json+ .
+
+The problem is that actual browsers send various types. You can expand the list of types accepted with  the multifile +json_type/1+ .
+
+----
+:- use_module(library(http/http_json)).
+
+:- multifile http_json/1.
+
+http_json:json_type('application/x-javascript').
+http_json:json_type('text/javascript').
+http_json:json_type('text/x-javascript').
+http_json:json_type('text/x-json').
+----
+
 Communicating With The Server
 -----------------------------