#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Opals::Context;
use Opals::WebServiceEbookClient qw( 
    wsc_getFile
);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();

my $bid    = $input->{'bid'};
my $fid    = $input->{'fid'};

my $params={bid =>$bid,
            fid =>$fid
           };

my ($content,$mimeType)=wsc_getFile($params);

    print "Content-type: $mimeType\n\n";
    print $content;