comparison chord/urispace/urispace.pl @ 27:d95e683fbd35 tip

Enable CORS on urispace redirects as well

 :- module(urispace,[init/0]).
 
-
 :- use_module(library('http/thread_httpd')).
+:- use_module(library('http/http_cors')).
 :- use_module(library('semweb/rdf_db')).
 :- use_module(log).
 :- use_module(chord_parser).
 
 :- style_check(-discontiguous).
 
+:- set_setting_default(http:cors, [*]).
+
+
 server(Port, Options) :-
         http_server(reply,[ port(Port),timeout(20)| Options]).
-
-
 
 
 namespace('http://dbtune.org/chord').
 
 /**

  */
 reply(Request) :-
 	member(path(Path),Request),
 	atom_concat(SymbolT,'.rdf',Path),
 	atom_concat('/',Symbol,SymbolT),
+        cors_enable,
 	!,
 	(parse(Symbol,RDF) ->
 		(
 		current_output(S),
 		set_stream(S,encoding(utf8)),

 	member(accept(AcceptHeader),Request),
 	log:log('Accept header: ~w ',[AcceptHeader]),
 	accept_png(AcceptHeader),
 	!,
 	atom_concat('/',Symbol,Path),
+        cors_enable,
 	(parse(Symbol,RDF) ->
 		(
 		member(rdf(_,'http://xmlns.com/foaf/0.1/depiction',Pic),RDF),
 		throw(http_reply(see_other(Pic),[])));
 		(

 	accept_rdf(AcceptHeader),
 	!,
 	namespace(NS),
 	format(atom(Redirect),'~w~w.rdf',[NS,Path]),
 	log:log('Sending a 303 towards ~w',Redirect),
+        cors_enable,
 	throw(http_reply(see_other(Redirect),[])).
 
 accept_rdf('application/rdf+xml').
 accept_rdf('text/xml').
 accept_rdf(AcceptHeader) :-

         member(path(Path),Request),
         !,
         html(Html),namespace(Namespace),
 	format(atom(Redirect),'~w~w~w',[Html,Namespace,Path]),
 	log:log('Sending a 303 towards ~w',Redirect),
+        cors_enable,
         throw(http_reply(see_other(Redirect),[])).
 
 port(1111).
 init :- 
         port(P),