#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;
use Opals::Context;
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my ($dbname) = $dbh->selectrow_array(<<_SQL_);
select val from opl_preference where var = 'libname'
_SQL_
$dbname =~ s/<.+>/ /g;

my $database = $dbh->selectall_arrayref(<<_SQL_, {Slice => {}});
select  *, recommended selected, 0 hits
from    opl_database
order by id asc
_SQL_

my $json_str = to_json([
  {
    name => $dbname,
    host => $ENV{'SERVER_NAME'},
    type => "library",
    selected => 'true',
    hits => 0,
  },@{$database}],{pretty=>1});
#$json_str =~ s/"(true|false)",/$1,/g;
print "Content-type: text/plain\n\n$json_str";