#!/usr/bin/perl -w -- # -*- Perl -*-

# Copyright 2005 Norman Walsh. This work is licensed under a
# Creative Commons License: http://creativecommons.org/licenses/by-nc/2.0/

use NSDL::Request;

my $usage = "$0 amazonid author\n";

my $amazonid = shift @ARGV || die $usage;
my $author = shift @ARGV || die $usage;

my $req = new NSDL::Request();
$req->load('amazon.nsd');

my $res = $req->booksbyauthor($amazonid, $author);

printf "Amazon query returned %d results in %1.2fs:\n",
    $res->count(), $res->time();

my $titles = $res->titles();
if (ref $titles) {
    my $count = 1;
    foreach my $title (@{$titles}) {
	print "\t$count. $title\n";
	$count++;
    }
} else {
    print "\t$titles\n";
}