|
Chris@0
|
1 /* $Id$
|
|
Chris@0
|
2
|
|
Chris@0
|
3 Part of SWI-Prolog
|
|
Chris@0
|
4
|
|
Chris@0
|
5 Author: Jan Wielemaker
|
|
Chris@0
|
6 E-mail: wielemak@science.uva.nl
|
|
Chris@0
|
7 WWW: http://www.swi-prolog.org
|
|
Chris@0
|
8 Copyright (C): 1985-2005, University of Amsterdam
|
|
Chris@0
|
9
|
|
Chris@0
|
10 This program is free software; you can redistribute it and/or
|
|
Chris@0
|
11 modify it under the terms of the GNU General Public License
|
|
Chris@0
|
12 as published by the Free Software Foundation; either version 2
|
|
Chris@0
|
13 of the License, or (at your option) any later version.
|
|
Chris@0
|
14
|
|
Chris@0
|
15 This program is distributed in the hope that it will be useful,
|
|
Chris@0
|
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Chris@0
|
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Chris@0
|
18 GNU General Public License for more details.
|
|
Chris@0
|
19
|
|
Chris@0
|
20 You should have received a copy of the GNU Lesser General Public
|
|
Chris@0
|
21 License along with this library; if not, write to the Free Software
|
|
Chris@0
|
22 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
Chris@0
|
23
|
|
Chris@0
|
24 As a special exception, if you link this library with other files,
|
|
Chris@0
|
25 compiled with a Free Software compiler, to produce an executable, this
|
|
Chris@0
|
26 library does not by itself cause the resulting executable to be covered
|
|
Chris@0
|
27 by the GNU General Public License. This exception does not however
|
|
Chris@0
|
28 invalidate any other reasons why the executable file might be covered by
|
|
Chris@0
|
29 the GNU General Public License.
|
|
Chris@0
|
30 */
|
|
Chris@0
|
31
|
|
Chris@0
|
32 :- module(rdf_jrn_export, []).
|
|
Chris@0
|
33 :- use_module(library('semweb/rdf_persistency')).
|
|
Chris@0
|
34 :- use_module(user_db).
|
|
Chris@0
|
35 :- use_module(http_admin).
|
|
Chris@0
|
36 :- use_module(http_user).
|
|
Chris@0
|
37 :- use_module(library('http/http_parameters')).
|
|
Chris@0
|
38 :- use_module(library('http/mimetype')).
|
|
Chris@0
|
39 :- use_module(library('http/http_dispatch')).
|
|
Chris@0
|
40
|
|
Chris@0
|
41 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
Chris@0
|
42 This module exports the journal files defined in rdf_persistency. This
|
|
Chris@0
|
43 is will be used to synchronise servers.
|
|
Chris@0
|
44 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
|
|
Chris@0
|
45
|
|
Chris@0
|
46 :- http_handler('/SeRQL/list_journals', list_journals, []).
|
|
Chris@0
|
47 :- http_handler('/SeRQL/journal', journal, []).
|
|
Chris@0
|
48
|
|
Chris@0
|
49 %% list_journals
|
|
Chris@0
|
50 %
|
|
Chris@0
|
51 % HTTP handler to list the available journals from the persistent
|
|
Chris@0
|
52 % store.
|
|
Chris@0
|
53
|
|
Chris@0
|
54 list_journals(_Request) :- !,
|
|
Chris@0
|
55 authorized(read(default, list_journals)),
|
|
Chris@0
|
56 format('Content-type: text/xml~n~n'),
|
|
Chris@0
|
57 format('<journals>~n'),
|
|
Chris@0
|
58 forall(rdf_journal_file(DB, _File),
|
|
Chris@0
|
59 format(' <journal db="~w"/>~n', [DB])),
|
|
Chris@0
|
60 format('</journals>~n').
|
|
Chris@0
|
61
|
|
Chris@0
|
62 %% journal
|
|
Chris@0
|
63 %
|
|
Chris@0
|
64 % HTTP handler that serves the journal for an RDF named graph.
|
|
Chris@0
|
65
|
|
Chris@0
|
66 journal(Request) :- !,
|
|
Chris@0
|
67 http_parameters(Request,
|
|
Chris@0
|
68 [ 'DB'(DB, [])
|
|
Chris@0
|
69 ],
|
|
Chris@0
|
70 [
|
|
Chris@0
|
71 ]),
|
|
Chris@0
|
72 authorized(read(DB, read_journal)),
|
|
Chris@0
|
73 rdf_journal_file(DB, Path),
|
|
Chris@0
|
74 throw(http_reply(file(text/'x-prolog', Path))).
|
