#!/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 $idRevista;
my $nombreRevista;
my @Eventos;


require $ENV{DOCUMENT_ROOT}.'_adm/incs/clNota.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/clSeccion.pm';
my $oEvento = clNota->new();
$oEvento->buscar($para{evento});

my $oSeccion = clSeccion->new();
$oSeccion->buscar($oEvento->{idSeccion});
$oSeccion->{cNombreSeccion}="\L$oSeccion->{cNombreSeccion}";



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




my  $referencia=$oEvento->{staff};
my @staff=@$referencia;


$html =~ s /<!--SECCION-->/$oEvento->{cNombreSeccion}/i;

$html=~ s/(<!--STAFFABRE-->)(.*)(<!--STAFFCIERRA-->)/$1$2$3/;
my $staff_html;
my $staff_html2=$2; 
my $contador_staff;
foreach (@staff){
		if (($oEvento->{idSeccion}==1) && ($$_{idFuncion}==3)){
			$contador_staff++;
		}
	}

	if ($contador_staff>5) {
		$staff_html.=$staff_html2;
		$staff_html=~ s /<!--NOMBRE_STAFF-->/Artistas varios/gi;
		$staff_html=~ s /<!--CARGO_STAFF-->.?://;
		$staff_html=~ s/<!--LINKSTAFF-->/\/artistas\/varios.pl?evento=$oEvento->{idNota}/gi;
		foreach (@staff){
			if ($$_{idFuncion}!=3) {
				$staff_html.=$staff_html2;
				$staff_html=~ s /<!--NOMBRE_STAFF-->/$$_{Nombre}/;
				$staff_html=~ s /<!--CARGO_STAFF-->/$$_{Cargo}/;
				$staff_html=~ s/<!--LINKSTAFF-->/\/personas\/persona.pl?persona=$$_{idPersona}/;
			}
		}

	}else{
		foreach (@staff){
				$staff_html.=$staff_html2;
				$staff_html=~ s /<!--NOMBRE_STAFF-->/$$_{Nombre}/;
				$staff_html=~ s /<!--CARGO_STAFF-->/$$_{Cargo}/;
				$staff_html=~ s/<!--LINKSTAFF-->/\/personas\/persona.pl?persona=$$_{idPersona}/;
		};
	}		

$html=~ s/<!--STAFFABRE-->.*<!--STAFFCIERRA-->/$staff_html/;

$html =~ s /<!--EVENTO-->/$oEvento->{idNota}/gi;
$html =~ s /<!--VOLANTA-->/$oEvento->{cVolanta}/i;
$html =~ s /<!--TITULO-->/$oEvento->{cTitulo}/i;
$html =~ s /<!--COPETE-->/$oEvento->{cCopete}/i;

$html =~ s /<!--FECHATXT-->/$oEvento->{cFechaTxt}/i;


#$oEvento->{cCuerpo} =~ s /\n/<br>\n/g;
$html =~ s /<!--CUERPO-->/$oEvento->{cCuerpo}/i;
$html=~ s/<!--FOTO1-->/$oEvento->{urlFoto}/;
$html=~ s/<!--EPIGRAFEFOTO1-->/$oEvento->{epigrafeFoto}/;


$html =~ s /<!--LINKMEDIA-->/$oEvento->{urlMedia}/gi if $oEvento->{urlMedia};
$html =~ s /<!--LINKMEDIA-->/\/muestras\/muestras.pl?id=$oEvento->{idNota}&cont=-1/gi if $oEvento->{idCatalogo};
$html =~ s /<!--ANCHO-->/$oEvento->{cAncho}/gi;
$html =~ s /<!--ALTO-->/$oEvento->{cAlto}/gi;

$html=~ s/<!--LMEDIAABRE-->.*<!--LMEDIACIERRA-->//gi if !$oEvento->{urlMedia}&&!$oEvento->{idCatalogo};

$referencia=$oEvento->{fotos};
my @fotos=@$referencia;
my $contador=0;

my $loop;
foreach (@fotos){
	$html=~ s/(<!--FOTOABRE-->)(.*)(<!--FOTOCIERRA-->)/$1$2$3/;
	my $html2 =$2;
	$loop++;
	if ($html2 =~ /<!--FOTO$loop-->/) {
		$contador++;
		$html2 =~ s /<!--FOTO$contador-->/$$_{Url}/i;
		$html2 =~ s /<!--EPIGRAFEFOTO$contador-->/$$_{Epigrafe}/i;
		$html=~ s/(<!--FOTOABRE-->)(.*)(<!--FOTOCIERRA-->)/$html2/;
	}
}
$html=~ s/(<!--FOTOABRE-->)(.*)(<!--FOTOCIERRA-->)//gi;

