% if (!$erro){
<%perl>
my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m");
my ($first, $last, $email) = $dbh->selectrow_array("select rfirst, rlast, remail from twebusers where twebusers.username='$username'");
my $sender = "$first $last";
my $rdata = localtime(time);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $data = ($year+1900) . "-" . ($mon +1) . "-" . $mday;
my $hora = $hour . ":" . sprintf("%0.2d",$min) . ":" . sprintf("%0.2d",$sec);
my $datestr = $m->comp("/_shared/procs/utils/getdatestr.m", data=>$data, hora=>$hora, painel=>$painel);
my $dspmensagem = $mensagem;
$dspmensagem =~ s/\n/
\n/g;
$mensagem = $m->comp("/_shared/procs/utils/encodeforform.m",str=>$mensagem);
# css
my $style = ($painel) ? "painel":"mensagens";
%perl>
%#