#!/usr/bin/perl
use strict;
$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
my $html;

require $ENV{DOCUMENT_ROOT}.'_adm/incs/clQueEsCCEBA.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';

my $ref=Generales::Entrada();


open (ARCHI, $ENV{DOCUMENT_ROOT}.'institucional/tpl/institucional.htm')||print $!."- institucional.pl<br>\n";
while (my $linea = <ARCHI>){
	$html .= $linea;
}

close ARCHI;

$html =Generales::sacaLineas($html);

#############################################################################################

my $oTxt=clQueEsCCEBA->new();

$oTxt->buscar();

$html=~s/<!--TITULO-->/$oTxt->{cTitulo}/gi;
$html=~s/<!--COPETE-->/$oTxt->{cCopete}/gi;
$html=~s/<!--CUERPO-->/$oTxt->{cCuerpo}/gi;
$html=~s/<!--URLFOTO-->/$oTxt->{urlFoto}/gi;
$html=~s/<!--EPIGRAFE-->/$oTxt->{epigrafeFoto}/gi;

########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################