#!/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/clNoticiaCV.pm';

my $oNoticiaCV = clNoticiaCV->new();
$oNoticiaCV->buscar($para{noticia});


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


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

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


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