#!/usr/bin/perl

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

my $cgi   = CGI->new;
my $input = $cgi->Vars();
my $vars=$input->{'var'};
my $varList=undef;
if(defined $vars){
    my @arr =split (/,/ ,$vars);
    foreach my $v(@arr){
        $varList->{$v}=1;
    }
}
my $sth=$dbh->prepare("select var,val from opl_preference");
$sth->execute();
my $pref={};
while(my ($var,$val) =$sth->fetchrow_array){
    if(!defined $varList || $varList->{$var}){
        $pref->{$var}=$val;
    }
}

print "Content-type: text/plain\n\n";
print  to_json($pref,{pretty=>1});