19 lines
461 B
Prolog
19 lines
461 B
Prolog
:- http_handler(
|
|
root(products),
|
|
products_page,
|
|
[]
|
|
).
|
|
|
|
% POST /products
|
|
products_page(Request) :-
|
|
member(method(post), Request), !,
|
|
http_read_data(Request, Json, []),
|
|
json_to_prolog(Json, product(Name, Price)),
|
|
assert_product(Name, Price),
|
|
reply_json(Json).
|
|
|
|
% GET /products
|
|
products_page(_Request) :-
|
|
bagof(product(Name, Price), product(Name, Price), Products),
|
|
prolog_to_json(Products, Json),
|
|
reply_json(Json, []).
|