my $contadortotal=$contador;
$contador=0;
my $anterior;
my $align;


	foreach (@fotos){
		$contador++;	
		$anterior++;
		if ($anterior==1){
			$align='left';
		}elsif($anterior==2){
			$align='right';
		#}elsif($anterior==3){
		#	$align='center'	;
			$anterior=0;
		}
		if ($html =~ /IMAGEN/) {
			$html =~ s /<!--IMAGEN-->/<img src='$$_{Url}' alt='$$_{Epigrafe}'  align\=\"$align\">/i;	
			$contadortotal++;
		}
	}

	$contador=0;
foreach (@fotos){
	$html=~ s/(<!--FOTOSABRE-->)(.*)(<!--FOTOSCIERRA-->)/$1$2$3/;
	$contador++;
	if ($contador>$contadortotal) {
		my $html2 =$2.$1.$2.$3;
		$html2 =~ s /<!--FOTO-->/$$_{Url}/i;
		$html2 =~ s /<!--EPIGRAFEFOTO-->/$$_{Epigrafe}/i;
		$html=~ s/(<!--FOTOSABRE-->)(.*)(<!--FOTOSCIERRA-->)/$html2/;
	}
}

$html=~ s/(<!--FOTOSABRE-->)(.*)(<!--FOTOSCIERRA-->)//gi;

$referencia=$oEvento->{audios};
my @audio=@$referencia;


$html =~ s /<!--SECCION-->/$oEvento->{cNombreSeccion}/i;

$html=~ s/(<!--AUDIOABRE-->)(<!--AUDIOTITULOABRE-->.*<!--AUDIOTITULOCIERRA-->)(.*)(<!--AUDIOCIERRA-->)/$1$2$3$4/;
my $audio_html;
my $audio_html2=$3;
$check=0;
foreach (@audio){
	$audio_html.=$audio_html2."<br>";
	if($$_{Audio}){$check=1}
	$audio_html=~ s/<!--AUDIO-->/$$_{Audio}/;
	$audio_html=~ s/<!--EPIGRAFEAUDIO-->/$$_{Epigrafe}/;
};
$html=~ s/(<!--AUDIOTITULOABRE-->)(.*)(<!--AUDIOTITULOCIERRA-->)/$2/;
if ($check){
	$audio_html = $2.$audio_html;
}
$html=~ s/<!--AUDIOABRE-->.*<!--AUDIOCIERRA-->/$audio_html/;




$html =~ s /<!--SECCION-->/$oEvento->{cNombreSeccion}/i;

$html=~ s/(<!--VIDEOABRE-->)(<!--VIDEOTITULOABRE-->.*<!--VIDEOTITULOCIERRA-->)(.*)(<!--VIDEOCIERRA-->)/$1$2$3$4/;

$referencia=$oEvento->{videos};
my @video=@$referencia;
my $video_html;
my $video_html2=$3;
$check=0;
foreach (@video){
	$video_html.=$video_html2."<br>";
	if($$_{Video}){$check=1}
	$video_html=~ s/<!--VIDEO-->/$$_{Video}/;
	$video_html=~ s/<!--EPIGRAFEVIDEO-->/$$_{Epigrafe}/;
	$video_html=~ s/<!--ENCOVIDEO-->/$$_{Enco}/;	
};
$html=~ s/(<!--VIDEOTITULOABRE-->)(.*)(<!--VIDEOTITULOCIERRA-->)/$2/;
if ($check){
	$video_html = $2.$video_html;
}
$html=~ s/<!--VIDEOABRE-->.*<!--VIDEOCIERRA-->/$video_html/;

