#! /usr/bin/perl

use XML::Simple;
use LWP::Simple;
use HTTP::Request::Common;
use Data::Dumper;

my $base_url="http://localhost:8080/cgi-bin/koha/oai.pl?verb=ListRecords";
my $url = "$base_url&metadataPrefix=oai_dc";
while ( $url ){
    my $content = get($url);
    warn "could not retrieve $url" unless $content;
    warn "GOT URL: $url";
    my $xmlsimple = XML::Simple->new();
    my $result = $xmlsimple->XMLin($content);
#    foreach my $header ( @{$result->{ListRecords}->{record}} ){
#        warn $header->{header}->{identifier};
#    }
    my $token = $result->{ListRecords}->{resumptionToken}->{content};
    $url = $token ? 
        $base_url . "&resumptionToken=".$result->{ListRecords}->{resumptionToken}->{content}
        : undef ;
    warn "NEXT URL: $url";
}
