NAME
HTTP::OAI::Harvester - Agent for harvesting from Open Archives version 1.0, 1.1, 2.0 and static ('2.0s') compatible repositories
DESCRIPTION
HTTP::OAI::Harvester provides the front-end to the OAI-PERL library for harvesting from OAI repositories. Direct use of the other OAI-PERL modules for harvesting should be avoided.
To harvest from an OAI-compliant repository first create the HTTP::OAI::Harvester interface using the baseURL option. It is recommended that you request an Identify from the Repository and use the repository method to update the Identify object used by the harvester.
When making OAI requests the underlying HTTP::OAI::UserAgent module will take care of automatic redirection (http code 302) and retry-after (http code 503).
OAI flow control (i.e. resumption tokens) is handled transparently by HTTP::OAI::Harvester.
Static Repository Support
Static repositories are automatically and transparently supported within the existing API. To harvest a static repository specify the repository XML file using the baseURL argument to HTTP::OAI::Harvester. An initial request is made that determines whether the base URL specifies a static repository or a normal OAI 1.x/2.0 CGI repository. To prevent this initial request state the OAI version using an HTTP::OAI::Identify object e.g.
$h = HTTP::OAI::Harvester->new(
repository=>HTTP::OAI::Identify->new(
baseURL => 'http://arXiv.org/oai2',
version => '2.0',
));
If a static repository is found the response is cached, and further requests are served by that cache. Static repositories do not support sets, and will result in a noSetHierarchy error if you try to use sets. You can determine whether the repository is static by checking the version ($ha->repository->version), which will be "2.0s" for static repositories.
FURTHER READING
You should refer to the Open Archives Protocol version 2.0 and other OAI documentation, available from http://www.openarchives.org/.
BEFORE USING EXAMPLES
In the examples I use arXiv.org's, and cogprints OAI interfaces. To avoid causing annoyance to their server administrators please contact them before performing testing or large downloads (or use other, less loaded, servers).
SYNOPSIS
use HTTP::OAI;
my $h = new HTTP::OAI::Harvester(baseURL=>'http://arXiv.org/oai2');
my $response = $h->repository($h->Identify)
if( $response->is_error ) {
print "Error requesting Identify:\n",
$response->code . " " . $response->message, "\n";
exit;
}
# Note: repositoryVersion will always be 2.0, $r->version returns
# the actual version the repository is running
print "Repository supports protocol version ", $response->version, "\n";
# Version 1.x repositories don't support metadataPrefix,
# but OAI-PERL will drop the prefix automatically
# if an Identify was requested first (as above)
$response = $h->ListIdentifiers(
metadataPrefix=>'oai_dc',
from=>'2001-02-03',
until=>'2001-04-10'
);
if( $response->is_error ) {
die("Error harvesting: " . $response->message . "\n");
}
print "responseDate => ", $response->responseDate, "\n",
"requestURL => ", $response->requestURL, "\n";
while( my $id = $response->next ) {
if( $id->is_error ) {
print "Error: ", $id->code, " (", $id->message, ")\n";
last;
}
print "identifier => ", $id->identifier;
# Only available from OAI 2.0 repositories
print " (", $id->datestamp, ")" if $id->datestamp;
print " (", $id->status, ")" if $id->status;
print "\n";
# Only available from OAI 2.0 repositories
for( $id->setSpec ) {
print "\t", $_, "\n";
}
}
$response = $h->ListRecords(
metadataPrefix=>'oai_dc',
handlers=>{metadata=>'HTTP::OAI::Metadata::OAI_DC'},
);
if( $response->is_error ) {
print "Error: ", $response->code,
" (", $response->message, ")\n";
exit();
}
while( my $rec = $response->next ) {
if( $rec->is_error ) {
die $rec->message;
}
print $rec->identifier, "\t",
$rec->datestamp, "\n",
$rec->metadata, "\n";
print join(',', @{$rec->metadata->dc->{'title'}}), "\n";
}
METHODS
- HTTP::OAI::Harvester->new( %params )
-
This constructor method returns a new instance of HTTP::OAI::Harvester. Requires either an HTTP::OAI::Identify object, which in turn must contain a baseURL, or a baseURL from which to construct an Identify object.
Any other parameters are passed to the HTTP::OAI::UserAgent module, and from there to the LWP::UserAgent module.
$h = HTTP::OAI::Harvester->new( baseURL => 'http://arXiv.org/oai2', resume=>0, # Suppress automatic resumption ) $id = $h->repository(); $h->repository($h->Identify); $h = HTTP::OAI::Harvester->new( HTTP::OAI::Identify->new( baseURL => 'http://arXiv.org/oai2', ));
- $h->repository()
-
Returns and optionally sets the HTTP::OAI::Identify data used by the Harvester agent.
- $h->resume()
-
If set to true (default) resumption tokens will automatically be handled by requesting the next partial list.
OAI-PMH Verbs
These methods return either a:
If there was a problem making the HTTP request, or a module subclassed from HTTP::OAI::Response, corresponding to the method name (e.g. GetRecord will return HTTP::OAI::GetRecord).
Use $r->is_success to determine whether an error occurred.
Use $r->code and $r->message to obtain the error code and a human-readable message. OAI level errors can be retrieved using the $r->errors method.
If the response contained an HTTP::OAI::ResumptionToken this can be retrieved using the $r->resumptionToken method. When enumerating through ListIdentifiers, ListRecords or ListSets you should check $rec->is_success as an error may have occurred while attempted to retrieve the next partial list of matches.
- $h->GetRecord( %params )
-
Get a single record from the repository identified by identifier, in format metadataPrefix.
$gr = $h->GetRecord( identifier => 'oai:arXiv:hep-th/0001001', # Required metadataPrefix => 'oai_dc' # Required ); die $gr->message if $gr->is_error; $rec = $gr->next; die $rec->message if $rec->is_error; printf("%s (%s)\n", $rec->identifier, $rec->datestamp); $dom = $rec->metadata->dom;
- $h->Identify()
-
Get information about the repository.
$id = $h->Identify(); print join ',', $id->adminEmail;
- $h->ListIdentifiers( %params )
-
Retrieve the identifiers, datestamps, sets and deleted status for all records within the specified date range (from/until) and set spec (set). 1.x repositories will only return the identifier. Or, resume an existing harvest by specifying resumptionToken.
$lr = $h->ListIdentifiers( metadataPrefix => 'oai_dc', # Required from => '2001-10-01', until => '2001-10-31', set=>'physics:hep-th', ); die $lr->message if $lr->is_error; while($rec = $lr->next) { die $rec->message if $rec->is_error; { ... do something with $rec ... } }
- $h->ListMetadataFormats( %params )
-
List available metadata formats. Given an identifier the repository should only return those metadata formats for which that item can be disseminated.
$lmdf = $h->ListMetadataFormats( identifier => 'oai:arXiv.org:hep-th/0001001' ); die $lmdf->message if $lmdf->is_error; for($lmdf->metadataFormat) { print $_->metadataPrefix, "\n"; }
- $h->ListRecords( %params )
-
Return full records within the specified date range (from/until), set and metadata format. Or, specify a resumption token to resume a previous partial harvest.
$lr = $h->ListRecords( metadataPrefix=>'oai_dc', # Required from => '2001-10-01', until => '2001-10-01', set => 'physics:hep-th', ); die $lr->message if $lr->is_error; while($rec = $lr->next) { die $rec->message if $rec->is_error; { ... do something with $rec ... } }
- $r = $h->ListSets( %params )
-
Return a list of sets provided by the repository. The scope of sets is undefined by OAI-PMH, so therefore may represent any subset of a collection. Optionally provide a resumption token to resume a previous partial request.
$ls = $h->ListSets(); die $ls->message if $ls->is_error; while($set = $ls->next) { die $set->message if $sec->is_error; print $set->setSpec, "\n"; }
ABOUT
These modules have been written by Tim Brody <tdb01r@ecs.soton.ac.uk>.
You can find links to this and other OAI tools (perl, C++, java) at: http://www.openarchives.org/tools/tools.html.