#!/usr/bin/perl

use strict;
use CGI;
use JSON;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);

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

my $recInfo = "";

if ($ENV{'REQUEST_METHOD'} eq "POST") {
    my $json = "";
    while (<STDIN>) {
        $json .= $_;
    }
    $recInfo = decode_json($json);
}


print "Content-type: text/plain\n\n";

print   "{\"status\":\"1\"}";