#!/usr/bin/perl

my $semifecha;
my $semispeak;
my $semititulo;


#####
#en add.txt : 1) fecha, 2) speaker, 3) titulo, 4) abstract en formato html (aca pueden ser muchos renglones)
#luego de agregar la data a data.js, borra el add.txt y genera un backup del data.js previo al cambio
#si no hay add.txt sale y no hace nada
#####

open IN, "<add.txt" or die "Falta add.txt\n" . $!;

$semifecha =  <IN>;chomp($semifecha);$semifecha =~ s/\r//g;
$semispeak = <IN>;chomp($semispeak);$semispeak =~ s/\r//g;
$semititulo = <IN>;chomp($semititulo);$semititulo =~ s/\r//g;

system("rm -f aux");
open (OUT, '>aux');


###############
my $strnum = `head -n 1 data.js`;

my $num = substr($strnum,11,8);
my $year = substr($num,0,4);
my $cuat = substr($num,4,2);
my $charla = substr($num,6,2);
my $charnum = "01";


#############
# mismo anio y mismo cuat, suma la charla
# sino, agrega anio y cuat

my $hoyyear = substr(`date '+%Y'`,0,-1);
my $hoymes = substr(`date '+%m'`,0,-1);
my $hoycuat = "01";
if ($hoymes > 7) {
	$hoycuat = "02";
}


if($hoyyear eq $year && $hoycuat eq $cuat){
	$charnum = $charla + 1; 
	if(substr($charla,0,1) eq "0"){
		if(substr($charla,1,1) eq "9"){
			$charnum="10";
		}else{
			$charnum="0" . (substr($charla,1,1) +1);
		}
	}
} else {
	$year = $hoyyear;
	$cuat = $hoycuat;

}

print OUT "var charlas". $year . $cuat . $charnum . " = \n";
print OUT "\"" . $semifecha . " \- " . $semispeak. "<br>\" + \n";
print OUT "\"<span style='font-style: italic;'>\" + \n";
print OUT "\"" . $semititulo . ".</span>\";\n\n";

########

my $tieneAbs =  <IN>;chomp($tieneAbs);
if($tieneAbs ne ""){
	print OUT "var abstract". $year . $cuat . $charnum . " = \n";
	print OUT "\"" . $tieneAbs . "\" + \n"; 
	
	while (<IN>) { 
		chomp;
		my $abs = $_;
		$abs =~ s/\"/\\\"/g;
		$abs =~ s/\'/\\\'/g;
		print OUT "\"" . $abs . "\" + \n";
	
	}
	print OUT "\"\";\n\n";
}

close OUT;
close IN;

########

system("cat data.js >>aux");
system("rm -f data.bak");
system("mv data.js data.bak");
system("mv aux data.js");
system("rm -f add.txt");