DOKK / manpages / debian 11 / libgedcom-perl / Gedcom::WebServices.3pm.en
Gedcom::WebServices(3pm) User Contributed Perl Documentation Gedcom::WebServices(3pm)

Gedcom::WebServices - Basic web service routines for Gedcom.pm

Version 1.22 - 15th November 2019

 wget -qO - http://www.example.com/ws/plain/my_family/i9/name

This module provides web service access to a GEDCOM file in conjunction with mod_perl. Using it, A request for information can be made in the form of a URL specifying the GEDCOM file to be used, which information is required and the format in which the information is to be delivered. This information is then returned in the specified format.

There are currently three supported formats:

  • plain - no markup
  • XML
  • JSON

The format of the URLs used to access the web services are:

 $BASEURL/$FORMAT/$GEDCOM/$XREF/requested/information
 $BASEURL/$FORMAT/$GEDCOM?search=search_criteria
The base URL to access the web services.
The format in which to return the results.
The name of the GEDCOM file to use (the extension .ged is assumed).
The xref of the record about which information is required. XREFs can be obtained initially from a search, and subsequently from certain queries.
The information requested. This is in the same format as that taken by the get_value method.
An individual to search for. This is in the same format as that taken by the get_individual method.

 $ wget -qO - 'http://pjcj.sytes.net:8585/ws/plain/royal92?search=elizabeth_ii'
 /ws/plain/royal92/I52
 $ wget -qO - http://pjcj.sytes.net:8585/ws/plain/royal92/I52
 0 @I52@ INDI
 1   NAME Elizabeth_II Alexandra Mary/Windsor/
 1   TITL Queen of England
 1   SEX F
 1   BIRT
 2     DATE 21 APR 1926
 2     PLAC 17 Bruton St.,London,W1,England
 1   FAMS @F14@
 1   FAMC @F12@
 $ wget -qO - http://pjcj.sytes.net:8585/ws/plain/royal92/I52/name
 Elizabeth_II Alexandra Mary /Windsor/
 $ wget -qO - http://pjcj.sytes.net:8585/ws/plain/royal92/I52/birth/date
 21 APR 1926
 $ wget -qO - http://pjcj.sytes.net:8585/ws/plain/royal92/I52/children
 /ws/plain/royal92/I58
 /ws/plain/royal92/I59
 /ws/plain/royal92/I60
 /ws/plain/royal92/I61
 $ wget -qO - http://pjcj.sytes.net:8585/ws/json/royal92/I52/name
 {"name":"Elizabeth_II Alexandra Mary /Windsor/"}
 $ wget -qO - http://pjcj.sytes.net:8585/ws/xml/royal92/I52/name
 <NAME>Elizabeth_II Alexandra Mary /Windsor/</NAME>
 $ wget -qO - http://pjcj.sytes.net:8585/ws/xml/royal92/I52
 <INDI ID="I52">
   <NAME>Elizabeth_II Alexandra Mary/Windsor/</NAME>
   <TITL>Queen of England</TITL>
   <SEX>F</SEX>
   <BIRT>
     <DATE>21 APR 1926</DATE>
     <PLAC>17 Bruton St.,London,W1,England</PLAC>
   </BIRT>
   <FAMS REF="F14"/>
   <FAMC REF="F12"/>
 </INDI>

Add a section similar to the following to your mod_perl config:

 PerlWarn On
 PerlTaintCheck On
 PerlPassEnv GEDCOM_TEST
 <IfDefine GEDCOM_TEST>
     <Perl>
         $Gedcom::TEST = 1;
     </Perl>
 </IfDefine>
 <Perl>
     use Apache::Status;
     $ENV{PATH} = "/bin:/usr/bin";
     delete @ENV{"IFS", "CDPATH", "ENV", "BASH_ENV"};
     $Gedcom::DATA = $Gedcom::ROOT;  # location of data stored on server
     use lib "$Gedcom::ROOT/blib/lib";
     use Gedcom::WebServices;
     my $handlers =
     [ qw
       (
           plain
           xml
           json
       )
     ];
     eval Gedcom::WebServices::_set_handlers($handlers);
     # use Apache::PerlSections; print STDERR Apache::PerlSections->dump;
 </Perl>
 PerlTransHandler Gedcom::WebServices::_parse_uri

Very probably.

See the BUGS file. And the TODO file.

Version 1.22 - 15th November 2019

Copyright 2005-2019, Paul Johnson (paul@pjcj.net)

This software is free. It is licensed under the same terms as Perl itself.

The latest version of this software should be available from my homepage: http://www.pjcj.net

2019-11-21 perl v5.30.0