#!/usr/bin/perl -U use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html; charset=utf-8\n\n"; use lib "."; use Switch; use Modulos::ConectaBd; use Modulos::ExecutaBd; use Modulos::Util; use Modulos::Request; $dbh = conectaBanco(); %FORM = processaRequisicao(); print < Franciscanas
Orações e Reflexões
END $campos = "id_oracao|titulo"; $vars = "id|titulo"; $lista = "SELECT | FROM cad_oracoes ORDER BY titulo"; ($dados, $fetch) = buscaDados($dbh, $lista, $campos, $vars) or die "$DBI::errstr\n"; while( $fetch->() ) { $id = $dados->{id}; $titulo = $dados->{titulo}; $comeco_link = ""; $fim_link = ""; print <
$comeco_link $titulo $fim_link

END } print <

END desconectaBanco($dbh);