#!/usr/bin/perl 
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);


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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'util/saveEbookSetting.tmpl',
        }
);
    #open debug,">/tmp/ac"; print debug " $input->{'ebs_libCode'}\n";close debug;
    saveInfo($dbh,$input);

#######################
sub saveInfo{
    my ($dbh,$info)=@_;
    
    # ADD data ebs_libCode,ebs_host,ebs_accessKey in table opl_preference

    my $ebs_host      ='ebook.hati.opalsinfo.net';
    my $ebs_libCode   =$info->{'ebs_libCode'};
    my $ebs_accessKey =$info->{'ebs_accessKey'};


    my $sth=$dbh->prepare("replace into opl_preference set var='ebs_host' ,val=?, valShow=? , 
                                   opt='string',varType='text',description='Opals eBook server host',
                                   hidden='0',gid='10',gOrder='3' ");
    $sth->execute($ebs_host,$ebs_host);

     
    $sth=$dbh->prepare("replace into opl_preference set var='ebs_libCode' ,val=?, valShow=? , 
                                   opt='string',varType='text',description='Opals eBook library code',
                                   hidden='0',gid='10',gOrder='2' ");
    $sth->execute($ebs_libCode,$ebs_libCode);
    
    $sth=$dbh->prepare("replace into opl_preference set var='ebs_accessKey' ,val=?, valShow=? , 
                                   opt='string',varType='text',description='Opals eBook access key',
                                   hidden='0',gid='10',gOrder='4'");
    $sth->execute($ebs_accessKey,$ebs_accessKey);
    $sth->finish;
    
    $template->param(
        ebs_libCode => $ebs_libCode
        );


}
#////////////////////////////////////////////////////////////////////////////
tmpl_write($dbh, $cgi, $cookie, $template);