Skip Menu |

This queue is for tickets about the HTTP-OAI CPAN distribution.

Report information
The Basics
Id: 73230
Status: new
Priority: 0/
Queue: HTTP-OAI

People
Owner: Nobody in particular
Requestors: barth [...] ub.uni-heidelberg.de
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 3.27
Fixed in: (no value)



Subject: HTTP::OAI::Harvester GetRecord() method hangs?
Dear reader, the attached script is trying to get all records from http://arachne.uni-koeln.de:8080/OAI-PMH/oai-pmh.xml . The script is fetching one identifier at a time and then is trying to get the according record via GetRecord(), but there the script is using 100% cpu and does not seem to end anymore. I am not sure if the repository has changed something, but i think there should be an error or the script should be able to get the data. The first record could be get by wget -O - 'http://arachne.uni-koeln.de:8080/OAI-PMH/oai-pmh.xml?verb=GetRecord&metadataPrefix=mets&identifier=oai%3Aarachne.uni-koeln.de%3Abuch%2F1' Kind regards, JB
Subject: getMets.pl
#!/usr/bin/perl use strict; use utf8; binmode(STDOUT, ":utf8"); use HTTP::OAI; use HTTP::OAI::ListRecords; my $h = HTTP::OAI::Harvester->new( repository=>HTTP::OAI::Identify->new( baseURL => 'http://arachne.uni-koeln.de:8080/OAI-PMH/oai-pmh.xml', version => '2.0', )); my $response=$h->ListIdentifiers(metadataPrefix=>"mets", set=>"semantique"); if( $response->is_error ) { die("Error harvesting: " . $response->message . "\n"); } while(my $id=$response->next) { print "getting ".$id->identifier."\n"; my $gr=$h->GetRecord(identifier=>$id->identifier, metadataPrefix=>"mets"); if($gr->is_error) { warn $gr->message; next; } die "got one record\n"; }
From: barth [...] ub.uni-heidelberg.de
... and i am using Ubuntu 10.04 x86_64 Linux pers16 2.6.32-36-generic #79-Ubuntu SMP Tue Nov 8 22:29:53 UTC 2011 x86_64 GNU/Linux This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi and version 3.27 of HTTP::OAI Kind regards, JB