#!/usr/bin/perl
use strict;
$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';
my $ref=Generales::Entrada();
my %para=%$ref;

my $html;
my $linea;
my $check;
my $hoy = time;
my $fotoTapa;
my $epigrafeTapa;
my @Eventos;


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

my $oNoticia = clNoticia->new();
$oNoticia->buscar($para{noticia});


open (ARCHI, $ENV{DOCUMENT_ROOT}.'noticias/tpl/noticia.htm')||print $!."- noticia.pl<br>\n";
while ($linea = <ARCHI>){
	$html .= $linea;
}
close ARCHI;
$html =Generales::sacaLineas($html);


$html =~ s /<!--NOTICIA-->/$oNoticia->{idNoticia}/gi;
$html =~ s /<!--VOLANTA-->/$oNoticia->{cVolanta}/i;
$html =~ s /<!--TITULO-->/$oNoticia->{cTitulo}/i;
$html =~ s /<!--COPETE-->/$oNoticia->{cCopete}/i;
#$oNoticia->{cCuerpo} =~ s /\n/<br>\n/g;
$html =~ s /<!--CUERPO-->/$oNoticia->{cCuerpo}/i;
$html=~ s/<!--FOTO1-->/$oNoticia->{urlFoto}/;
$html=~ s/<!--EPIGRAFEFOTO1-->/$oNoticia->{epigrafeFoto}/;

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


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