#!/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('syndeticsId');
#my $clientId='nysbsls';

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $isbn=$input->{'isbn'};
my $size=$input->{'size'};
my $showCaptionParam="";
if ($input->{'capMore'} ==1){
   $showCaptionParam = "&showCaptionBelow=t&caption=More+inside"
}
my @isbnArr=  split /,/, $isbn;
my $tmp ="";
my $i=0;
my $bookCoverUrl="";
print $cgi->header(-type => 'image/jpeg' );
while( length($tmp)<100 && $i < scalar(@isbnArr)){
    #$bookCoverUrl= "http://syndetics.com/index.aspx?isbn=" . $isbnArr[$i] ."/". $size . ".GIF&client=$clientId" . $showCaptionParam;
    $bookCoverUrl= "http://www.syndetics.com/index.aspx?isbn=" . $isbnArr[$i] ."/". $size . ".GIF&client=$clientId" . $showCaptionParam;
    my $tmp = get $bookCoverUrl;
    if(length($tmp) <100 && $size eq 'mc'){
        $bookCoverUrl= "http://www.syndetics.com/index.aspx?isbn=" . $isbnArr[$i] ."/sc.GIF&client=$clientId" ;
        $tmp = get $bookCoverUrl;
    }
    if(length($tmp) >100 ){
        print $tmp;
    }
    $i++;
}
if($i>=scalar(@isbnArr) && lc($size) eq 'sc'){
    my $rootDir       = Opals::Context->config('rootDir');
    my $noImgPath = "$rootDir/htdocs/theme/opals/image/nocover.gif";
    open NOIMG, "<$noImgPath";
    while(<NOIMG>){
        print $_;
    }
    close NOIMG;

}