$html=~ s/(<!--URLABRE-->)(<!--URLTITULOABRE-->.*<!--URLTITULOCIERRA-->)(.*)(<!--URLCIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{urls};
my @url=@$referencia;
my $url_html;
my $url_html2=$3;
$check=0;
foreach (@url){
	$url_html.=$url_html2."<br>";
	if($$_{Url}){$check=1}
	$url_html=~ s/<!--URL-->/$$_{Url}/;
	$url_html=~ s/<!--EPIGRAFEURL-->/$$_{Epigrafe}/;
}
$html=~ s/(<!--URLTITULOABRE-->)(.*)(<!--URLTITULOCIERRA-->)/$2/;
if ($check){
	$url_html = $2.$url_html;
}
$html=~ s/<!--URLABRE-->.*<!--URLCIERRA-->/$url_html/;


$html=~ s/(<!--NOTAABRE-->)(<!--NOTATITULOABRE-->.*<!--NOTATITULOCIERRA-->)(.*)(<!--NOTACIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{notas};
my @nota=@$referencia;
my $nota_html;
my $nota_html2=$3;
$check=0;
foreach (@nota){
	$nota_html.=$nota_html2."<br>";
	if($$_{Nota}){$check=1}
	$nota_html=~ s/<!--NOTA-->/$$_{Nota}/;
	$nota_html=~ s/<!--TITULONOTA-->/$$_{Titulo}/;
}
$html=~ s/(<!--NOTATITULOABRE-->)(.*)(<!--NOTATITULOCIERRA-->)/$2/;
if ($check){
	$nota_html = $2.$nota_html;
}
$html=~ s/<!--NOTAABRE-->.*<!--NOTACIERRA-->/$nota_html/;

$html=~ s/(<!--HORARIOABRE-->)(<!--HORARIOTITULOABRE-->.*<!--HORARIOTITULOCIERRA-->)(.*)(<!--HORARIOCIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{horarios};
my @horario=@$referencia;
my $horario_html;

my $horario_html2=$3;
$check=0;
foreach (@horario){
	$horario_html.=$horario_html2;
		if($$_{HorarioIn}){$check=1}
		if ($oEvento->{idSeccion}==1||$oEvento->{idSeccion}==3) {
			$$_{HorarioIn}=&FechaMuestras($$_{HorarioIn});
			$$_{HorarioOut}=&FechaMuestras2($$_{HorarioOut});
		}else{
			$$_{HorarioIn}=&FechaCiclos($$_{HorarioIn});
			$$_{HorarioOut}="";#&FechaCiclos($$_{HorarioOut});
		}
	$horario_html=~ s/<!--HORARIOIN-->/$$_{HorarioIn}/;
	$horario_html=~ s/<!--HORARIOOUT-->/$$_{HorarioOut}/;
	$horario_html=~ s/<!--DESCRIPCION-->/$$_{Descripcion}/;
}
$html=~ s/(<!--HORARIOTITULOABRE-->)(.*)(<!--HORARIOTITULOCIERRA-->)/$2/;
if ($check){
	$horario_html = $2.$horario_html;
}
$html=~ s/<!--HORARIOABRE-->.*<!--HORARIOCIERRA-->/$horario_html/;

$html=~ s/(<!--SALAABRE-->)(<!--SALATITULOABRE-->.*<!--SALATITULOCIERRA-->)(.*)(<!--SALACIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{salas};
my @sala=@$referencia;
my $sala_html;

my $sala_html2=$3;
$check=0;
foreach (@sala){
	$sala_html.=$sala_html2;
	if($$_{Sala}){$check=1}
	$sala_html=~ s/<!--IDSALA-->/$$_{idSala}/;
	$sala_html=~ s/<!--URLFOTO-->/$$_{urlFoto}/;
	$sala_html=~ s/<!--EPIGRAFE-->/$$_{Epigrafe}/;
	$sala_html=~ s/<!--NOMBRE-->/$$_{Nombre}/;
	$sala_html=~ s/<!--DESCRIPCION-->/$$_{Descripcion}/;
	$sala_html=~ s/<!--DIRECCION-->/$$_{Direccion}/;
	$sala_html=~ s/<!--LOCALIDAD-->/$$_{Localidad}/;
	$sala_html=~ s/<!--PROVINCIA-->/$$_{Provincia}/;
	$sala_html=~ s/<!--PAIS-->/$$_{Pais}/;
}
$html=~ s/(<!--SALATITULOABRE-->)(.*)(<!--SALATITULOCIERRA-->)/$2/;
if ($check){
	$sala_html = $2.$sala_html;
}
#	$sala_html = substr $sala_html, 0,((length $sala_html)-3);

$html=~ s/<!--SALAABRE-->.*<!--SALACIERRA-->/$sala_html/;


$html=~ s/(<!--CRITICASABRE-->)(<!--CRITICASTITULOABRE-->.*<!--CRITICASTITULOCIERRA-->)(.*)(<!--CRITICASCIERRA-->)/$1$2$3$4/;
my $criticas_html2=$3;

$referencia=$oEvento->{criticas};
my @criticas=@$referencia;
my $criticas_html;


$check=0;
foreach (@criticas){
	$criticas_html.=$criticas_html2;
	if($$_{Critica}){$check=1}
	#$html.=$criticas_html2;
	$criticas_html=~ s/<!--CRITICA-->/$$_{Critica}/;
	$criticas_html=~ s/<!--TITULO-->/$$_{Titulo}/;
	$$_{Cuerpo} =  substr $$_{Cuerpo}, 0,80;
	$$_{Cuerpo} =~ s /\n/<br>\n/g;
	$criticas_html=~ s/<!--CUERPOCRITICA-->/$$_{Cuerpo}/;
	$criticas_html=~ s/<!--AUTOR-->/$$_{Autor}/;
	$criticas_html=~ s/<!--IDPERSONA-->/$$_{idPersona}/;

	#$html.=%$_;
}
$html=~ s/(<!--CRITICASTITULOABRE-->)(.*)(<!--CRITICASTITULOCIERRA-->)/$2/;
if ($check){
	$criticas_html = $2.$criticas_html;
}

$html=~ s/<!--CRITICASABRE-->.*<!--CRITICASCIERRA-->/$criticas_html/;


$html=~ s/(<!--AUSPICIANTEABRE-->)(<!--AUSPICIANTETITULOABRE-->.*<!--AUSPICIANTETITULOCIERRA-->)(.*)(<!--AUSPICIANTECIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{auspiciantes};
my @auspiciante=@$referencia;
my $auspiciante_html;

my $auspiciante_html2=$3;
$check=0;
foreach (@auspiciante){
	if (!$check) {
		$auspiciante_html.=$auspiciante_html2;
		if($$_{Auspiciante}){$check=1}
		$auspiciante_html=~ s/<!--IDAUSPICIANTE-->/$$_{idAuspiciante}/;
		$auspiciante_html=~ s/<!--URLFOTO-->/$$_{urlFoto}/;
		$auspiciante_html=~ s/<!--EPIGRAFE-->/$$_{Epigrafe}/;
		$auspiciante_html=~ s/<!--NOMBRE-->/$$_{Nombre}/;
		my $linkabre;
		my $linkcierre;
		if (!$$_{Link}) {	
			$$_{Link}="#";#\" onmousedown='alert(\"El auspiciante no posee un sitio relacionado\")'";
		}else{
			$linkabre = qq~<a href="$$_{Link}" target="_blank">~;
			$linkcierre = qq~</a>~;
		}
		$auspiciante_html=~ s/<!--LINKABRE-->/$linkabre/;
		$auspiciante_html=~ s/<!--LINKCIERRE-->/$linkcierre/;

		$auspiciante_html=~ s/<!--LINK-->/$$_{Link}/;
		
	}

}
$html=~ s/(<!--AUSPICIANTETITULOABRE-->)(.*)(<!--AUSPICIANTETITULOCIERRA-->)/$2/;
if ($check){
	$auspiciante_html = $2.$auspiciante_html;
}
$html=~ s/<!--AUSPICIANTEABRE-->.*<!--AUSPICIANTECIERRA-->/$auspiciante_html/;

$html=~ s/(<!--OBRAABRE-->)(<!--OBRATITULOABRE-->.*<!--OBRATITULOCIERRA-->)(.*)(<!--OBRACIERRA-->)/$1$2$3$4/;
$referencia=$oEvento->{obras};
my @obra=@$referencia;
my $obra_html;

my $obra_html2=$3;
$check=0;
foreach (@obra){
	$obra_html.=$obra_html2."<br>";
	if($$_{Obra}){$check=1}
	$obra_html=~ s/<!--OBRA-->/$$_{Obra}/;
	$obra_html=~ s/<!--TITULO-->/$$_{Titulo}/;
}
$html=~ s/(<!--OBRATITULOABRE-->)(.*)(<!--OBRATITULOCIERRA-->)/$2/;
if ($check){
	$obra_html = $2.$obra_html;
}
$html=~ s/<!--OBRAABRE-->.*<!--OBRACIERRA-->/$obra_html/;

if (!$oEvento->{urlPrensa}) {
	$html=~ s/(<!--PRENSAABRE-->)(.*)(<!--PRENSACIERRA-->)/\&nbsp\;/gi;
}
my $HayMedia;
			$HayMedia = 0;
			$_ = $oEvento->{fotos};
			if ($$_[0]) {
							$HayMedia = 1;
			}
			$_ = $oEvento->{audios};
			if ($$_[0]) {
							$HayMedia = 1;
			}
			$_ = $oEvento->{videos};
			if ($$_[0]) {
							$HayMedia = 1;
			}
			$_ = $oEvento->{urls};
			if ($$_[0]) {
							$HayMedia = 1;
			}
			$_ = $oEvento->{urls};
			if ($$_[0]) {
			#				$HayMedia = 1;
			}
			$_ = $oEvento->{notas};
			if ($$_[0]) {
			#				$HayMedia = 1;
			}


if($contador_staff>1&&$HayMedia){
	my $LinkMedia="/mmedia/frm.pl?e=$oEvento->{idNota}&p=virtual.htm";
	$html=~ s/<!--LINKMEDIA-->/$LinkMedia/gi;
}elsif (-e 'media\m'.$oEvento->{idNota}.'\m'.$oEvento->{idNota}.'.htm') {
	#my $t = 'media\m'.$oEvento->{idEvento}.'.htm';
	my $LinkMedia="/media/m$oEvento->{idNota}/m$oEvento->{idNota}.htm";
	$html=~ s/<!--LINKMEDIA-->/$LinkMedia/gi;
}else{
	$html=~ s/(<!--MEDIAABRE-->)(.*)(<!--MEDIACIERRA-->)/\&nbsp\;/gi;
}
	

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


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

sub Fecha{
    #Variables para la fecha
    my $fecha;
    my $ahora = shift;
    if ($ahora){
	    my $semdia = ('Domingo', 'Lunes', 'Martes', 'Mi&eacute;rcoles', 'Jueves', 'Viernes', 'S&aacute;bado')[(localtime($ahora))[6]];
	    my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];
	    my $mesdia = (localtime($ahora))[3];
	    my $anio = (localtime($ahora))[5] + 1900;
	    $fecha = "$semdia $mesdia de $mes de $anio";
    }	
    return $fecha;
}	

sub FechaCiclos{
    #Variables para la fecha
    my $fecha;
    my $ahora = shift;
    if ($ahora){
	    my $semdia = ('Domingo', 'Lunes', 'Martes', 'Mi&eacute;rcoles', 'Jueves', 'Viernes', 'S&aacute;bado')[(localtime($ahora))[6]];
	    my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];
	    my $mesdia = (localtime($ahora))[3];
	    my $anio = (localtime($ahora))[5] + 1900;
	    $fecha = "$semdia $mesdia de $mes de $anio";
		my $min =  (localtime($ahora))[1];
		if (length $min<2) { $min='0'.$min;}
		if ($min>0) {
			$min=":$min";
		}else{
			$min="";
		}
		my $hora = (localtime($ahora))[2];
		my $nMes;
		if ((localtime($ahora))[4]!=(localtime(time))[4]) {
			$nMes=" de ".$mes;
		}

		$fecha = "$semdia $mesdia$nMes, $hora$min Hs.";
	}	
    return $fecha;
}	

sub FechaMuestras{
    #Variables para la fecha
    my $fecha;
    my $ahora = shift;
    if ($ahora){
	    my $semdia = ('Domingo', 'Lunes', 'Martes', 'Mi&eacute;rcoles', 'Jueves', 'Viernes', 'S&aacute;bado')[(localtime($ahora))[6]];
	    my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];
	    my $mesdia = (localtime($ahora))[3];
	    my $anio = (localtime($ahora))[5] + 1900;
	    $fecha = "$semdia $mesdia de $mes de $anio";
		my $min =  (localtime($ahora))[1];
		if (length $min<2) { $min='0'.$min;}
		if ($min>0) {
			$min=":$min";
		}else{
			$min="";
		}
		my $hora = (localtime($ahora))[2];

		$fecha = "$mesdia de $mes";
	}	
    return $fecha;
}	

sub FechaMuestras2{
    #Variables para la fecha
    my $fecha;
    my $ahora = shift;
    if ($ahora){
	    my $semdia = ('Domingo', 'Lunes', 'Martes', 'Mi&eacute;rcoles', 'Jueves', 'Viernes', 'S&aacute;bado')[(localtime($ahora))[6]];
	    my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];
	    my $mesdia = (localtime($ahora))[3];
	    my $anio = (localtime($ahora))[5] + 1900;
	    $fecha = "$semdia $mesdia de $mes de $anio";
		my $min =  (localtime($ahora))[1];
		if (length $min<2) { $min='0'.$min;}
		if ($min>0) {
			$min=":$min";
		}else{
			$min="";
		}
		my $hora = (localtime($ahora))[2];

		$fecha = "$mesdia de $mes de $anio";
	}	
    return $fecha;
}