#!sdh

if ($SDH::res->body()) {
	return '';
}

use Data::Dumper;
my $doc = SDH::TDoc->new();
$SDH::res->body($doc);
$SDH::handler->post(1);

my $d = Data::Dumper->new([$SDH::req], ['Request']);
#$d->Indent(1);
$d->Quotekeys(0);
$d->Sortkeys(1);
$doc->append($d->Dump());

'OK';