kaiser185

:- http_dispatch:http_handler(/, user:say_hi, []).
:- http_dispatch:http_handler(root(sam), user:say_hi_sam, []). %root(sam) -> GET -> <addr>/sam

say_hi(_Request) :-					% (3)
	http_server::say_hi(_Request).

say_hi_sam(_Request) :-
	http_server::say_hi_sam(_Request).

:- object(http_server).

kaiser185

:- use_module(library(http/thread_httpd)).
:- use_module(library(http/http_dispatch)).

:- http_handler(root(sam), say_hi, []).		% (1)

server(Port) :-						% (2)
        http_server(http_dispatch, [port(Port)]).

say_hi(_Request) :-					% (3)
        format('Content-type: text/plain~n~n'),