swish/commit
Updated from upstream
author | Jan Wielemaker |
---|---|
Sun Mar 6 12:12:35 2016 +0100 | |
committer | Jan Wielemaker |
Sun Mar 6 12:12:35 2016 +0100 | |
commit | 22db03336061da64551e467708fe1fd893eb29c9 |
tree | abc7edc76ba8ff2f81eaac827aef5acbc84076b5 |
parent | c0a8d65d1238d734669ec2fc5eda0dd16e71b0d2 |
Diff style: patch stat
diff --git a/lib/swish/storage.pl b/lib/swish/storage.pl index 5a9f6a1..fe629c6 100644 --- a/lib/swish/storage.pl +++ b/lib/swish/storage.pl @@ -83,6 +83,9 @@ web_storage(Request) :- option(method(Method), Request), storage(Method, Request). +:- multifile + swish_config:authenticate/2. + storage(get, Request) :- ( swish_config:authenticate(Request, User) -> Options = [user(User)] diff --git a/lib/swish/swish_debug.pl b/lib/swish/swish_debug.pl index 0970bf8..c7b310e 100644 --- a/lib/swish/swish_debug.pl +++ b/lib/swish/swish_debug.pl @@ -78,10 +78,12 @@ stale_module_property(M, pengine_queue, Queue) :- pengines:pengine_queue(Pengine, Queue, _TimeOut, _Time). stale_module_property(M, pengine_pending_queue, Queue) :- pengine_property(Pengine, module(M)), - clause(pengines:output_queue(Pengine, Queue, _Time), true). + member(G, [pengines:output_queue(Pengine, Queue, _Time)]), + call(G). % fool ClioPatria cpack xref stale_module_property(M, thread, Thread) :- pengine_property(Pengine, module(M)), - clause(pengines:pengine_property(Pengine, thread(Thread)), true). + member(G, [pengines:pengine_property(Pengine, thread(Thread))]), + call(G). % fool ClioPatria cpack xref stale_module_property(M, thread_status, Status) :- pengine_property(Pengine, module(M)), pengine_property(Pengine, thread(Thread)),