#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;#use MARC::File::USMARC;


use LWP::Simple;
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

#my $syspref = tmpl_preference($dbh);
my $clientId   = Opals::Context->preference('syndetics');
#my $clientId='nysbsls';

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $isbn=$input->{'isbn'};
my $size=$input->{'size'};
my @isbnArr=  split /,/, $isbn;
my $tmp ="";
my $i=0;
print $cgi->header(-type => 'image/jpeg' );
while( length($tmp)<100 && $i < scalar(@isbnArr)){
    my $bookCoverUrl= "http://syndetics.com/index.aspx?isbn=" . $isbnArr[$i] ."/SC.GIF&client=$clientId";
    my $tmp = get $bookCoverUrl;
    if(length($tmp) >100 ){
        print $tmp;
    }
    $i++;
}