added basic GoogleBooks JSON API

diff --git a/GoogleBooks.pm b/GoogleBooks.pm
new file mode 100644 (file)
index 0000000..68da2a1
--- /dev/null
+++ b/GoogleBooks.pm
@@ -0,0 +1,120 @@
+package GoogleBooks;
+
+use warnings;
+use strict;
+
+use MARC::Record;
+use Data::Dump qw/dump/;
+use JSON::XS;
+
+use base 'Scraper';
+
+my $debug = $ENV{DEBUG} || 0;
+
+sub diag {
+       warn "# ", @_, $/;
+}
+
+# based on http://code.google.com/apis/books/docs/v1/using.html#PerformingSearch
+#
+# https://www.googleapis.com/books/v1/volumes?q=search+terms
+#
+# This request has a single required parameter:
+#
+# q - Search for volumes that contain this text string. There are special keywords you can specify in the search terms to search in particular fields, such as:
+#     intitle: Returns results where the text following this keyword is found in the title.
+#     inauthor: Returns results where the text following this keyword is found in the author.
+#     inpublisher: Returns results where the text following this keyword is found in the publisher.
+#     subject: Returns results where the text following this keyword is listed in the category list of the volume.
+#     isbn: Returns results where the text following this keyword is the ISBN number.
+#     lccn: Returns results where the text following this keyword is the Library of Congress Control Number.
+#     oclc: Returns results where the text following this keyword is the Online Computer Library Center number.
+#
+
+# Koha Z39.50 query:
+#
+# Bib-1 @and @and @and @and @and @and @and @or
+# @attr 1=4 title 
+# @attr 1=7 isbn
+# @attr 1=8 issn 
+# @attr 1=1003 author 
+# @attr 1=16 dewey 
+# @attr 1=21 subject-holding 
+# @attr 1=12 control-no 
+# @attr 1=1007 standard-id 
+# @attr 1=1016 any
+
+sub usemap {{
+       4               => 'intitle:',
+       7               => 'isbn:',
+       8               => 'isbn:', # FIXME?
+       1003    => 'inauthor:',
+#      16              => '',
+       21              => 'subject:',
+       12              => 'lccn:',
+#      1007    => '',
+       1016    => '',
+}};
+
+sub search {
+       my ( $self, $query ) = @_;
+
+       die "need query" unless defined $query;
+
+       my $url = 'https://www.googleapis.com/books/v1/volumes?q=' . $query;
+
+diag "get $url";
+
+       my $mech = $self->{mech} || die "no mech?";
+       $mech->get( $url );
+
+       my $json = decode_json $mech->content;
+       diag "# json = ", dump($json) if $debug;
+
+       my $hits = 0;
+
+       if ( exists $json->{items} ) {
+               $hits = $#{ $json->{items} } + 1;
+       } else {
+               diag "get't find results in ", $mech->content;
+               return;
+       }
+
+diag "got $hits results, get first one";
+
+       $self->{_json} = $json;
+       $self->{_json_item} = 0;
+
+       return $self->{hits} = $hits;
+}
+
+
+our ( $hash, $marc );
+
+sub next_marc {
+       my ($self,$format) = @_;
+
+       $format ||= 'marc';
+
+       my $item = $self->{_json}->{items}->[ $self->{_json_item}++ ];
+
+       warn "# item = ",dump($item) if $debug;
+
+       $marc = MARC::Record->new;
+       $marc->encoding('utf-8');
+
+       $marc->add_fields( 856, ' ', ' ', 'u' => $item->{accessInfo}->{webReaderLink} );
+       $marc->add_fields( 520, ' ', ' ', 'a' => $item->{searchInfo}->{textSnippet} );
+
+#      diag "# hash ",dump($hash);
+       diag "# marc ", $marc->as_formatted;
+
+       my $id = $item->{id} || die "no id";
+
+       $self->save_marc( "$id.marc", $marc->as_usmarc );
+
+       return $id;
+
+}
+
+1;

diff --git a/server.pl b/server.pl
index 8f0d7fa..8d7494e 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -8,13 +8,17 @@ use Net::Z3950::OID;
 use Data::Dumper;
 use COBISS;
 use Aleph;
+use GoogleBooks;
+
 use Encode;
 
+# databases names (left) must be in uppercase!
 my $databases = {
 #      'COBISS' => 'COBISS',
        'NSK01'  => 'Aleph',
        'NSK10'  => 'Aleph',
        'ZAG01'  => 'Aleph',
+       'GOOGLEBOOKS' => 'GoogleBooks',
 };
 
 my $max_records = 3; # XXX configure this

diff --git a/t/3-GoogleBooks.t b/t/3-GoogleBooks.t
new file mode 100755 (executable)
index 0000000..3889d7c
--- /dev/null
+++ b/t/3-GoogleBooks.t
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More tests => 7;
+
+use_ok 'GoogleBooks';
+
+ok( my $o = GoogleBooks->new(), 'new' );
+
+ok( my $hits = $o->search( 'croatia' ), 'search' );
+like $hits, qr/^\d+$/, "hits: $hits";
+
+foreach ( 1 .. 3 ) {
+
+       ok( my $marc = $o->next_marc, "next_marc $_" );
+       diag $marc;
+
+}

diff --git a/t/test.yaz b/t/test.yaz
index 63984e7..b23add1 100644 (file)
--- a/t/test.yaz
+++ b/t/test.yaz
@@ -8,4 +8,8 @@ open localhost:9999/NSK01
 find "linux"
 show 1+3
 
+open localhost:9999/GoogleBooks
+find "Croatia"
+show 1+10
+
 quit

diff --git a/t/yaz/GoogleBooks b/t/yaz/GoogleBooks
new file mode 100644 (file)
index 0000000..b52bf2b
--- /dev/null
+++ b/t/yaz/GoogleBooks
@@ -0,0 +1,5 @@
+open localhost:9999/GOOGLEBOOKS
+find "Croatia"
+show 1+3
+
+quit