#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Digest::SHA qw(
    sha1_base64
    sha1_hex
);

use Opals::Context;

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

my $cgi      = CGI->new;
my $input    = $cgi->Vars();
my $htmlCont= $input->{"html"};

if($input->{"html"} eq ""){
    my $sth=$dbh->prepare("select val from opl_portletProp where pid=? && var='html'");
    $sth->execute($input->{"pid"});
    ($htmlCont)=$sth->fetchrow_array;
}
print "Content-type: text/html\n\n";

print $htmlCont;
#------------------------------------------------------------------------------