package Jamila;
use strict;
use warnings;
use utf8;
use CGI;
use JSON;
use LWP;
our $oCgi;
our $VERSION = '0.03';
#--------------------------------------------------------------------
# _disp: displa return unless($@);
$sMsg = $@;
}
else
{
if($sPrm)
{
my $raData = from_json($sPrm);
my ($sMethod, @aPrm) = @$raData;
if(substr($sMethod, 0, 1) ne '_')
{
}
binmode STDOUT, ':utf8';
print "Content-Type: text/plain; charset=UTF-8\n\n" .
to_json({
error => $sMsg,
result => $oRes,
});
}
#--------