NAME
Bio::Phylo::PhyloWS::Service::UbioNameBank - PhyloWS service wrapper for uBio NameBank records
SYNOPSIS
# inside a CGI script:
use CGI;
use Bio::Phylo::PhyloWS::Service::UbioNameBank;
# obtain a key code from http://www.ubio.org/index.php?pagename=form
# and define it as an environment variable:
$ENV{'UBIO_KEYCODE'} = '******';
my $cgi = CGI->new;
my $service = Bio::Phylo::PhyloWS::Service::UbioNameBank->new( '-base_uri' => $url );
$service->handle_request($cgi);
DESCRIPTION
This is an example implementation of a PhyloWS service. The service wraps around some of the uBio XML services described at http://www.ubio.org/index.php?pagename=xml_services.
Record lookups for this service return project objects that capture the RDF metadata for a single NameBank record as semantic annotations to a taxon object. An example of the sort of metadata that can be expected is shown here: http://www.ubio.org/authority/metadata.php?lsid=urn:lsid:ubio.org:namebank:2481730
Queries on this service run namebank searches and return project objects that capture the NameBank search XML (an example is shown here: http://www.ubio.org/webservices/examples/namebank_search.xml) as semantic annotations to taxon objects.
URLs to this service that specify format=html in the query string redirect to web pages on the uBio site at http://www.ubio.org. The redirect URLs either point to search result listings or to NameBank record pages, depending on whether the redirect is for a record query or a record lookup, respectively.
UBIO KEY CODES
Some functionality of this service requires a key code to the uBio API. Such key codes can be obtained from http://www.ubio.org/index.php?pagename=form. When deploying this service on a web server (e.g. as shown in the SYNOPSIS) this code must be provided in an environment variable called UBIO_KEYCODE
.
METHODS
ACCESSORS
- get_record()
-
Gets a uBio namebank record by its id
Type : Accessor Title : get_record Usage : my $record = $obj->get_record( -guid => $guid ); Function: Gets a uBio namebank record by its id Returns : Bio::Phylo::Project Args : Required: -guid => $guid Comments: For the $guid argument, this method only cares whether the last part of the argument is a series of integers, which are understood to be namebank identifiers
-
Gets the authority prefix (e.g. TB2) for the implementing service
Type : Authority Title : get_authority Usage : my $auth = $obj->get_authority; Function: Gets authority prefix Returns : 'uBioNB' Args : None
- get_supported_formats()
-
Gets an array ref of supported formats
Type : Accessor Title : get_supported_formats Usage : my @formats = @{ $obj->get_supported_formats }; Function: Gets an array ref of supported formats Returns : [ qw(nexml nexus html json) ] Args : NONE
- get_redirect()
-
Gets a redirect URL if relevant
Type : Accessor Title : get_redirect Usage : my $url = $obj->get_redirect; Function: Gets a redirect URL if relevant Returns : String Args : $cgi Comments: This method is called by handle_request so that services can 303 redirect a record lookup to another URL. By default, this method returns undef (i.e. no redirect), but if this implementation is called to handle a request that specifies 'format=html' the request is forwarded to the appropriate page on the http://www.ubio.org website
- get_query_result()
-
Gets a query result and returns it as a project object
Type : Accessor Title : get_query_result Usage : my $proj = $obj->get_query_result($query); Function: Gets a query result Returns : Bio::Phylo::Project Args : A simple query string for a namebank search Comments: The $query is a simple CQL level 0 term-only query
SEE ALSO
Also see the manual: Bio::Phylo::Manual and http://rutgervos.blogspot.com
CITATION
If you use Bio::Phylo in published research, please cite it:
Rutger A Vos, Jason Caravas, Klaas Hartmann, Mark A Jensen and Chase Miller, 2011. Bio::Phylo - phyloinformatic analysis using Perl. BMC Bioinformatics 12:63. http://dx.doi.org/10.1186/1471-2105-12-63
REVISION
$Id: Tolweb.pm 1660 2011-04-02 18:29:40Z rvos $