21 lines
548 B
Perl
21 lines
548 B
Perl
|
:- use_module(library(http/thread_httpd)).
|
||
|
|
:- use_module(library(http/http_parameters)).
|
||
|
|
:- use_module(library(http/http_dispatch)).
|
||
|
|
:- use_module(library(http/http_error)).
|
||
|
|
:- use_module(library(http/html_write)).
|
||
|
|
:- use_module(library(http/http_pwp)).
|
||
|
|
|
||
|
|
:- prolog_load_context(directory, Dir),
|
||
|
|
asserta(user:file_search_path(http_demo, Dir)).
|
||
|
|
|
||
|
|
user:file_search_path(pwp_demo, http_demo(pwp)).
|
||
|
|
|
||
|
|
:- http_handler(root(.),
|
||
|
|
pwp_handler([path_alias(pwp_demo), view(true)]),
|
||
|
|
[prefix]).
|
||
|
|
|
||
|
|
server(Port) :-
|
||
|
|
http_server(http_dispatch, [port(Port)]).
|
||
|
|
|
||
|
|
|